有關Window關機的問題

發文回覆瀏覽次數：1088

推到 Plurk!

推到 Facebook!

缺席

tokiama
一般會員

發表：34
回覆：60
積分：23
註冊：2009-04-19

發送簡訊給我

#1 引用回覆回覆

發表時間：2010-06-09 11:52:29

IP:125.231.xxx.xxx 未訂閱

請問一下各位前輩有關 Window 關機的問題。

我想在電腦關機時能出現訊息或是讓 Window 不要關機或是停一下再關機。

訊息是可以秀出來，不過消失的太快了...

然後 FormCloseQuery 這段好像沒有執行到，請問一下各位前輩要怎麼辦？

[code delphi]
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;

type
TForm1 = class(TForm)
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
private
{ Private declarations }
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
Message.Result:=0;
showmessage('XXX');
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose:=True;
if MessageDlg('確定退出程式？',mtInformation, mbOKCancel, 0)=mrCancel then
CanClose:=False;
end;
end.
[/code]

編輯記錄

tokiama 重新編輯於 2010-06-09 11:53:15，註解無‧
tokiama 重新編輯於 2010-06-09 12:45:25，註解無‧
tokiama 重新編輯於 2010-06-09 12:46:04，註解無‧
tokiama 重新編輯於 2010-06-09 13:05:39，註解無‧
tokiama 重新編輯於 2010-06-09 13:06:09，註解無‧

系統時間：2024-05-02 1:05:51

聯絡我們 | Delphi K.Top討論版

本站聲明

1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！