Пример кода : Переименование Unit1.dcu в Unit1.old и обратно
var
oldName, newName : string;
begin // Попытка переименовать Unit1.dcu в Uni1.old
oldName := 'Unit1.dcu';
newName := ChangeFileExt(oldName, '.old');
if RenameFile(oldName, newName)
then ShowMessage('Unit1.dcu переименован')
else ShowMessage('Unit1.dcu переименовка прошла с ошибкой : '+
IntToStr(GetLastError)); // Позвольте нам попробовать то же самое, переименовать снова
if RenameFile(oldName, newName)
then ShowMessage('Unit1.dcu снова переименован')
else ShowMessage('Unit1.dcu переименовка прошла с ошибкой : '+
IntToStr(GetLastError)); // Наконец, позвольте нам
переименовать файл назад
if RenameFile(newName, oldName)
then ShowMessage('Unit1.old переименован обратно')
else ShowMessage('Unit1.old обратное переименование прошло с ошибкой : '+
IntToStr(GetLastError));
end;
Unit1.dcu переименован
Unit1.dcu переименовка прошла с ошибкой : 2
Unit1.old переименован обратно