Einzelnen Beitrag anzeigen

Dr.Delphi

Registriert seit: 17. Apr 2009
2 Beiträge
 
#1

Befehl Bei Appstart ausführen

  Alt 18. Apr 2009, 14:29
Hallo ich möchte das mein programm bei start eine datei herunterlädt
mein code sah bisher so aus
Delphi-Quellcode:
procedure TForm2.FormCreate(Sender: TObject);
   var
  Datei,Ziel:PChar;
begin
  Label1.Caption := 'Download gestartet';
  try
    Datei := 'www.test.de\beispiel.txt';
    Ziel := 'beispiel.txt';
    UrlDownloadToFile(nil, Datei, Ziel, 0, nil);
    Label1.Caption := 'Download beendet';
  except
    showmessage('Download abgebrochen');
 end;
soweit so gut aber er lädt die runter und man sieht erst nach herunterladen die form
wie kann ich das ändern denn ich möchte einen downloadstatus einbauen.
  Mit Zitat antworten Zitat