一个极简单的问题:程序如何随时退出?(20分)

  • 主题发起人 主题发起人 lixx
  • 开始时间 开始时间
L

lixx

Unregistered / Unconfirmed
GUEST, unregistred user!
我做了一个程序,有个启动条件是判断某个文件是否存在,如果存在,则继续启动,
如果不存在则退出程序.

我的做法是在主窗体的 Oncreate事件中用了下面的语法

if( not 文件存在) then
begin
showmessage('没有XXX文件,程序退出!');
exit; // 这句在这里可能不太合适,但该用什么语句?
end;
结果发现只是退出了主窗体的 OnCreate 这个函数 ,但整个程序并没有退出,
我该怎么办?用什么语句?

PS. Delphi中的Exit 与 C/C++的Exit的结果好像不太一样啊!
与 C/C++的 return 语句倒是挺像的!
 
application.terminate
 
用线程就可以了
 
接受答案了.
 
由于结帖时太大意了,只好再问一下!
>> pink_wt
我发现了在application.terminate之后语句照样可以运行,(但程序确实是退出了)

 
后退
顶部