请问如何捕捉到系统关机各重启？？？

HowardOK 2001-10-23 08:30:48

...全文

156 15 打赏收藏转发到动态举报

写回复

用AI写文章

15 条回复

切换为时间正序

请发表友善的回复…

发表回复

HowardOK 2001-10-26

打赏
举报

DeityFox 2001-10-26

打赏
举报

procedure WMQueryEndSession( var Message: TWMQueryEndSession); message WM_QUERYENDSESSION;

procedure TMainFrm.WMQueryEndSession(var Message: TWMQueryEndSession);
begin
Message.Result:=1;
gEndSession := True;
end;

(Set this for the CloseQuery event)

procedure TMainFrm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose := True;
if gQueryEnd and not gEndSession then
//加入处理事件
if MessageDlg('退出应用程序，确定吗?',
mtInformation, mbOKCancel, 0) = mrCancel then CanClose := False
end;

DeityFox 2001-10-26

打赏
举报

拦截关机消息请参考taxi(游少年)　

bubble 2001-10-26

打赏
举报

HowardOK 2001-10-26

打赏
举报

TO heartbeat_hb(随时):
我就是不懂得如何拦截关机消息！！

heartbeat_hb 2001-10-26

打赏
举报

拦截到关机消息时处理你要做的事。

hantao 2001-10-26

打赏
举报

blackfiles 2001-10-24

打赏
举报

HowardOK 2001-10-24

打赏
举报

我是想在系统关闭前做一些操作，就如瑞星杀毒软件一样！！

skydgg 2001-10-23

打赏
举报

up,上面这位老兄说的很对啊,

wenguang 2001-10-23

打赏
举报

调用系统函数：exitwindowsex(wflags,dwreserved);
其中wflags:ewx_force:强迫中止没有响应的的进程
ewx_logoff:中止进程
ewx_reboot:重新启动系统
exx_shutdown:关闭系统
dwreserved:0 是保留
你可以试一下。

taxi 2001-10-23

打赏
举报

procedure WMQueryEndSession(var msg:TMessage); message WM_QueryEndSession;

procedure TMainForm.WMQueryEndSession(var msg:TMessage);
begin
msg.Result:=1; //为1表示允许重启，为0表示不允许重启
end;

或者截获WM_EndSession消息

procedure TMainForm.WMEndSession(var msg:TMesssage);

guipei 2001-10-23