Programm Updaten

[CoRe.eXtreem]

weiß jemand wie ich das hier einbinde?

Delphi-Quellcode:

var f: Textfile; 
s1, s2, s3: Sting; 
begin 
    s1 := extractFilename(paramstr(0)); 
    s2 := ChangeFileExt(s1,'.ex_') 
    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);

Viele Grüße Core