摘要:
/// /// 遍历文件夹 (引用SysUtils单元)/// procedure TfrmMusicMenu.SearchInDir(sDirectory: string);var pSearchRec: TSearchRec; // TSearchRec是delphi为我们定义好的一个记录类...
阅读全文
posted @ 2014-07-15 09:32
花爱春
阅读(3762)
推荐(0)
编辑
摘要:
/// /// 重命名文件夹 引用ShellAPI/// function ReNameDirectort(SourceDirectort, DestinationDirectort: string): Boolean;var pDirOperate: TSHFileOpStruct;begin...
阅读全文
posted @ 2014-07-15 08:52
花爱春
阅读(285)
推荐(0)
编辑