Mit der Shellfunktion
ILCombine kann man absolute und relative PItemIdList zu einer neuen absoluten zusammenfügen. Mit der absoluten PItemIdList hole ich per SHGetFileInfoW das Image für den Tree. Bei normalen Verzeichnissen reichen relative PItemIdList, bei Laufwerken und einigen Systemordnern muss es die absolute sein.
Mein Tree basiert auf dem Treeview Sample von Matthias Simmack in Luckies
WinAPI Tutorial. Ich verwende folgende Routinen:
Delphi-Quellcode:
constructor TFolderId.Create(const hTvw: HWND; hParent: HTREEITEM; iFolder: IShellFolder; pidlNode: PItemIdList);
var
Item : TTVItemW;
fid : TFolderId;
begin
FFolder := iFolder;
FPIDL_REL := CopyPIDL(pidlNode);
if hParent <> nil
then begin
Item.mask := TVIF_HANDLE or TVIF_PARAM;
Item.hItem := hParent;
TreeView_GetItemW(hTvw, Item);
fid := TFolderId(Item.lParam);
FPIDL_ABS := ILCombine(fid.FPIDL_ABS, pidlNode);
end
else FPIDL_ABS := CopyPIDL(pidlNode);
end;
Delphi-Quellcode:
function GetSHImage(const pidl: PItemIdList; fOpen: boolean): integer;
var
Flags : DWord;
FileInfo : TSHFileInfoW;
begin
if fOpen
then Flags := SHGFI_PIDL or SHGFI_SYSICONINDEX or SHGFI_OPENICON
else Flags := SHGFI_PIDL or SHGFI_SYSICONINDEX;
if Succeeded(SHGetFileInfoW(Pchar(pidl), 0, FileInfo, sizeof(FileInfo), Flags))
then Result := FileInfo.iIcon
else Result := -1;
end;
Die Funktion soll seit Win 2000 Prof bzw Server mit Shell32.dll Version 5.0 existieren. Auf meinem Win XP SP 3 funktioniert es, in der Firma auf einem Rechner mit Win XP SP 2 (shell32.dll v6.0.2900.3402) jedoch nicht. Könnt Ihr mal sehen, wie es bei Euch aussieht!?