unit Unit1;
interface
uses
  SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, Forms, Dialogs;
type
  TForm1 = class(TForm)
  private
  procedure WMQueryEndSession(var Message: TWMQueryEndSession); message WM_QUERYENDSESSION;
  public
    { Public declarations }
  end;    var
  Form1: TForm1;    implementation
{$R *.DFM}    procedure TForm1.WMQueryEndSession(var Message: TWMQueryEndSession);
begin
  inherited;
  if MessageDlg('確定要關閉？', mtConfirmation, [mbYes, mbNo], 0) = mrNo then
  Message.Result:=0;                                                 
end;    end.