在程序中下载指定文件，如http://www.abc.com/xyz.zip

Question

你用shellexecute试试,我现在没发测试,应该可以的把!

Answer 1

Uses URLMon, ShellApi; function DownloadFile(SourceFile, DestFile: string): Boolean; 
begin 
  try 
    Result :=  UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0, nil) = 0; 
  except 
    Result := False; 
  end; 
end; procedure TForm1.Button1Click(Sender: TObject); 
const 
  // URL Location 
  SourceFile = 'http://www.abc.com/xyz.zip'; 
  // Where to save the file 
  DestFile   = 'c:\temp\xyz.zip'; 
begin 
  if DownloadFile  (SourceFile, DestFile) then 
  begin 
    ShowMessage('Download succesful!'); 
    // Show downloaded image in your browser 
    ShellExecute(Application.Handle,PChar('open'),PChar(DestFile),PChar(''),nil,SW_NORMAL) 
  end 
  else 
    ShowMessage('Error while downloading ' + SourceFile) 
end; 

Answer 2

加个button,click事件上为:
ShellExecute(handle, ′open′, ′http://http://www.abc.com/xyz.zip
′, nil, nil, SW—SHOWNORMAL); 

Answer 3

请教sundayboys: URLMon, UrlDownloadToFile是Delphi自带的吗？

Answer 4

是，\lib下是dcu文件，\source\rtl\win下是pas文件。

Answer 5

我明白了，是API （Internet Client SDK），谢谢