|
Registriert seit: 25. Jun 2003
Ort: Thüringen
2.950 Beiträge
|
Re: Neue Klasse: TFileTypeInfo
15. Aug 2003, 00:11
Jetzt wäre es ideal wenn du statt TIcons zwei TImageList's benutzen würdest. Beide Listen werden mit ImageList.Handle := SHGetFileInfo(nil, 0, ..., SHGFI_ICON / SHGFI_SMALLICON ); initialisiert. Beide ImageListen müssen .Shared := True sein. So nun haste schon mal in beiden Image Listen alle Symbole in einem Rutsch die zu allen Extensionen in der Shell angezeigt werden. Nun kannst du zu einer Dateiextension speziell mit SHGetFileInfo() den Index in diese Listen ermitteln.
Aus Sicht der Nutzbarkeit wäre es jetzt easy diese IMageListen mit einem TShellListView/TShellTreeView zu verknüpfen.
Gruß Hagen
|