مرجع توابع دلفی

[بهروز عباسی]

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                                                                    

SourceFile = 'http://www.somesite.com/somefile.jpg'; 

DestFile = 'c:\somefile.jpg'; 

begin 

if DownloadFile(SourceFile, DestFile) then 

begin 

ShowMessage('Download succesful!'); 

ShellExecute(Application.Handle, PChar('open'), PChar(DestFile), 

PChar(''), nil, SW_NORMAL) 

end 

else 

ShowMessage('Error while downloading ' + SourceFile) 

end;