IShellFolder: Path zu PIDL und im TreeView öffnen.

[Garfield]

Hallo,

ich habe ein TreeView, in welches die Verzeichnisstruktur wie hier eingelesen wird. Das sieht dann so aus. Nun möchte ich ein InitialDir einstellen. Im ersten Schritt wollte ich die PIDL zum Verzeichnis ermitteln und dann den TreeView aufschlagen. Das Ermitteln sollte so erfolgen:

Delphi-Quellcode:

procedure TPathExplorer.SetPath(const Value: Widestring);
var
  pszDisplayName : lpwstr;
  pdwAttributes  : DWord;
  pdwDummy       : DWord;
  NewPIDL        : PItemIDList;
  ShellFolder    : IShellFolder;
  Objects        : IEnumIdList;
  ItemIdList     : PItemIdList;
  bNoError       : Boolean;
  bNoFound       : Boolean;
  bNext          : Boolean;
  displayname: widestring;
begin
  ShellFolder    := Desktop;
  pszDisplayName := StringToOleStr(Value);
  pdwAttributes  := 0;
  bNoFound := True;
  bNoError := True;
  while bNoFound and bNoError
  do begin
    ShellFolder.ParseDisplayName(0, nil, pszDisplayName, pdwDummy, NewPIDL, pdwAttributes);
    bNoFound := NewPIDL <> nil;
    if bNoFound
    then begin
      bNoError := Succeeded(ShellFolder.EnumObjects(Handle, SHCONTF_FOLDERS, Objects));
      if bNoError
      then begin
        bNext := False;
        while (Objects.Next(1, ItemIdList, pdwDummy) = NOERROR) and not bNext do
        if (ItemIdList.mkid.cb = NewPIDL.mkid.cb) and (ItemIdList.mkid.abID[0] = NewPIDL.mkid.abID[0])
        then begin
          ShellFolder.BindToObject(ItemIdList, nil, IID_ISHELLFOLDER, pointer(ShellFolder));
          bNext := True;
        end;
      end;
    end;
  end;
end;

Da ist jedoch mit der Liste unterhalb des Arbeitsplatzes Schluss wenn ich ein Laufwerk einstelle. Wie komme ich auf das Laufwerk? Oder ist mein Ansatz bereits verkehrt?

[Garfield]

Man kommt so nur bis zum Laufwerk. Anschließend wird der Folder mit dem Value verglichen.