Tach ...,
ok - dann ändere die Konstanten in Variablen um.
Zitat von
Hobby-Programmierer:
Delphi-Quellcode:
const alteDatei = 'c:\alterName.txt';
neueDatei = 'c:\neuerName.txt';
begin
if Umbenennen(alterName, neuerName) then
ShowMessage('erfolgreich');
end;
ändern wir einfach in
Delphi-Quellcode:
var alteDatei, neueDatei: TFileName;
begin
alteDatei:= 'c:\alterName.txt';
neueDatei:= 'c:\neuerName.txt'
if Umbenennen(alteDatei, neueDatei) then
ShowMessage('erfolgreich');
end;
Natürlich nicht vergessen Detlefs Funktion anzupassen!
function Umbenennen(OldName, NewName: string): Boolean;
Anmerkung:
Diese Funktion funktioniert nur innerhalb eines LW (Adminrechte vorausgesetzt). Solltest du nicht als Admin arbeiten nimm einfach ein anderes Test-LW