文件磁盘相关函数[3]-文件改名 RenameFile

代码如下：

procedure TForm1.N8Click(Sender: TObject); //文件改名 RenameFile
var
  OldName,NewName: string;
begin
  OldName := 'f:\test\test.txt';
  NewName := 'f:\test\new.txt';

  if RenameFile(OldName,NewName) then
    ShowMessage('改名成功!');

  //也可以:
  {
  SetCurrentDir('f:\test');  //设置当前文件夹
  OldName := 'test.txt';
  NewName := 'new.txt';

  if RenameFile(OldName,NewName) then
  ShowMessage('改名成功!');
  }
end;

 

下面进行函数分析：

function RenameFile(const OldName, //旧文件名
                    NewName: string //新文件名
                   ): Boolean;  //返回布尔值，成功则true，否则false