1. Bei mir wartet diese Prozedure
2. ist das doch nicht die, die du im Proggi hast, denn diese hat Fehler drin (nicht compilierbar)
Code:
IF FileExists(Programmverzeichnis + '\urftpclient.exe') THEN
Label1.Caption := 'updatedatei heruntergeladen'[color=red][b];[/b][/color]
ELSE
3. kann es sein. das die Datei (auf'm Server) nicht existiert?
...
Das dürfte eigentlich reichen:
Delphi-Quellcode:
PROCEDURE TForm1.FormCreate(Sender: TObject);
VAR Programmverzeichnis: STRING;
BEGIN
Programmverzeichnis := ExtractFilePath(Application.ExeName);
TRY
Label2.Caption := 'Alte Programmdatei wird gelöscht';
Application.ProcessMessages;
DeleteFile(Programmverzeichnis + '\UrFtpclient.exe');
Label1.Caption := 'Bitte warten!';
UrlDownloadToFile(NIL, 'http://www.a.toolsnfun.de/urftpclient.exe', PChar(Programmverzeichnis + '\urftpclient.exe'), 0, NIL);
IF FileExists(Programmverzeichnis + '\urftpclient.exe') THEN
Label1.Caption := 'updatedatei heruntergeladen';
EXCEPT
showmessage('Download abgebrochen');
END;
END;
[ADD]
Zitat:
Aber wie kann ich in einem Label anzeigen, dass der die Datei zur Zeit runterlädt?
Es nicht im OnCreate runterladen, sonder erst später - z.B. über einen Timer.
und dann :
Application.ProcessMessages;
Wir fragen dennoch, den wir lernen auch gern und von Fehlern lernt es sich am Besten.