Как запретить кнопку close в любом окне

Следующий пример запрещает кнопку закрытия (и пункт «закрыть» (close) в системном меню) нужного нам окна (в данном случае Notepad).

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;
 
faq/delphi/system/disable_close_button_any_window.txt · Последние изменения: 2006/05/14 14:39 (внешнее изменение)
 
Recent changes RSS feed Donate Powered by PHP Valid XHTML 1.0 Valid CSS Driven by DokuWiki