Das schwarz liegt am Alpha-Blending (WinXP) und ist wohl ein kleiner Bug in der Komponente...
Das Problem kann man aber wie folgt lösen:
Delphi-Quellcode:
var
SHFileInfo: TSHFileInfo;
SysIcons: THandle;
SystemIcons: TImageList;
begin
SysIcons := SHGetFileInfo('', 0, SHFileInfo, SizeOf(SHFileInfo),
SHGFI_SYSICONINDEX or SHGFI_SMALLICON);
SystemIcon := TImageList.Create;
SystemIcons.Handle := SysIcons; //SystemImagelist zuweisen...
SystemIcons.ShareImages := True;
{Wenn ImageList1 einmal der Inhalt der SystemImageList zugewiesen wurde
unterstützt diese fortan 32Bit Icons mit Alphablending}
ImageList1.Assign(SystemIcons);
ImageList1.Clear;
SystemIcons.Free;
Diesen "Tip" habe ich von FriFra bekommen.