falsche Transparenz bei ExtractIconEx unter WinXP

[twister]

Hallo,

in meinem Programm lese ich mit ExtractIconsEx die kleinen (16x16) Icons aus Programmdateien aus. Nun ist es so, dass unter Windows XP offensichtlich das XP-Icon zurückgegeen wird (z.B. wenn man das Icon der iexplore.exe ausliest). Dadurch kann das Icon nicht richtig transparent dargestellt werden, sondern hat dort, wo es eigentlich halbdurchsichtig sein sollte die Farbe schwarz.
Mein Frage deshalb: gibt es eine Funktion mit der man ein Icon mit einer bestimmten Farbzahl (z.b. 8Bit) auslesen kann?

[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.

[twister]

:spin: Vielen Dank für die schnelle Antwort!
Bin gerade neu hier, scheint aber ein wirklich gutes Forum zu sein.

[Alexander]

Zitat:

Bin gerade neu hier, scheint aber ein wirklich gutes Forum zu sein.

Dannnoch mal herzlich wilkommen und zum zweiten Teil kann man nur jepp sagen :mrgreen: