Icon in ImageList laden & in einer Listview anzeigen lassen

[mirage228]

Hi,

versuch das im FormCreate Deiner Form ausführen:

Delphi-Quellcode:

var
  SHFileInfo: TSHFileInfo;
  SysIcons  : THandle;
begin
  // SpieleIcon := TImageList.Create(Self); 
  SpieleIcon.Masked := False;
  try
    SysIcons := SHGetFileInfo(PChar(Copy(ParamStr(0), 1, 3)), 0, SHFileInfo,
      SizeOf(SHFileInfo), SHGFI_SYSICONINDEX or SHGFI_SMALLICON or
      SHGFI_ICON);
  finally
    DestroyIcon(SHFileInfo.hIcon);
  end;
  SpieleIcon.Handle := SysIcons;
  SpieleIcon.ShareImages := True;

Zumindest hat es bei mir so geklappt

mfG
mirage228