Thema: Delphi Progress bar anzeige

Einzelnen Beitrag anzeigen

Benutzerbild von XXcD
XXcD

Registriert seit: 19. Sep 2006
581 Beiträge
 
Delphi 2007 Professional
 
#4

Re: Progress bar anzeige

  Alt 27. Sep 2006, 19:20
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;
  Mit Zitat antworten Zitat