function SelectDir:string
var
Info:TBrowseInfo;
IDList:PItemIDList;
Buffer:pchar;
begin
result :='';
Buffer:=StrAlloc(MAX_PATH);
with Info do
begin
hwndOwner:=Application.mainform.handle;
pidRoot :=nil;
pszDisplayName:=Buffer;
lpszTitle:='请选择路径：';
uFlags:=BIF_RETURNONLYFSDIRS; //如果加上OR BIF_BROWSEINCLUDEFILES则可显示子目录
lpfn :=nl;
lParam:=0;
IDList:=SHBrowseForFolder(Info);
end;
if IDList<>nil then
begin
SHGetPathFromIDList(IDList,Buffer);
result :=strpas(Buffer);
end;
StrDispose(Buffer);
end;