我遇到了Vcl.FileCtrl函数SelectDirectory(这是一个围绕ShbrowseForFolder Win32 API的瘦包装器)的一个非常奇怪的问题.
if SelectDirectory('Sélectionnez un élément à ajouter :','',S,[sdNewFolder,sdShowFiles,sdNewUI]) then
执行此代码时,会正确显示“浏览文件夹”对话框,显示用户桌面的内容:
但是当桌面文件夹中的项目数量过大时(在我的计算机上,我可以通过大约100个桌面图标重现问题),同一个调用会产生完全不同的显示:
在这种情况下,桌面项目不再显示.我只允许浏览我的主文件夹,因为我丢失了“我的电脑”图标,我无法选择此目录之外的文件/文件夹.
我正在寻找我在这里失踪的东西.根项目对于正确显示的子项目数量是否有限制?拥有大量桌面图标通常不是一个好习惯,但据我所知,不应该阻止此对话框正常运行.我不确定Delphi包装器中是否有什么问题,或者这是我在MSDN上没有看到的API的限制……
任何暗示赞赏!
解决方法
是的,我可以重现这种行为.这显然是一个Windows限制,所讨论的API并没有为您提供任何增加缓冲区的方法.我认为你使用SHbrowseForFolder解决它的可能性接近于零.因为SHbrowseForFolder现在是一个遗留API.
如果您正在浏览文件夹,则应在文件夹选择模式下使用IFileOpenDialog.这是一个使用新Vista对话框的更好的对话框.在由TFileOpenDialog包装的Delphi中.仅在Win32MajorVersion> = 6时才使用它!对于XP,您需要回调SHbrowseForFolder.
if Win32MajorVersion>=6 then begin FileOpenDialog1.Title := 'Sélectionnez un élément à ajouter :'; FileOpenDialog1.Options := FileOpenDialog1.Options + [fdoPickFolders]; if FileOpenDialog1.Execute then Beep; end else begin // revert to SelectDirectory end;