1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

function ANSI2ASCII(AText: String): String;
begin
  {$IFDEF WIN32}
    CharToOEM(@AText[1], @AText[1]); {32Bit}
  {$ELSE}
    AnsiToOEM(@AText[1], @AText[1]); {16Bit}
  {$ENDIF}

  Result := AText;
end;                    

1:

SList.Add('@if exist "' + Tmp + '" del "' + Tmp + '" /F');                    

1:

SList.Add('@copy "C:\Temp\Update.exe" "' + Tmp + '"');                    

1:
2:
3:
4:

SList.Text := ANSI2ASCII(SList.Text);
SList.SaveToFile('TempVerzeichnis\HDUpdater.bat');

ShellExecute(MainForm.Handle, 'open', 'TempVerzeichnis\HDUpdater.bat'), '', '', SW_SHOWNORMAL);                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

@echo off
echo Update...
mkdir "entfernt"
@if exist "entfernt" del "entfernt" /F
@copy "entfernt" "entfernt"
mkdir "entfernt"
@if exist "entfernt" del "entfernt" /F
@copy "entfernt" "entfernt"
mkdir "entfernt"
@if exist "entfernt" del "entfernt" /F
@copy "entfernt" "entfernt"
mkdir "entfernt"
@if exist "entfernt" del "entfernt" /F
@copy "entfernt" "entfernt"
Start "C:\Dokumente und Einstellungen\Username\Desktop\Test\Test.exe"                    

1:
2:

cd C:\Dokumente und Einstellungen\Username\Desktop\Test\
start Test.exe                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

Procedure UpdateVersion (aDownloadSource : String);
Var
  sAppPath : String;
  sAppName,
  sNewAppName,
  sOldAppName : String;

Begin
  sAppPath := ExtractFilePath (ParamStr(0));
  sNewAppName := 'NewVersion.EXE';
  sAppName := ExtractFileName (ParamStr(0));
  sOldAppName := StrReplace (sAppName, '.EXE','_OLD.EXE',[rfCaseInsensitive]);
// 1. Herunterladen der neuen Version
  Download(aDownloadSource, sAppPath+sNewAppName);
// 2. Löschen des EXE-Backups (falls vorhanden)
  If FileExists (sAppPath+sOldAppName) Then DeleteFile (sAppPath+sOldAppName);
// 3. Erstellen des EXE-Backups
  RenameFile (ParamStr(0), sOldAppName);
// 4. Umbennen der neuen Version in ParamStr(0)
  RenameFile (sAppPath+sNewAppName, sAppName);
End;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

// Überprüfe Version
    IdFTP1.Get('/DelphiProjects/VersionInfo.txt','Info.txt');
    Version.LoadFromFile('Info.txt');
    DeleteFile('Info.txt');
    if (strtoint(Version[0])>strtoint(VersionInfo)) then
      begin
      if (MessageDlg('Deine Version ist nicht mehr aktuell! Du hast die Version "'+VersionsString+'". Version "'+version[1]+'" ist aktuell. Um das Update aufzuspielen drücke bitte [Ja], möchtest du das nicht, oder es manuell machen drücke [Nein].',mtWarning,[mbyes,mbno],0)=mryes) then
        begin
        // Update aufspielen
        Updated:=true;
        IdFTP1.Get('/DelphiProjects/Upgrade/Upgrader/Upgrader.exe',Dir+'/Upgrader.exe');
        idFTP1.Get('/DelphiProjects/Upgrade/Programmfiles/Teat.exe',Dir+'/_Teat.exe');
        // END Update aufspielen
        end;
      end;
    // END Überprüfe Version                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure TForm1.DoUpgrade;
var
  clear:Tstringlist;
begin
clear:=Tstringlist.create;
DeleteFile('Teat.exe');
RenameFile('_Teat.exe','Teat.exe');
clear.SaveToFile('upgraded.dat');
MessageDlg('Teat wurde erfolgreich Upgegraded. Das Programm wird nun gestartet.',mtConfirmation,[mbok],0);
WaitMessage;
shellexecute(handle,'open',PChar('Teat.exe'),nil,nil,SW_SHOWNORMAL);
Application.Terminate;
end;                    

1:
2:
3:
4:
5:
6:

GetDir(0,dir);
if FileExists(dir+'\upgraded.dat') then
  begin
  DeleteFile('upgraded.dat');
  DeleteFile('Upgrader.exe');
  end;                    

1:
2:

Application.Terminate;
ShellExecute(Application.Handle, 'open',PChar(Neue Version), nil, nil,SW_Normal);