Dateien umbenennen und Programm starten

[gasty]

Hallo erstmal
Mein Problem besteht darin, ich möchte gerne eine Datei umbenennen, dann ein Programm starten und wenn das Programm beendet wird, die Datei wieder zurück benennen.
Am einfachsten wäre das natürlich mit einem Batch-File, was ich auch getan habe, und mit meinem Delphi programm starte ich die Batch.
Aber ich würde sie gerne versteckt starten, oder das Ereignis gleich in Delphi schreiben.
Der Code bisher zum starten der Batch:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
e:= ShellExecute(Handle,NIL,PCHAR('.\test.bat'),PCHAR(''),NIL,SW_SHOW);
if (e<=32) then
begin
ShowMessage('Fehler: Batch-Datei konnte nicht ausgeführt werden!')
end
end;

Und der Inhalt der Batch Datei:

Code:

ren "test2.txt" "test.txt"
test.exe
ren "test.txt" "test2.txt"