windowsun kapandığı mesajı...

[aslangeri]

s.a.
arkadaşlar benim şöle bi problemim var.
trayda çalışan bir prg. onclosequery de bi takım kontroller yapıp ona göre kapatıyorum yada kapatmıyorum.
windows kapanırken bu kontrolleri pas geçsin istiyorum.
onun içinde windowsun kapandığı mesajını yakalamak istiyorum.
nasıl yapabilirim. yada ne yapmalıyım.
teşekkürler.

[fduman]

Şöyle birşey var.

http://www.swissdelphicenter.ch/torry/s ... php?id=351

Kodu:

Kod: Tümünü seç

{
  To detect a Windows Shutdown, you must trap the
  WM_EndSession message.
  Declare a message handling procedure in your Form's Private section.

  Um herauszufinden, ob Windows heruntergefahren wird, muss
  die WM_EndSession abgefangen werden.
}


type
  TForm1 = class(TForm)
  private
    procedure WMEndSession(var Msg: TWMEndSession); message WM_ENDSESSION;
  public
  end;

implementation

{$R *.DFM}

procedure TForm1.WMEndSession(var Msg: TWMEndSession);
begin
  if Msg.EndSession = True then
    ShowMessage('Windows is shutting down!');
  inherited;
end;

[aslangeri]

eyvallah lordum.
deniyeceğim. sonucu bildiririm inş.

[webaytek]

peki güzel de windows'un kapanmasını bekletip - prog'dan çıkan soru'ya verilen cevaba göre kapatmaya devam etmesine veya kapatmayı iptal etmesini nasıl sağlayacağız ??
if showmessagedlg() ile evet ise kapat hayır ise kapatma gibi

[aslangeri]

öyle bir şey yok kardeş. (benim için)
Mesajı yakalayınca önce beğlantıları sonra programı kapatacağım.
kullanıcı ile bi işim yok senin anlıyacağın. Adamlar programı kapatmaya eriniyorlar.(biraz da bilgi eksikliği var tabi.)

[webaytek]

kolay gelsin - tabi sizin sorunuzun arasına limon oldum - ama ben kendim için istemiştim kodu - yine de istediğim kodu verebilen varsa teşekkür ediyorum - size de kolay gelsin @aslangeri

[AReS]

Aslinda Shutdown.exe ve a.bat dosyasını program içine yukleyip shutdown.exe -a komutunu yolllarsak pc kapanmaktan vaz geçecektir ister istemes Kolay gele