Ich denke so in etwa müsste dass sein. Ich kann das programm ausführen und benutzen aber er speichert immer nur eine dw.zip in das angegebene archiv. Hier mal mein Code
[/quote] procedure TForm1.Button3Click(Sender: TObject);
var
Datei,Ziel
Char;
dw: string;
begin
if ListBox1.ItemIndex > -1 then
dw := ListBox1.Items[ListBox1.ItemIndex];
Label1.Caption := 'Download gestartet';
try
Datei := 'http://redeyes.re.ohost.de/dowloads/'+'dw'+'.zip';
Ziel := 'C:\'+'dw'+'.zip';
UrlDownloadToFile(nil, Datei, Ziel, 0, nil);
Label1.Caption := 'Download beendet';
except
showmessage('Download abgebrochen');
end;
end;
end.[quote]
Ich hoffe du kannst mein Fehler eventuell sehen....
Danke jetzt schon...