
21.08.2012, 21:48
|
Модератор
|
|
Регистрация: 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);
|