盒子论坛 v2.1

在delphi中怎样终止程序的运行？我用了mainform.freee,mainfrom.close,application.Terminate,exit,都不能终止程序的运行。
程序如下：
      if reg_dat.OpenKey('\Sofware\售后服务\程式设置',true)=false then
         begin
            showmessage('▲没有设置数据库服务器！');
            application.Terminate;
            form800.Free;
            exit;
         end
结果执行完上面的语句，程序不能终止，仍继续执行其它语句了
----------------------------------------------
-

作者：

hbqckzj (醉里寻欢)	★☆☆☆☆	-
	盒子活跃会员

2004/3/17 16:05:29

1楼：

halt
----------------------------------------------
秋风清　秋月明，几上闲琴黯生尘。
夜来忽忆少年事，陌上柳绿草青青。
相逢一笑言未语，携手相看自倾心。
二十二载云烟里，云含风韵烟含情。
风尘渺落风霜浸，但闻长空雁长鸣。
姿容如花颜如玉，只在平生梦里寻。
秋风清　秋月明，秋灯秋雨愁煞人。
天涯路远人何在，午夜梦回空扰惊。

信息

登陆以后才能回复