送分问题：怎样调出路径选择对话框？不是opendialog 和savedialog(50分)

opendialog和savedialog是选择文件对话框，不是SelectDirectory函数，是delphi里选择
空件的libray path时那个对话框，谢谢。

TDirectoryListBox 在 win3.1 那一页

对不起，是selectDirectory函数，不过不是后者。分数奉上。谢谢！
function SelectDirectory(const Caption: string;
const Root: WideString;
out Directory: string): Boolean;
overload;
function SelectDirectory(var Directory: string;
Options: TSelectDirOpts;
HelpCtx: Longint): Boolean;
overload;