我的程序如下:
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文件。但打开文件后,文件自动关闭不知道是怎么回事,请指教~!谢谢~!
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文件。但打开文件后,文件自动关闭不知道是怎么回事,请指教~!谢谢~!
是不是路径中用了FTP?
可以用Opendialog打开PDF文件嘛?
请帮帮忙,谢谢了~~!