kapanma problemi

[loxka]

selamlar,
Hazırladığım program bir tür alarm programı. Windowsu açınca kendi aktifleşiyor.
Sorunum Programı kapatmadan windowsu kapatamıyorum. benim istediğim windowsu kapattığımda oda kapansın.
sistem xp
teşekkürler

[mussimsek]

Merhaba,

programdan her türlü Windows mesajını yakalıyabilirsiniz. Windows kapanırken, ben kapanıyorum diye bir mesaj yayınlar. Bunu yakalayıp, programı sonlandırabilirsiniz. İsmini bulunca gönderiririm buraya.

Kolay gelsin.

[loxka]

Volla hocan kodu yollarsanız memnun olurum tıkandım kaldım doğrusu

[mussimsek]

WM_QUERYENDSESSION mesajı imiş. Bunu yakalayıp, programı kapatabilirsin.

Kolay gelsin.

[loxka]

Şöyle bir kod buldum ve derlemeye çalıştım ama olmadı yardımcı olabilecek varmı acaba?
......................................
private
procedure WinShutDown(var Msg: TWMEndSession); message WM_QUERYENDSESSION;
.......................................
procedure TForm1.WinShutDown(var Msg: TWMEndSession);
begin
//Msg.Result := Integer(False); //Kapatılmasını istemiyorsanız
Msg.Result := Integer(True); //Kapatılsın diyorsanız
end;