function RenameFile ( const OldName, NewName : string ) : Boolean;
Delphi функция RenameFile переименовывает файл или папку и возвращает True если операция переименования прошла успешно. Если имя файла или имя папки дано без указания пути, то файл должен быть в текущем каталоге.
|
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;
|