Обновлено: 01 декабря, 2018

Отключаем кнопку закрытия любого окна в Delphi

Приведенный пример отключает кнопку закрытия и пункт «закрыть» системного меню заданного окна. В данном случае notepad.exe.

Пример:

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;

Рейтинг автора

Автор статьи

Юрий

Программист Delphi, MySQL. Образование: высшее. Специальность: программное обеспечение информационных технологий.

Написано статей

439