delphi选择文件夹对话框(最简单的一种)

以前写程序时曾用过此方法，但好久没再用都给忘了，今天做个小东东，令我又想到了它，呵呵！copy如下：

uses FileCtrl;

var
  szPath: string;
if SelectDirectory('选个目录看看','',szPath) then
Edit1.Text := szPath;