Dateien umbenennen und Programm starten

[gasty]

Hallo erstmal :D
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"

[mkinzler]

Schau dir mal den letzten Parameter genauer an-
BTW. Relative Pfade sind gefährlich

[DeddyH]

Du kannst auch auf die Batch verzichten. Datei mit RenameFile umbenennen, Programm starten, auf Ende warten und Datei wieder zurückbenennen.

[gasty]

Das weiß ich auch :P
Nur wie mach ich das mit dem aufs Ende warten?

[DeddyH]

Such mal nach WaitForSingleObject oder ExecAndWait.

[gasty]

Hm das is mir alles irgendwie zu kompliziert, geht es denn nicht auch irgendwie die batch versteckt zu starten?

[DeddyH]

Klar geht das.

Zitat:

Delphi-Quellcode:

e:= ShellExecute(Handle,NIL,PCHAR('.\test.bat'),PCHAR(''),NIL,SW_SHOW);

Und nun schau mal in der Hilfe nach, wofür SW_SHOW steht und wodurch man das ersetzen könnte :mrgreen:

[mkinzler]

Ja, wie geschrieben, letzter Paramter entsprechend ändern.

[gasty]

Ah danke, SW_HIDE funzt :D