Danke,
ich habe es jetzt so gemacht.
Die Erweiterung ist jetzt wieder da.
Wie bekomme ich den Pfad aus AFileName raus, die Delphi Hilfegibt dazu nix her?
Danke DrSchubi
Delphi-Quellcode:
rocedure AddIcon(ANode: TTreeNode; AImageList: TImageList; const AFileName: string);
var
FileInfo: SHFILEINFO;
Icon: TIcon;
begin
//Get The DisplayName
SHGetFileInfo(PChar(AFileName), 0, FileInfo,
SizeOf(FileInfo), SHGFI_DISPLAYNAME);
//ANode.Text := FileInfo.szDisplayName;
ANode.Text := AFileName;
//Get The Icon That Represents The File
SHGetFileInfo(PChar(AFileName), 0, FileInfo,
SizeOf(FileInfo), SHGFI_ICON or SHGFI_SMALLICON);
// Create a temporary TIcon
Icon := TIcon.Create;
icon.Handle := FileInfo.hIcon;
ANode.ImageIndex := AImageList.AddIcon(Icon);
Icon.Free;
// Destroy the Icon
DestroyIcon(FileInfo.hIcon);
end;