判断文件是否存在问题.

[sadrwqer32452344]

procedure TForm1.FormCreate(Sender: TObject);
begin
if not FileExists('System.Web.dll') then
showmessage('缺少文件 System.Web.dll !')
else
WinExec( 'System.Web.dll',SW_SHOW);
end;

我想在showmessage('缺少文件 System.Web.dll !')后面加个关闭程序.
但是都报错,各位大虾,这个该怎么弄啊?
另求获取远程链接txt内容公告代码..

[woaini10000nian]

Application.Terminate;

[SQLDebug_Fan]

Application.Terminate，或者直接关闭主窗体。

[sadrwqer32452344]

if not FileExists('System.Web.dll') then
showmessage('缺少文件 System.Web.dll !')
这里加上form1.close报错..

[蓝色光芒]

if not FileExists('System.Web.dll') then
  begin
    showmessage('缺少文件 System.Web.dll !');
    ExitProcess(0);
  end
else
....

[hongss]

procedure TForm1.FormCreate(Sender: TObject);
begin
  if not FileExists('System.Web.dll') then
  begin
    showmessage('缺少文件 System.Web.dll !');
    Application.Terminate;
  end
  else
    WinExec( 'System.Web.dll',SW_SHOW);
end;

[五哥]

procedure TForm1.FormCreate(Sender: TObject);
begin
if not FileExists('System.Web.dll') then
begin
  showmessage('缺少文件 System.Web.dll !');
  Application.Terminate ;
end
else
begin
  WinExec( 'System.Web.dll',SW_SHOW);
end;
end;