下面这样使用RenameFile是否有错?试过以后并没有改了文件名。
var
OldName,NewName: string;
begin
OldName := 'D:\sss\fff\Old.txt';
NewName := 'D:\sss\fff\New.txt';if RenameFile(OldName,NewName) then
      ShowMessage('改名成功!');
end;

解决方案 »

  1.   

    var f : File;
    ....try
      AssignFile(f, YorOldName);
      rename(f, YourNewName);
    except
      ShowMessage('failed')
    end;
      

  2.   

    var
    OldName,NewName: string;
    begin
    OldName := 'D:\sss\fff\Old.txt';
    NewName := 'New.txt';if RenameFile(OldName,NewName) then
      ShowMessage('改名成功!');
    end;
      

  3.   

    var
    OldName,NewName: string;
    begin
    OldName := 'D:\sss\fff\Old.txt';
    NewName := 'New.txt';if RenameFile(OldName,NewName) then
      ShowMessage('改名成功!');
    end;
      

  4.   

    var
    OldName,NewName: string;
    begin
    OldName := 'D:\sss\fff\Old.txt';
    NewName := 'New.txt';if RenameFile(OldName,NewName) then
      ShowMessage('改名成功!');
    end;
      

  5.   


    你这样是对的啊?!我测试过了,没问题。自己再重新测试一下。函数原型
    UnitSysUtilsCategoryfile management routinesDelphi syntax:function RenameFile(const OldName, NewName: string): Boolean;