Programm Updaten

[himitsu]

http://www.FrankNStein.de/Smiley-Wolke.gif Hallöle.

Diese Code erstellt die Batchdatei und Startet diese.
Die Batchdatei wartet dan bis das Progragramm beendet wurde, löscht dieses, copiert das Update und startet dein Programm wieder.

Da dieser Code aber nicht dafür gedacht war das Update aus einem Unterprogramm zu hollen, hatte ich nur noch das Verzeichnis im Code geändert.
Hab diesen Fehler jetzt behoben:

Delphi-Quellcode:

    s1 := Paramstr(0);
    s2 := ExtractFilePath(Paramstr(0)) + 'Update\update.upd';
    s3 := ChangeFileExt(Paramstr(0),'.bat');
    AssignFile(f, s3);
    ReWrite(f);
    WriteLn(f, '@echo off');
    WriteLn(f, ':1');
    WriteLn(f, 'Erase "'+s1+'"');
    WriteLn(f, 'If exist "'+s1+'" Goto 1');
    WriteLn(f, 'Copy "'+s2+'" "'+s1+'"');
    WriteLn(f, '"'+s1+'"');
    WriteLn(f, 'Erase "'+s3+'"');
    CloseFile(f);
    ShellExecute(handle,'open',PChar(s3),nil,PChar(ExtractFileDir(ParamStr(0))),SW_HIDE);

(aber nicht getestet)

http://www.delphipraxis.net/images/common/divider.jpg
http://www.FrankNStein.de/Smiley-Kuss.gif * * http://www.FrankNStein.de/Smiley-Spinne.gif * * * http://www.FrankNStein.de/Smiley-Winken.gif

[CoRe.eXtreem]

Erstmal fettes Lob aber jetzt kommt IO Error 32 :oops: . Sorry ich kapiere das aber noch nicht so ganz. Kannst du mir nochmal helfen :oops: :zwinker:


Jetzt weis ich wieso ich habe die ganze Procedure in eine ProgressBar gesetzt :pale:

Vielen Dank an euch alle!