2012年12月15日
Delphi开启Windows目录对话框代码
摘要： Windows目录对话框是一个标准的WindowsUI控件，其可以列出一个目录列表，并且可以显示新增按钮。该段代码分为两个部分：(1)控件代码 (2)调用代码(1)控件代码。代码如下unit BrowseForFolderU;interfacefunction BrowseForFolder(const browseTitle: String; const initialFolder: String = ''): String;implementationuses Windows, shlobj;varlg_StartFolder: String;/////////////// 阅读全文
posted @ 2012-12-15 20:24 北极星 - North Star 阅读(271) 评论(0) 推荐(0)