Программа в трее!

[mersedes-great]

Я написал простенькую программу которая висит в трее. Но когда я выключаю компьютер прога не завершается и так и висит там. Компьютер выключается только когда в самой проге нажать выход. На какое событие надо прописать выход, чтобы при выключении компа она корректно завершалась?
----------------
Подскажите плиз

 

[Silver Wind]

TfmMain = class(TForm)
...
private
procedure OnCompOff(var Msg:TMessage); message WM_QUERYENDSESSION;
...
end;

...
implementation
...

procedure TfmMain.OnCompOff(var Msg:TMessage);
begin
Close;
Msg.Result:=1;
end;

 

[etc]

Close;

Надо бы еще в клозквери посмотреть, а то всякое бывает.

 

[Silver Wind]

Ну это я в минимальном варианте привел, а так, да, если нужно, можно еще специальный флаг предусмотреть для того, чтобы CloseQuery отрабатывал без запроса к пользователю.