B
bjicfan
Unregistered / Unconfirmed
GUEST, unregistred user!
如题！
您正在使用一款已经过时的浏览器！部分功能不能正常使用。
请尝试升级或使用 其他浏览器。
请尝试升级或使用 其他浏览器。
H
HIGOAL
Unregistered / Unconfirmed
GUEST, unregistred user!
try
---
except
你的事件
exit
end
---
except
你的事件
exit
end
B
bjicfan
Unregistered / Unconfirmed
GUEST, unregistred user!
可能理解错了，我是说在程序被外部程序终止时执行的事件。
J
jzx
Unregistered / Unconfirmed
GUEST, unregistred user!
我的设想是你用另一个程序B调用这个程序A并一直等待A的终止
如果A正常终止，B可以得到一个A发出的消息正常退出
如果A被强制退出，B没有得到消息，则处理相关事件.
A只能由B来调用才能执行
这样，可能符合你的需求。
如果A正常终止，B可以得到一个A发出的消息正常退出
如果A被强制退出，B没有得到消息，则处理相关事件.
A只能由B来调用才能执行
这样，可能符合你的需求。
F
fu_qi_ming
Unregistered / Unconfirmed
GUEST, unregistred user!
在form的onclosequery事件中写入你要执行的事件;
B
bubble
Unregistered / Unconfirmed
GUEST, unregistred user!
应该写在form.OnDestroy里面
张
张无忌
Unregistered / Unconfirmed
GUEST, unregistred user!
有的时候程序死了，就是onDestroy事件都不起作用！
P
peng_qs
Unregistered / Unconfirmed
GUEST, unregistred user!
bubble说的对.
R
rainxy2002
Unregistered / Unconfirmed
GUEST, unregistred user!
Procedure OnError(...);
Begin
{do your Event}
End;
Initialization
Application.Exception := OnError;
End;
Begin
{do your Event}
End;
Initialization
Application.Exception := OnError;
End;
D
drawpharos
Unregistered / Unconfirmed
GUEST, unregistred user!
听课
超
超级番茄
Unregistered / Unconfirmed
GUEST, unregistred user!
在这个Application运行前再运行一个程序，当死了后，
Application可以检测出窗口消失，在做相应的动作。
Application可以检测出窗口消失，在做相应的动作。
F
feb21
Unregistered / Unconfirmed
GUEST, unregistred user!
可以另外写一个当前程序的守护程序（进程），用WINDOWS的消息机制来实现异常捕获，然后触发你需要的行为。
W
wind2000
Unregistered / Unconfirmed
GUEST, unregistred user!
public
procedure AppException(Sender: TObject; E: Exception);
...
procedure TForm1.AppException(Sender: TObject; E: Exception);
{错误陷阱}
var
sMsg : string;
begin
sMsg := '你死定了，乱搞破坏！';
ShowMessage(sMsg);
{在这里做你想做的事情}
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnException := AppException; //设置错误陷阱
...
end;
procedure AppException(Sender: TObject; E: Exception);
...
procedure TForm1.AppException(Sender: TObject; E: Exception);
{错误陷阱}
var
sMsg : string;
begin
sMsg := '你死定了，乱搞破坏！';
ShowMessage(sMsg);
{在这里做你想做的事情}
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnException := AppException; //设置错误陷阱
...
end;
B
beamgx
Unregistered / Unconfirmed
GUEST, unregistred user!
public
procedure ABC_EXIT(M:TMessage) WM_EXIT; //截取EXIT消息
...
procedure TForm1.ABC_EXIT(M:TMessage) ;//响应EXIT消息
begin
ShowMessage('你死定了，乱搞破坏！');
//enter your code
application.te....... //程序退出，否则........
end;
procedure ABC_EXIT(M:TMessage) WM_EXIT; //截取EXIT消息
...
procedure TForm1.ABC_EXIT(M:TMessage) ;//响应EXIT消息
begin
ShowMessage('你死定了，乱搞破坏！');
//enter your code
application.te....... //程序退出，否则........
end;
P
pluto_l
Unregistered / Unconfirmed
GUEST, unregistred user!
关注
B
BADBOYNET
Unregistered / Unconfirmed
GUEST, unregistred user!
在OnCloseQuery中寫就好了