update eures eigenen Programms: vorgehensweise

[Luckie]

Zitat von Schubi:

Bat-Dateien sinf recht praktisch für sowas!
Die kannst du z.B. direkt von deiner Homepage downloaden und lokal ausführen.

Delphi-Quellcode:

batchname := Pfad_Lokal+'Update.bat';

FileSetAttr(Pfad_Lokal+'TTS_Starter.exe', 0);
batchfile := TStringList.Create;
with batchfile do
begin
  try
    Add('@Echo off');
    Add(':Label1');
    Add('del "'+Pfad_Lokal+File1+'"');  //Löscht die alte Datei
    Add('copy "' + Pfad_Netz + File1 + '" "' + Pfad_Lokal + File1 + '"');  //Kopiert die Neue
    Add('if not Exist "' + Pfad_Lokal + File1 + '" goto Label1');  //Prüft, ob sie vorhanden ist
    Add(Pfad_Lokal + File1);  //Startet sie
    Add('del ' + batchname);  //und löscht die BAT
    SaveToFile(batchname);
    ChDir(ExtractFilePath(Application.ExeName));  
    WinExec(PChar(batchname), SW_HIDE);  //BAT starten
  finally
    batchfile.Free;
  end;
  Halt; //Programm beenden
end;

Was muss in Pfad_Netz stehen, damit das funktioniert? Ich habe es gerade in der Konsole versucht:

Code:

C:\Dokumente und Einstellungen\mp>copy "http://www.michael-puff.de/Developer/Delphi/Programme/ADSReader.zip" d:\adsreader.zip
[url]http://www.michael-puff.de/Developer/Delphi/Programme/ADSReader.zip[/url]
Die Syntax für den Dateinamen, Verzeichnisnamen oder die Datenträgerbezeichnung
ist falsch.
        0 Datei(en) kopiert.