2014 年 7月 15 日随笔档案 - 花爱春

2014年7月15日

摘要： /// /// 遍历文件夹（引用SysUtils单元）/// procedure TfrmMusicMenu.SearchInDir(sDirectory: string);var pSearchRec: TSearchRec; // TSearchRec是delphi为我们定义好的一个记录类... 阅读全文

posted @ 2014-07-15 09:32 花爱春阅读(3762) 评论(0) 推荐(0) 编辑

Delphi文件夹的操作

摘要： /// /// 重命名文件夹引用ShellAPI/// function ReNameDirectort(SourceDirectort, DestinationDirectort: string): Boolean;var pDirOperate: TSHFileOpStruct;begin... 阅读全文

posted @ 2014-07-15 08:52 花爱春阅读(285) 评论(0) 推荐(0) 编辑