Delphi如何防止windows關機 http://delphi.cxc.cc/jiqiao/019.htm 關鍵是捕獲消息WMQueryEndSession 並另其強制返回0 下面是代碼 unit Unit1; interface uses Windows, Messages, SysUtils, 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 W M_QUERYENDSESSION; public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.WMQueryEndSession( var Message: TWMQueryEndSession); begin Message.Result:=0; end; procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean); begin CanClose := True; if MessageDlg('確定退出程式？',mtInformation, mbOKCancel, 0) = mrCancel th en CanClose := False; end; end. ********************************************************* 哈哈&兵燹 最會的2大絕招 這個不會與那個也不會 哈哈哈 粉好 Delphi K.Top的K.Top分兩個字解釋Top代表尖端的意思,希望本討論區能提供Delphi的尖端新知 K.表Knowlege 知識,就是本站的標語:Open our mind to make knowledge together! 希望能大家敞開心胸,將知識寶庫結合一起

------
**********************************************************
哈哈&兵燹
最會的2大絕招 這個不會與那個也不會 哈哈哈 粉好

Delphi K.Top的K.Top分兩個字解釋Top代表尖端的意思,希望本討論區能提供Delphi的尖端新知
K.表Knowlege 知識,就是本站的標語:Open our mind