Перехват нажатия кнопки Close Опции

[Altair]

требуется отловить нажатие, и не дать окну закрыться...
в DRKB не нашел... или плохо искал...

[Altair]

нашел.. DRKB

Перехват нажатия на системные кнопки формы (закрытие , минимизация окна и т.д.)

но это для своего окна,а для чужого ?

[volvo]

а для чужого ?

Как перехватывать события, посланные другим приложениям?

[Altair]

ну хорошо, это изврат, а можно кнопочку закрыть в окне каком-то чужом заблокировать\сделать неактивным?
что бы только кнопка свернуть осталась и развернуть..

[volvo]

 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;