Delphi 文件夹重命名

本文整理自网络，侵删。

 function   RenDirectory(const   OldName,NewName:string):   boolean;
  var
      fo:   TSHFILEOPSTRUCT;
  begin
      FillChar(fo,   SizeOf(fo),   0);
      with   fo   do
      begin
          Wnd   :=   0;
          wFunc   :=   FO_RENAME;
          pFrom   :=   PChar(OldName+#0);
          pTo   :=   pchar(NewName+#0);
          fFlags   :=   FOF_NOCONFIRMATION+FOF_SILENT;
      end;   
      Result   :=   (SHFileOperation(fo)   =   0);
  end;  

相关阅读 >>

Delphi 取系统临时路径

Delphi网络英汉字典代码

floattostr 将“浮点型”转换成“字符型”

Delphi 通过api 隐藏任务栏所有托盘图标

Delphi bytestofile

Delphi 带密匙的字符串加密解密函数(支持中文)

Delphi timage 加上滚动条方法

Delphi webbrowser有关技术

Delphi xe 在andriod程序中获取外置sd卡根目录

Delphi程序版本信息设置说明

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 文件夹重命名