2021年4月30日

CnCommon单元之ForceDirectories【2】

摘要： // 递归创建多级子目录 function ForceDirectories(Dir: string): Boolean; begin Result := True; if Length(Dir) = 0 then begin Result := False; Exit; end; Dir := E 阅读全文

posted @ 2021-04-30 13:18 YXGust 阅读(83) 评论(0) 推荐(0) 编辑

CnCommon单元之ExploreFile【1】

摘要： 感谢cnPack前辈们开源了如此优秀的源码，不学习下真的是浪费了。今天开始逐个分析，提升自己。 // 在资源管理器中打开指定文件夹或者文件，可设置选中状态 procedure ExploreFile(const AFile: string; isSelect: Boolean=False); var 阅读全文

posted @ 2021-04-30 12:03 YXGust 阅读(128) 评论(0) 推荐(0) 编辑

导航