下载远程文件

 

uses urlmon;

procedure TForm1.Button1Click(Sender: TObject);
var
  url:Pchar;
  LocalFilePath:string;
begin
  LocalFilePath :=ExtractFilePath(application.ExeName)+'ServerList.txt';
  url := 'http://ver.bo.sohu.com/version/serverlist.txt';
  UrlDownloadToFile(nil, PChar(url),
     PChar(LocalFilePath), 0, nil);
  memo1.Lines.LoadFromFile(LocalFilePath);
end;