27-03-2010, 10:22 PM
السلام عليكم
أولا نستدعي المكاتبات
تم
تم نقوم بإستدعاء الدالة
بالتوفيق :bye1:
أولا نستدعي المكاتبات
كود :
uses ShellApi,URLMonكود :
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);
begin
if DownloadFile(edit1.Text, edit2.Text) then
begin
ShowMessage('Télécharger avec succé');
ShellExecute(Application.Handle, PChar('open'), PChar(edit2.Text),
PChar(''), nil, SW_NORMAL)
end
else
ShowMessage('Erreur de téléchargement' + Edit1.Text)
end;