怎样使用api生成windows标准打开文件夹（目录浏览窗口）窗口

Question

你运气真好！这个不需要用API，用Delphi自带的就可搞定：
..............
var
s : string;
begin
  SelectDirectory('请指定路径:','',s) then
  ShowMessage(s);
end;
..............小弟这个程序就是这么编的：），欢迎试用，共同提高，请看:
http://202.103.69.33/cnshare/showsoft.php3?id=2586

Answer 1

To wgliang(禅院深深):不好意思，应该是这样。var
s : string;
begin
  if SelectDirectory('请选择文件夹:','',s) then  //在 uses 中添加 FileCtrl
    edtThePath.Text := s;    //其中 edtThePath 为 Edit 控件
end;