如何在程序启动时中止程序?

F10 2002-07-21 06:37:16
在程序开始时,设一个判断条件(例如主要数据文件是否存在),如果为非,则直接退出程序;如果为真,则进入程序。
但直接在Create时exit是无用的,应该怎样?
...全文
29 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
acqy 2002-07-21
  • 打赏
  • 举报
回复
SendMessage (Self.Handle, WM_CLOSE, 0, 0);
Seaman_Wang 2002-07-21
  • 打赏
  • 举报
回复
在项目文件(*.dpr) 中的应用程序初始化部分,加上如下代码:
Application.Initialize; //初始化
if .... then //
Application.CreateForm(TForm1, Form1)
else
Application.Terminate;
Application.Run;
F10 2002-07-21
  • 打赏
  • 举报
回复
非常感谢!
jerrymousenet2 2002-07-21
  • 打赏
  • 举报
回复
你用Application.Terminate;即可退出程序,

5,388

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧