提示：提问和回答别人的问题均可赢得积分
此问题已经被浏览14次,收藏:0次. 所属类别:[
]
问题:如何限制OpenDialog只能选择文件夹?
怎样限制OpenDialog只能选择文件夹
提问时间：
2006-11-15 11:44:52 回答次数：
(12) 提问人：
软界网友 我来回答
回答（1）
不能。
你用SelectDirectory
这个函数
但是这个函数表现不好，在极少数的电脑中会产生问题。
有些电脑用了一些主题会导致这个函数异常，异常地部位是Screen取得屏幕分辨率的地方，他用了一个自写的Form对话框，所以需要取得屏幕分辨率来调整按扭位置。
你有空自己改一下就好了。
回答（2）
procedure TdataSaveForm.SpeedButton1Click(Sender: TObject);
var
TitleName : string;
lpItemID : PItemIDList;
BrowseInfo : TBrowseInfo;
DisplayName : array[0..MAX_PATH] of char;
TempPath : array[0..MAX_PATH] of char;
begin
FillChar(BrowseInfo, sizeof(TBrowseInfo), #0);
BrowseInfo.hwndOwner := datasaveform.Handle;
BrowseInfo.pszDisplayName := @DisplayName;
TitleName := '请选择目录';
BrowseInfo.lpszTitle := PChar(TitleName);
BrowseInfo.ulFlags := BIF_RETURNONLYFSDIRS;
lpItemID := SHBrowseForFolder(BrowseInfo);
if lpItemId <> nil then
begin
SHGetPathFromIDList(lpItemID, TempPath);
edit1.Text:= TempPath;//选择的目录
GlobalFreePtr(lpItemID);
end;
end;
回答（4）
是个好东西,能不能加点注解啊,想看看明白,学习学习
回答（6）
向 happyggy 学习 能不能添加点注释?
回答（7）
delphi中有专门选择文件夹的控件,自己做个窗口就行了.