Programm Updaten

[himitsu]

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

so könnte es wohl geh'n:

Delphi-Quellcode:

var f: Textfile; 
s1, s2, s3: Sting;

Einfach diesen Teil nach dem Download deines Updates einfügen:

Delphi-Quellcode:

    s1 := extractFilename(paramstr(0)); 
    s2 := '"'+ExtractFilePath(s1) + 'Update\update.upd"';
    s3 := '"'+ChangeFileExt(s1,'.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, 'ren '+s2+' '+s1); 
    WriteLn(f, s1); 
    WriteLn(f, 'Erase '+s3); 
    CloseFile(f); 
    ShellExecute(handle,'open',PChar(s3),nil,PChar(ExtractFileDir(ParamStr(0))),SW_HIDE);

http://www.FrankNStein.de/Smiley-Kuss.gif * * http://www.FrankNStein.de/Smiley-Spinne.gif * * * http://www.FrankNStein.de/Smiley-Winken.gif