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

 

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;