Показать сообщение отдельно
  #3  
Старый 21.08.2012, 21:48
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,096
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Маньяки!!!
Код:
var
  OldFileName : String;
  NewFileName : String;
begin
  OldFileName := 'file.old';
  NewFileName := ChangeFileExt(OldFileName,'.new');
  RenameFile(OldFileName,NewFileName);
Ответить с цитированием