Delphi“选择文件夹”对话框代码

　　好久没写软件了，昨天下午试着写个小软件：QQ2011显IP显地理位置补丁。其中要涉及到如何让用户选择QQ安装路径下的Bin目录，这时就要用到Delphi“选择文件夹”对话框的代码，我的Delphi学习笔记里一时只找到选择某一文件的代码，于是去网上搜寻，找到了这段最简洁的代码：

uses FileCtrl;

var
  szPath: string;
if SelectDirectory('选择您QQ安装路径的Bin目录：','',szPath) then
Edit1.Text := szPath;

　　亲测，非常好用！