关于终止application的问题???在线等 (100分)

如何在工程文件中,如何终止程序的运行.即首先创建了欢迎界面的窗体,然后在创建某个
窗体时,在该formcreate事件中出现了applcation.terminate,从而不进行后续的窗体创建,
直接终止程序并且要关闭释放欢迎界面的form.请教高手!!!
{$R *.res}
begin
frmlogo:=tfrmlogo.create(application); //欢迎界面
frmlogo.Show;
frmlogo.Update;

Application.Initialize;
Application.CreateForm(Tfrmmain, frmmain);---->在frmmain中的create事件中
//有applcation.terminate

Application.CreateForm(Tdm, dm); //如何不执行以下两句的窗体创建
Application.CreateForm(Tfrminfo, frminfo);

frmlogo.Close; //但是这个释放语句还是要执行的
frmlogo.Free; //释放欢迎界面

application.Run;

end.

applcation.terminate是对的
能不能说说你现在的情况（具体）？

if bok then
begin
Application.CreateForm(Tdm, dm); //如何不执行以下两句的窗体创建
Application.CreateForm(Tfrminfo, frminfo);
end;
frmlogo.close;
frmlogo.free;
if bok then application.run

-----
http://www.8421.org

bok 是什么意思??? 我的意思是,在frmmain中的formcreate事件中出现了
application.terminate,然后是想通过applicatino.terminated 属性来判断后续的创
建是否要执行.不过好像application.terminate后applicatino.terminated 仍然为false,
不能以此来决定后续的创建是否继续.然而下面有数据库连接模块,耗时比较久,我想frmmain
中一旦有application.terminate发生,后面的就不要执行,直接推出程序.不要让用户等太久
才退出

中间插一句Application.ShowMainForm := False;
fmlogo.Free后再加入MainForm.Show;

application.terminate是终止整个应用程序的执行，你的想法行不通吧？

顺便问一句：
用application.terminate会有一声“咚”，然后结束。
能让他不发此声音吗？（不得改windows设置）

用halt

{$R *.res}
定义一个全局变量ssss:Boolean;
begin
frmlogo:=tfrmlogo.create(application); //欢迎界面
frmlogo.Show;
frmlogo.Update;

Application.Initialize;
ssss:=True;
Application.CreateForm(Tfrmmain, frmmain);---->在frmmain中的create事件中
//有applcation.terminate
//在Onterminate时把ssss设为false
if ssss then //这样就可以避免下面两个窗体的创建
begin
Application.CreateForm(Tdm, dm); //如何不执行以下两句的窗体创建
Application.CreateForm(Tfrminfo, frminfo);
end;

frmlogo.Close; //但是这个释放语句还是要执行的
frmlogo.Free; //释放欢迎界面

application.Run;

end.

我已经解决了.方法同siyan一样.谢谢各位.