判断文件是否存在问题.

Question

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内容公告代码..

Answer 1

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

Answer 2

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

Answer 3

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

Answer 4

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;

Answer 5

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;