Ich zeig hier mal den Quelltext. Wenn es jemand bereit wäre mir zu sagen wie ich jetzt ne anzeige da rein bekomme wieviel Prozent fertig sind und den Balken auch, dann wäre ich sehr dankbaer. Hier ist der Quelltext:
Delphi-Quellcode:
procedure TForm6.Button1Click(Sender: TObject);
var
sLauftext, sTmp: string;
var i: Integer;
var p:integer;
var
Datei,Ziel:PChar;
var
testo, testen: string;
begin
try
p:=1;
Datei := 'http://*-free.com/update/K*****at.exe';
Ziel := 'C:\Dokumente und Einstellungen\All Users\Desktop\K*****t.exe';
UrlDownloadToFile(nil, Datei, Ziel, 0, nil);
for p:=1 to 100 do
begin
progressbar1.StepBy(p);
delay(40);
end;