ExtraLarge Icons per SHGetImageList

[SittingDuck]

Moin Moin ...

Um ein ShellIcon (Systemsteuerung, Netzwerk, Arbeitsplatz etc.) zu bekommen benutze ich foldende Routine:

Delphi-Quellcode:

function GetCSIDLIcon(CSIDL: integer): hIcon;
var FileInfo: TSHFileInfo; PIDL: PItemIDList; Flag: Cardinal;
begin
 SHGetSpecialFolderLocation(Application.Handle, CSIDL, PIDL);
 if Small = True then Flag := SHGFI_SMALLICON
 else Flag := SHGFI_LARGEICON;
 SHGetFileInfo(PChar(PIDL), 0, FileInfo, SizeOf(TSHFileInfo),
 SHGFI_PIDL or SHGFI_SYSICONINDEX or SHGFI_ICON or Flag);
 Result := FileInfo.hIcon;
end;

Das klappt auch sehr gut für 16x16 und 32x32 Icons. Die großen Icons, mit der Auflösung 48x48 bekommt man über diese Routine nicht. Dafür muss man die Funktion SHGetImageList anzapfen.
Genau das bereitet mir Schwierigkeiten. Einen scheinbar recht nützlichen Artikel habe ich hier ausgegraben.
Dieser ist jedoch in C# geschrieben und die Umsetzung gelingt mir nicht. Vielleicht könnte ja mal ein 'Mehrsprachiger' einen kurzen Blick darauf werfen und eine nette Delphi-Funktion daraus basteln.

Auf 'Abwegen', grüßt ...