04-22-2012، 11:41 AM
با سورس زیر که در دلفی نوشته شده است میتونید یک برنامه رو دانلود کنید فقط کافیه تابع زیر رو فراخوانی کنید :
کد:
function DownloadURLToFile(const URL, FileName: string): Boolean;
begin
// URLDownloadFile returns true if URL exists even if file not created
// hence we also check file has been created.
Result := Windows.Succeeded(
UrlMon.URLDownloadToFile(nil, PChar(URL), PChar(FileName), 0, nil)
) and SysUtils.FileExists(FileName);
end;