Отключаем кнопку закрытия любого окна в 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; 
1 Звезда2 Звезды3 Звезды4 Звезды5 Звезд (11 оценок, среднее: 5,00 из 5)
Загрузка...
Добавить комментарий