Program açıkken bilgisayar kapanmıyor

[KarizMan]

Merhabalar;
Benim projede kullanıcı kapatmak isteyip çarpıya basınca, msn'deki gibi taskbara yolluyorum programı ve gizliyorum.

Kod: Tümünü seç

frmAna.Hide;
Action:=caNone;

bu şekilde yapıyorum. Fakat program açıkken bilgisayar kapatılmak istenirse kapanmıyor. Bunu nasıl düzeltirim.
İyi çalışmalar

[mussimsek]

Windows kapanırken tüm pencerelere bir mesaj gönderir. İsmini şu an hatırlamıyorum ama forumda bahsi geçmişti. Aratırsan bulabilirsin.

Bu mesajı yakalayıp programını kapatman lazım.

Kolay gelsin.

[KarizMan]

Teşekkürler hocam, dediğinizi bi araştırayım.
İyi çalışmalar

[hdayi]

Ben şöyle bi procedur eklemişim zamanında

Kod: Tümünü seç

procedure TForm1.WMSysCommand(var Msg: TWMSysCommand);
begin
    if (Msg.CmdType = sc_minimize) or (Msg.CmdType = sc_close) then
         //minimize etmek için komutlar
    else begin

        if Msg.CmdType = SC_MAXIMIZE then

        else DefaultHandler(Msg);
    end;
end;

çarpıya basınca kapatmıyor programı, sadece kodla close diyince kapatıyor.

[Hakan Can]

Ana Formun OnClose eventine şöyle bir kod yazarak dener misiniz?

Kod: Tümünü seç

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if Visible then
  begin
    Hide;
    Action := caNone;
  end;
end;

İyi çalışmalar

[KarizMan]

Arkadaşlar,
Hala bir çözüm bulamadım şu işe. Wm_endsession mesajını yakalayıp pprogramı kapatıyorum. fakat bilgisayar kapanmıyor yinede. Program kapandıktan 2 , 3 saniye sonra bilgisayarın kapanma işlemi sonlanıyor ve açık kalıyor bilgisayar.
Buna bir çözüm bulan var mı acaba?
iyi çalışmalar

[ofenX]

Merhaba,
aşağıdaki linke bir göz atın.
viewtopic.php?t=802

kolay gelsin.

[mussimsek]

Eğer formunuzun OnCloseQuery kısmında kod varsa o WM_QUERYENDSESSION mesajını yakalayıp kapatırken, kapanmayı engelliyormuş, varsa kodu kaldırın.

Kolay gelsin.

[KarizMan]

Hocam formun onclose olayında üstte yazdığım 2 satırlık kod var. msndeki gibi çarpıya basınca gizleniyor. Bilgisayarın kapandığını anlamak için WMQueryEndSession mesajını ve WMEndSession mesajını yakalayıp programı kapatıyorum fakat windows kapanmıyor. Bunu nasıl çözerim?
İyi çalışmalar

[heskin35]

Aynı programı başka bi sistemde denediniz mi ? Sistem ile ilgili bi kararsızlık olabilir mi diye aklıma geldi hocam.