更改檔名及虛擬更改檔名

procedure TForm1.Button1Click(Sender: TObject);
begin
  // ChangeFileExt (改變指定檔案的副檔名，只傳回新檔名並未真正的改變)
  // function ChangeFileExt(const FileName, Extension : string) : string;
  ShowMessage(ChangeFileExt('c:\test.txt','.bak'));
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  // RenameFile (更改檔名)
  // function RenameFile(const OldName, NewName : string) : Boolean;
  if FileExists('c:\test.txt') then //判斷檔整是否存在
    if RenameFile('c:\test.txt','c:\test.dat') then
      ShowMessage('更名成功')
    else
      ShowMessage('更名失敗')
  else
    ShowMessage('指定檔案不存在');
end;