Delphi里有个函数SelectDiretory，重载了两种形式： 　　function SelectDirectory(
　　　　const Caption: string; const Root: WideString; out Directory: string): Boolean; overload; 

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

本文例子源代码下载：1.66k　　按第一种方式可以调用Win32的标准选择目录对话框，第二种方式弹出的则是Delphi自定义风格的对话框。我们编程常用的是第一种，但我在使用中发现，用该函数不能初始化对话框的起始目录，如右图：希望对话框弹出时就定位到某个目录，是办不到的。

　　我从来是单干，自然很久都没有找到答案，直到有一天终于注册上了“大富翁论坛”（其实我很久以前就知道大富翁论坛了，只是一直注册不了），我提出的问题就是“如何指定SelectDirectory的起始目录”。问题很快得到了解答，答案是由cAkk提供的，如下： 
给那个窗口发消息可以设置路径：
　　SendMessage(
　　　　　 Hwnd, 
　　　　　 BFFM_SETSELECTION,
　　　　　 Ord(TRUE), 
　　　　　 Longint(PChar(Path))
　　　　　 ); 

关键是如何得到该窗口的句柄？
Borland在写SelectDirectory函数时省略了BrowseInfo的lpfn属性，这个属性指向一个CallBack函数,可以实现你的程序和该对话框窗口的通讯.该Callback函数声明为： 
　　int BrowseCallbackProc(
　　　　　 HWND hwnd,
　　　　　 UINT uMsg,
　　　　　 LPARAM lParam,
　　　　　 LPARAM lpData
　　　　　 );

其中,HWND参数就是传递过来的该对话框的句柄,得到这个句柄,你就可以 用我前面说的SendMessage设置路径了。 

还有一点,你应该在BrowseCallbackProc函数里判断当接受到BFFM_INITIALIZED消息时设置路径,也就是说：uMsg:=BFFM_INITIALIZED的时候。 
具体实现如下，需要注意的几点是：

１、不能再用SelectDirectory函数（要不就修改它的源代码），需要直接调用API函数ShBrowseForFolder。
２、要把shlobj和AcriveX两个单元包含进去。 
unit Unit1; 
interface 
uses 
　　……shlobj,ActiveX; 
　　……

var
　　 Form1: TForm1; 
　　 Path: string; 　　//起始路径

implementation 

{$R *.DFM} 

function BrowseCallbackProc(hwnd: HWND;uMsg: UINT;lParam: Cardinal;lpData: Cardinal): integer; stdcall; 
begin 
　　if uMsg=BFFM_INITIALIZED then 
　　　　result :=SendMessage(Hwnd,BFFM_SETSELECTION,Ord(TRUE),Longint(PChar(Path))) 
　　else 
　　　　result :=1 
end; 

function SelDir(const Caption: string; const Root: WideString; out Directory: string): Boolean; 
var 
　　WindowList: Pointer; 
　　BrowseInfo: TBrowseInfo; 
　　Buffer: PChar; 
　　RootItemIDList, ItemIDList: PItemIDList; 
　　ShellMalloc: IMalloc; 
　　IDesktopFolder: IShellFolder; 
　　Eaten, Flags: LongWord; 
begin 
　　Result := False; 
　　Directory := ''; 
　　FillChar(BrowseInfo, SizeOf(BrowseInfo), 0); 
　　if (ShGetMalloc(ShellMalloc) = S_OK) and (ShellMalloc < >  nil) then 
　　begin 
　　　　Buffer := ShellMalloc.Alloc(MAX_PATH); 
　　　　try 
　　　　　　RootItemIDList := nil; 
　　　　　　if Root < >  '' then begin 
　　　　　　　　SHGetDesktopFolder(IDesktopFolder); 
　　　　　　　　IDesktopFolder.ParseDisplayName(Application.Handle, nil, POleStr(Root), Eaten, 　　　　　　　　　　RootItemIDList, Flags); 
　　　　　　end; 
　　　　　　with BrowseInfo do begin 
　　　　　　　　hwndOwner := Application.Handle; 
　　　　　　　　pidlRoot := RootItemIDList; 
　　　　　　　　pszDisplayName := Buffer; 
　　　　　　　　lpszTitle := PChar(Caption); 
　　　　　　　　ulFlags := BIF_RETURNONLYFSDIRS; 
　　　　　　　　lpfn :=@BrowseCallbackProc; 
　　　　　　　　lParam :=BFFM_INITIALIZED; 
　　　　　　end; 
　　　　　　WindowList := DisableTaskWindows(0); 
　　　　　　try 
　　　　　　　　ItemIDList := ShBrowseForFolder(BrowseInfo); 
　　　　　　finally 
　　　　　　　　EnableTaskWindows(WindowList); 
　　　　　　end; 
　　　　　　Result := ItemIDList < >  nil; 
　　　　　　if Result then begin 
　　　　　　　　ShGetPathFromIDList(ItemIDList, Buffer); 
　　　　　　　　ShellMalloc.Free(ItemIDList); 
　　　　　　　　Directory := Buffer; 
　　　　　　end; 
　　　　finally 
　　　　　　ShellMalloc.Free(Buffer); 
　　　　end; 
　　end; 
end; 

procedure TForm1.SpeedButton1Click(Sender: TObject); 
var 
　　Path1: string; 
begin 
　　Path :=Edit1.Text; 
　　SelDir('SelectDirectory Sample','',Path1); 
　　Edit1.Text :=Path1 
end; 

end.