Перехват ALT+F4 Delphi приложением

← →
Nark (2003-03-25 22:35) [0]

Подскажите плиз, как это сделать. По Ctrl+Alt+Del сделал, а по Alt+F4 не могу сделать так что бы не выключалось, а через Shut Down Windows перед выключением выполняла определенные действия.
Pavel

← →
Бобко Сергей (2003-03-26 06:28) [1]

А как насчет обрабатывать OnCloseQuery ?????
Что-нибудь типа CanClose:=False;

Чтобы прога чтото сделала перед выключением надо это писать в
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caNone;
end;

Поставишь как сейчас стои Action:=caNone;
и она ваще по Alt+F4 не закроется... тока задачу снимать...
обычно так и делают как << Бобко Сергей (26.03.03 06:28)
написал
if not CanClose then Action:=caNone;
а уж CanClose устанавливай в тру когда уже сделал все что те надо перед выходом сделать!

Перехват ALT+F4 Delphi приложением Найти похожие ветки