将系统中各驱动器、目录加载到Treeview组件的源程序示例

最新推荐文章于 2025-07-20 09:14:52 发布

原创最新推荐文章于 2025-07-20 09:14:52 发布 · 829 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#path #string

本示例展示了如何使用Delphi中的ShlObj单元实现文件夹选择对话框。通过调用SHBrowseForFolder函数并设置相应的参数，可以创建一个用于让用户选择文件夹的对话框，并获取所选文件夹的路径。

uses ShlObj;

procedure TForm1.Button1Click(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 :=Handle;
BrowseInfo.pszDisplayName := @DisplayName;
TitleName := '查找文件目录 ';
BrowseInfo.lpszTitle := PChar(TitleName);
BrowseInfo.ulFlags := BIF_RETURNONLYFSDIRS;
lpItemID := SHBrowseForFolder(BrowseInfo);
if lpItemId <> nil then
begin
SHGetPathFromIDList(lpItemID, TempPath);
caption:=TempPath;
GlobalFreePtr(lpItemID);
end;
end;