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

Previous  Top  Next

    
 

 

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

Code:

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;

 

 

©Drkb::02144

Взято из http://forum.sources.ru