delphi关闭程序

Question

我现在在DataModule单元中写了一段代码，中间有个try..except...end   在try执行不成功的时间，在EXCEPT中要退出整个程序，这样用Application.Terminate;会提示未定义变量APPLICATION，没法退出整个程序。  Application.Initialize;
  Application.CreateForm(TDataModule2, DataModule2);
  Application.CreateForm(TFwe, Fwe);
   …………中间会加载好多窗体......
  Application.Run;因为DataModule2,中出现错误我要让整个程序退出，不然还会加载下面的窗体，继续提示好多错误，谁能告诉我怎么关闭整个程序

Answer 1

呵呵，引用下FORMS单元,好了，不知道这样解决完美不，还有不知道大家在DataModule中想退出程序是怎么操作的

Answer 2

try
  //出错代码
except
  Application.Terminate;  // PostQuitMessage(0);  //Halt;
  Exit;
end;

Answer 3

Application.Terminate是正常退出，就是说要等到Application.Run執行结束后才会退出程序
可以用halt非正常退出,后面的CreateForm就不会执行了