uses FileCtrl;
var
szPath: string;
if SelectDirectory('选择您QQ安装路径的Bin目录：','',szPath) then
Edit1.Text := szPath;
技术人生
生如夏花之绚烂，死如秋叶之静美…
2011-8-8 22:54:51
Delphi“选择文件夹”对话框代码
好久没写软件了，昨天下午试着写个小软件：QQ2011显IP显地理位置补丁。其中要涉及到如何让用户选择QQ安装路径下的Bin目录，这时就要用到Delphi“选择文件夹”对话框的代码，我的Delphi学习笔记里一时只找到选择某一文件的代码，于是去网上搜寻，找到了这段最简洁的代码：
本文永久链接地址：http://www.hack0573.com/Program/41.html
关键字:Delphi | 发布:木马猎人 | 分类:编程技术 | 评论:0 | 浏览:
- 看看还有没有你感兴趣的相关技术文章：
Delphi查找进程代码 (2011-8-9 9:59:3)
Delphi字符串截取函数LeftStr，MidStr，RightStr的用法 (2011-8-8 23:14:7)
Delphi中“Variable 'Res' might not have been initialized”的解决方法 (2010-1-27 10:37:42)
Delphi结束进程模块代码 (2010-1-6 11:31:58)
Delphi轻松获取系统进程名称和进程ID (2009-11-12 15:54:18)
Delphi编程基础学习系列—获取Windows系统目录 (2009-11-12 11:8:28)
Delphi编程基础学习系列—创建与删除文件夹 (2009-11-12 11:2:40)
Delphi编程基础学习系列—常用组件的属性(三)之消息框与输入框 (2009-11-10 15:36:11)
Delphi初学者也来编写IE弹窗插件 (2009-11-9 11:1:13)
Delphi编程基础学习系列—常用组件的属性(二) (2009-11-9 10:43:32)
Delphi编程基础学习系列—常用组件的属性(一)按钮和文本组件 (2009-11-9 9:54:57)
◎欢迎参与讨论，请在这里发表您的看法、交流您的观点。
