Beranda > Delphi > Detecting Windows Shutdown

Detecting Windows Shutdown

You can use the following procedure 
to detect if Windows is shutting 
down. If your application needs to 
save data before allowing the 
shutdown to continue you can do that,
then allow Windows to shutdown 
normally.

procedure TfrmMain.WMQueryEndSession(var Message : 
                                 TWMQueryEndSession);
begin
 // Let the inherited message handler respond first
 inherited;

 if DataHasChanged then begin
    MessageBeep(MB_ICONQUESTION);
    case MessageDlg('The current Windows 
           session is ending.  Save league changes?',
           mtConfirmation, [mbYes,mbNo,mbCancel],0) of
    mrYes    : begin
                //Your data-saving code or method 
                //call goes here
                Message.Result := 1;
               end;
    mrNo     : Message.Result := 1;
    mrCancel : Message.Result := 0;
      end; {case} end
   else
      Message.Result := 1;
end;
Iklan
Kategori:Delphi
  1. Belum ada komentar.
  1. No trackbacks yet.

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: