程序初始化时用什么退出程序? 如下:在application.run还未执行前,我先进行数据库的连接,如连不上退出系统,可是用application.terminate不行,"非法操作",应该用什么退出程序。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 {$R *.res}begin Application.Initialize; with TfrmSplash.Create(Application) do try Application.Title := 'XXXXX管理系统'; Application.CreateForm(TfrmMain, frmMain); Application.CreateForm(TDmsys, Dmsys); finally Free; end; with TfrmLogin.Create(Application) do try ShowModal; finally Free; if ModalResult = mrOK then Application.Run else begin Dmsys.Free; frmMain.Free; Application.Terminate; end; end;end.————————————————————————————不是高手,跟我混。▲▲▲▲寻觅尘封的往事,想念重现。那一段曾经陪你走过的从前,感觉还是没变,我珍惜这份缘。 try你的程序exceptApplication.Terminate;end; 你application都还没有run,那来的Application??直接 Exit; 同意crossbow(La Vida Es Amor),exit Delphi5工程转移到Delphi7上出现问题 基于Delphi的“八皇后”问题动态实现 为什么在新建的Mdi Application中主窗口放置的按钮在子窗口中也会出现,好像子窗口是透明的一样? 大家给个意见吧顺便散散分 还是关于成绩库排序问题? [求助]实例的建立问题 散分贴:偶找到新工作了~~ Zlib 可以压缩文件夹吗? 金蝶在沪建研发基地 3年内扩招1000软件工程师 请问各位大哥大姐:哪有Sybase for Linux的中文资料 ?急需啊!!! 请问TMASKEDIT控件的EDBEditError怎么使用 简单的ado问题(在线待)
{$R *.res}begin
Application.Initialize;
with TfrmSplash.Create(Application) do
try
Application.Title := 'XXXXX管理系统';
Application.CreateForm(TfrmMain, frmMain);
Application.CreateForm(TDmsys, Dmsys);
finally
Free;
end;
with TfrmLogin.Create(Application) do
try
ShowModal;
finally
Free;
if ModalResult = mrOK then
Application.Run
else
begin
Dmsys.Free;
frmMain.Free;
Application.Terminate;
end;
end;
end.————————————————————————————
不是高手,跟我混。▲▲▲▲
寻觅尘封的往事,想念重现。那一段曾经陪你走过的从前,感觉还是没变,我珍惜这份缘。
你的程序
except
Application.Terminate;
end;