急问：怎样在delphi中，弹出文件夹浏览的窗口？

Question

我想在我的程序中，让用户选择文件夹，我知道在vc中，使用一个API就可以弹出一个关于文件夹浏览的对话框，不知在DELPHI中如何实现？
我用DELPHI帮同学做一个数据库的毕业设计，对DELPHI只是新手，还望大家拉兄弟一把。

Answer 1

uses FileCtrl;const
  SELDIRHELP = 1000;
procedure TForm1.Button1Click(Sender: TObject);
var
  Dir: string;
begin
  Dir := 'C:\MYDIR';
  if SelectDirectory(Dir, [sdAllowCreate, sdPerformCreate, sdPrompt],SELDIRHELP) then
    Label1.Caption := Dir;
end;