Как дезактивировать Alt+F4

[mavlon_m]

Привет всем!

Скажите пожалуйста, как сделать чтобы пользователь не смог закрыть программу с клавиш Alt + f4

[raxp]

обрабатывать сообщение формы onclosequery


UPD
---------------
ot mihali4

[Alex2009]

Как отключить Alt+F4
1)В событие формы OnCloseQuery задайте CanClose := false
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose := false;
end;
2)
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if my_flag = false then CanClose := false;
end;
где my_flag - глобальная переменная. Она всегда false, а в true устанавливается только в событии нажатия кнопки "Отмена".
3)
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if my_flag = false then CanClose := false;
end;
CanClose := my_flag;
4)
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (Shift = [ssAlt]) and (Key = VK_F4) then Key := 0;
end;
5)
TForm2 = class....
...
procedure WMSYSCOMMAND(var Msg: TWMSysCommand); message WM_SYSCOMMAND;
...
procedure TForm2.WMSYSCOMMAND(var Msg: TWMSysCommand);
begin
if Msg.CmdType <> SC_CLOSE then inherited;
end;

[mihali4]

Да что ж вы звереете-то?
Это же делается элементарно:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if ((ssAlt in Shift) and (Key = VK_F4)) then
Key := 0;
end;

З.Ы. Пардон, не заметил... Alex2009 уже привел такой вариант.
Просто с первого взгляда я подумал, что это он по шагам расписал

[Dj_SheLL]

А как сделать на сочетание вызвать обработку чего-то?Только через хук или можно через procedure TForm1.FormCloseQuery?