Отключить кнопку закрытия чужого окна

Для примера, запустите "Блокнот" и попробуем его кнопку закрытия окна сделать неактивной, кроме того пункт "закрыть" в системном меню тоже будет отключён! ;-]

procedure TForm1.Button1Click(Sender: TObject); var hwndHandle: THANDLE; hMenuHandle: HMENU; begin hwndHandle := FindWindow(nil, 'Untitled - Notepad'); if (hwndHandle <> 0) then begin hMenuHandle := GetSystemMenu(hwndHandle, FALSE); if (hMenuHandle <> 0) then DeleteMenu(hMenuHandle, SC_CLOSE, MF_BYCOMMAND); end; end;

Вместо "Untitled - Notepad", нужно подставить заголовок того окна, которому вы хотите послать сообщение.

Но это окно можно закрыть из TaskBar'а.

Недавно добавленные исходники
• Animation Loaders 843 • DeLiKaTeS Tetris (Тетрис) 5 799 • TDictionary Custom Sort 7 755 • Fast Watermark Sources 7 432 • 3D Designer 10 659 • Sik Screen Capture 7 975 • Patch Maker 8 189 • Айболит (remote control) 8 241 • ListBox Drag & Drop 7 050 • Доска для игры Реверси 100 511 • Графические эффекты 8 313 • Рисование по маске 7 693 • Перетаскивание изображений 6 295 • Canvas Drawing 6 669 • Рисование Луны 6 591 • Поворот изображения 5 739 • Рисование стержней 4 679 • Paint on Shape 3 379 • Генератор кроссвордов 4 354 • Головоломка Paletto 3 504 • Теорема Монжа об окружностях 4 315 • Пазл Numbrix 2 790 • Заборы и коммивояжеры 3 728 • Игра HIP 2 510 • Игра Go (Го) 2 509 • Симулятор лифта 2 900 • Программа укладки плитки 2 329 • Генератор лабиринта 3 065 • Проверка числового ввода 2 562 • HEX View 2 971

Отключить кнопку закрытия чужого окна

Похожие по теме исходники