怎样实现目录选择对话框（OpenDir）？

[dulei115]

TOpenDialog实现打开文件，那么目录选择对话框怎么样实现？有没有类似OpenDir的函数
我想要的是类似Windows搜索中选择搜索范围时弹出的那个 浏览文件夹 的对话框，注意：是类似

[sdzeng]

function SelectDirectory(const Caption: string; const Root: WideString; out Directory: string): Boolean; overload;

function SelectDirectory(var Directory: string; Options: TSelectDirOpts; HelpCtx: Longint): Boolean; overload;