Danke das war der Fehler, Programm funktioniert.
Für spätere hier nochmal Quelltext
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var Ziel,Datei:
string;
i:Integer;
begin
For i:=1
to 168
do
begin
try
Datei := Format('
http://wowdata.buffed.de/img/icons/wow/64/inv_potion_%d.png',[i]);
Ziel := '
C:\Documents and Settings\User\Desktop\Neuer Ordner\'+ InttoStr(i) + '
.png';
UrlDownloadToFile(
nil, PAnsiChar(Datei), PAnsiChar(Ziel), 0,
nil);
except
on E:
Exception do
MessageBox(
Handle,PAnsiChar(E.
Message),'
Fehler',MB_OK
or MB_ICONERROR);
end;
end;
Nochmals vielen dank problem gelöst