falsche Transparenz bei ExtractIconEx unter WinXP

[Alexander]

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.