uses urlmon;
function DownloadFile(Source, Dest: string): Boolean; //下载文件的函数
begin
try
Result := UrlDownloadToFile(nil, PChar(source), PChar(Dest), 0, nil) = 0;
except
Result := False;
end;
end;
uses urlmon;
function DownloadFile(Source, Dest: string): Boolean; //下载文件的函数
begin
try
Result := UrlDownloadToFile(nil, PChar(source), PChar(Dest), 0, nil) = 0;
except
Result := False;
end;
end;