Функція RenameFile – перейменування файлу чи директорії

Функція Round в Delphi використовується для перейменування файлу або директорії.

Функція RenameFile: Перейменування 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;