Moin !
Das geht schon ganz gut. Aber hat immer noch einen Haken ... Das Verzeichnis bleibt stehen.
Ich habe mal versucht das hier noch an die BAT anzuhängen:
Delphi-Quellcode:
'cd ..' + #13#10+
'RD "' + ParamStr(0) + '"' + #13#10 +
aber das bringts nicht.
In Summe schaut das nun so:
Delphi-Quellcode:
BatText := '
:loop' + #13#10+
'
ping localhost' + #13#10+
'
del /F "%s"' + #13#10+
'
if EXIST "%s" goto loop' + #13#10+
'
del /F "%s"' + #13#10+
'
cd ..' + #13#10+
'
RD "' + ExtractFilePath(Application.ExeName) + '
"';
Den Ping habe ich reingenommen damit die CPU Last im Rahmen bleibt.
Aber das RD zeigt keine Wirkung.
EDIT:
'RD "' + ParamStr(0) + '"' War natürlich ein Fehler. Geht aber dennoch nicht.