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 firemonkey 学习笔记 �c tpopup 控件的使用

Delphi ^ 符号的特殊用法

Delphi 运行js

Delphi 软件welcome窗口代码

Delphi写com+的心得体会

print documents from Delphi - print pdf, doc, xls, html, rtf, docx, txt

Delphi动态建立panel无法更改颜色?

Delphi 如何在tmemo，tedit或trichedit中获得插入符的位置

Delphi文本文件读写

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

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