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

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

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 1 058 • DeLiKaTeS Tetris (Тетрис) 5 991 • TDictionary Custom Sort 7 927 • Fast Watermark Sources 7 586 • 3D Designer 10 823 • Sik Screen Capture 8 166 • Patch Maker 8 351 • Айболит (remote control) 8 404 • ListBox Drag & Drop 7 264 • Доска для игры Реверси 101 557 • Графические эффекты 8 460 • Рисование по маске 7 822 • Перетаскивание изображений 6 417 • Canvas Drawing 6 802 • Рисование Луны 6 740 • Поворот изображения 5 839 • Рисование стержней 4 787 • Paint on Shape 3 480 • Генератор кроссвордов 4 501 • Головоломка Paletto 3 623 • Теорема Монжа об окружностях 4 412 • Пазл Numbrix 2 862 • Заборы и коммивояжеры 3 815 • Игра HIP 2 583 • Игра Go (Го) 2 599 • Симулятор лифта 2 978 • Программа укладки плитки 2 406 • Генератор лабиринта 3 156 • Проверка числового ввода 2 641 • HEX View 3 051

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

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