后台监控软件在关机时提示"立即结束",如何解决??? ( 积分: 200 )

Z

zjhare

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-03-15

• #1

后台监控软件在关机时提示"立即结束",如何解决??

我用sleep(3000),来延时的!!

 

R

rwlin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-03-15

• #2

你需要处理关机事件

 

N

nicai_wgl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-03-15

• #3

关机时，系统会给每个应用程序发WM_CLOSE的消息，你可以在这个消息里面判断。

 

X

xfast

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-03-15

• #4

TForm1 = class(TForm)
private
procedure WMQueryEndSession(var Msg: TWMQueryEndSession); message WM_QUERYENDSESSION;
end;

procedure TForm1.WMQueryEndSession(var Msg: TWMQueryEndSession);
begin
if MessageDlg('是否立即结束？', mtConfirmation, [mbYes, mbNo], 0) = mrNo then
Msg.Result := 0 //不关机
else
Msg.Result := 1;//关机
end;
end.

 

Z

zjhare

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-03-16

• #5

我的程序是无窗体程序，
用procedure WMQueryEndSession(var Msg: TWMQueryEndSession); message WM_QUERYENDSESSION;
提示：message 什么错误，
直接判断消息时，得不到WM_QUERYENDSESSION消息，为什么？？

我的源码：
//响应关机消息
procedure WMQueryEndSession(var Mes: TMessage);
begin
if (Mes.Msg = WM_QUERYENDSESSION) or (Mes.Msg = WM_DESTROY) or
(Mes.Msg = WM_CLOSE) or (Mes.Msg = WM_QUIT) then
begin
// inherited ;
showmessage('要关机了！');
mes.result:=1;
halt(0);
end;
end;

 

B

bbscom

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-03-16

• #6

procedure QueryEndSession(var Msg:TMessage);Message WM_QueryEndSession;

procedure QueryEndSession(var Msg:TMessage);
begin
ShowMessaage('提示：系统关机。');
Msg.Result:=1;
end;

 

网

网中戏

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-03-16

• #7

[]是木马程序！

 

Z

zqw0117

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-03-16

• #8

楼主的程序有没有监听消息的隐藏窗口呢？可以把这段代码放在隐藏窗口的WndProc函数中处理。

 

Z

zjhare

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-03-16

• #9

是不是没有窗体就不能监听消息啊？？