如何截获系统关机的请求？(50分)

W

wein

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-08

• #1

如何截获exitwindows或exitwindowsex发出的WM_QUERYENDSSION消息，并请求等待？

 

T

tomboy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-08

• #2

procedure wmqueryendssion(var msg:Twmqueryendssion);message WM_QUERYENDSSION;<br><br>procedure wmqueryendssion(var msg:Twmqueryendssion);<br>begin<br>...<br>end;<br><br>

 

U

unreal

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-08

• #3

方法很多<br>（1）放一个ApplicationEvent,在OnMessage中<br>procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;<br>&nbsp; var Handled: Boolean);<br>begin<br>&nbsp; if Msg.message = WM_QUERYENDSESSION then<br>&nbsp; &nbsp; PeekMessage(Msg,Msg.Hwnd,0,0,PM_REMOVE);//换成你要做的<br>&nbsp; inherited;<br>end;<br>（2）<br>关机时会激发Form的OnCloseQuery，设置CanClose可以决定是否关机。

 

W

wein

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-09

• #4

小生刚学delphi,能不能讲详细一点！！

 

徐

徐永进

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-09

• #5

tomboy讲的已经很详细了，在tform的声明里加入<br>procedure wmqueryendssion(var msg:Twmqueryendssion);message WM_QUERYENDSSION;<br>然后<br>procedure wmqueryendssion(var msg:Twmqueryendssion);<br>begin<br>...//你所需要的内容！！！！<br>end;<br>

 

W

wein

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-11

• #6

多人接受答案了。