我的程序如下:
Procedure TFrom1.button1click(Sender:TObject);
var
  str:string;
begin
  if edit1.text <> '' then
  begin
    str:='FTP://192.168.10.8/'+edit1.text+'.PDF';
    shellexecute(handle,'open',Pchar('Iexplore.exe'),Pchar(str),nil,SW_Show);
  end;
end;可以打我想要的PDF文件。但打开文件后,文件自动关闭不知道是怎么回事,请指教~!谢谢~!