Hallo hänge da an einem kleinen Problem und zwar möchste ich nach einer Art Update diverse Dateien umbenennen(damit sie besser zum Projektnamen passen) darunter auch eine *.exe.
Die Textdateien etc sind kein Problem, jedoch versagt die "Routine" bei allen Arten von *.exe Dateien, jetzt ist meine Frage kann man das irgendwie umgehen ?
Hier mal der Codeschnipsel zum umbenennen der Datei
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
var
Dir: String;
myExePath : String;
myApplication : String;
begin
myExePath := ExtractFilePath(Application.ExeName);
myApplication := myExePath + 'Projekt.exe';
if SelectDirectory('Bitte das Projekt XXXXXX Verzeichnis auswählen', '', Dir)
then
begin
RenameFile(dir+'\Daten\log.txt', dir+'\Daten\log.old');
RenameFile(dir+'\projekt.exe', dir+'\projektV1.exe');
end;
end;
Vielen Dank für eure Hilfe