求助大家!又是我~~~10.7日前想要找到答案！(50分)

N

nicet

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-02

• #1

问题: 我做了一个.exe的程序,现在需要增加一个类似使用“网络蚂蚁”中，如果关闭计算<br>&nbsp; &nbsp; &nbsp;机时可以有提示的功能。<br>具体点说也就是当我这个.exe程序正在运行的过程中，如果用户直接关闭计算机<br>（“开始”菜单--“关闭系统”--“关闭计算机”）的时候（也就是说此时<br>这个.exe程序还在运行，还没有退出）。此时系统将会弹出一个提示框：“xxx正在运行，<br>您是否真的要退出”。我要增加这个提示功能应该如何实现呢。请各位前辈帮忙！[]<br>

 

L

looking

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-02

• #2

[]又见到你啦,MM,放假了还要写程序啊,不休息休息嘛<br>我想大致应该在我这个.exe的工程文件中加上一个可以拦截windows系统关闭消息的程序，<br>然后显示这个提示框。但是具体怎么写不知道。或者可能还有别的更好的办法。<br>

 

E

expect

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-02

• #3

这个问题有人问过,也有人答过.

 

N

nicet

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-02

• #4

expect,是嘛，可以告诉我url嘛，谢谢了

 

C

chinarenren

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-02

• #5

怎么实现，我也很想知道。

 

S

snappy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-02

• #6

在CloseQuery中加入语句就可以了。<br>在这里你可以增加一个变量，用来判断是你的程序要求退出的还是系统关闭要求退出的，<br>然后在写一个选择语句就可以了，如果你CanClose始终返回False，那Windows就关闭不了了<br>我在Windows98下试过。

 

W

wheel

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-02

• #7

这样:[]<br>procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);<br>begin<br>&nbsp;if MessageBox(0,'当前程序正在运行,是否退出？','',MB_YESNO)=IDYES then<br>&nbsp; &nbsp;CanClose:=True<br>&nbsp;else<br>&nbsp; &nbsp;CanClose:=False;<br>end;

 

N

nicet

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-02

• #8

wheel,我试试看!

 

W

wheel

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-02

• #9

呵呵,是MM？<br>DFW上才女很难找呀,给个QQ如何？[]

 

N

nicet

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-03

• #10

[]wheel,谢谢你啊,你的方法我试过了,可以的。没办法，现在女的写程序也不容易，所以<br>我工作中遇到什么问题就上这里来求助各位前辈了。<br>&nbsp; 以后我还会来的，请各位多多关照，我的oicq:52900413。

 

A

alac

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-03

• #11

想法与Wheel一样：<br>procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);<br>begin<br>&nbsp;if MessageBox(0,'当前程序正在运行,是否退出？','',MB_YESNO)=IDNO then abort;<br>end;<br>

 

X

xianjun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-03

• #12

如果有窗体的话就用wheel的方法：<br>procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);<br>begin<br>&nbsp; CanClose := MessageBox(0,'当前程序正在运行,是否退出？','',MB_YESNO)=IDYES;<br>end;<br>没有的话就拦消息好了：WM_QUERYENDSESSION、WM_ENDSESSION<br>

 

N

nicet

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-03

• #13

多谢各位[]

 

W

wheel

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-03

• #14

千万不要叫我前辈.[]<br>另外,你的QQ不加好友没关系,这问题还是结果了先吧,我的本轮得分还是0呢.[]

 

R

RainySoft

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-04

• #15

呵呵，其实在onclose事件写入相似的代码，好象也可以耶！

 

N

nicet

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-04

• #16

其实我也很穷啊[],其实有个oicq的话会很方便的,你说呢?分数我会给您的,请您别急。<br>

 

N

nicet

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-04

• #17

哇！wheel，刚才看了你的积分，才知道你是这里的大户啊，和你相比我真的是很穷啊<br>我几乎是靠这里每一天救济的5分来过日子的[]，这样一来你就更不要急了，分数肯定<br>是会给你的[]。

 

T

TYZhang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-04

• #18

好像来迟了,还有个办法,截获消息:<br>procedure WMQueryEndSession(var Msg: TMessage);message WM_QueryEndSession;<br><br>Procedure TMainForm.WMQueryEndSession(var Msg: TMessage);<br>begin<br>&nbsp; MessageBox(0,'当前程序正在运行,是否退出？','',MB_YESNO);<br>&nbsp; Msg.Result :=1;<br>end;<br><br>

 

N

nicet

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-04

• #19

TYZhang,你这个方法和他们的有什么不同?

 

T

TYZhang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-04

• #20

他专用于俘获系统关闭消息的.