重命名文件 或文件夹

默认的重命名是这样的
MoveFile(PChar('C:\1.txt'),PChar('C:\ABC.txt'));
    
现在修改成这样的
__RenameFile('C:\1.txt','abc');//重命名文件
 
    
//重命名文件 或文件夹
function __RenameFile(OldName:string;Title:string):Boolean;
var
    NewName:string;
begin
  NewName:= Format('%s%s%s',[ExtractFilePath(OldName),Title,ExtractFileExt(OldName)]);
  Result:=MoveFile(PChar(OldName), PChar(NewName));
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
    if not __RenameFile('C:\tree.txt','TreeView') then
        Application.MessageBox('重命名文件失败','重命名',MB_ICONERROR);
end;

来自为知笔记(Wiz)