Sorry...
Hab's schon selber entdeckt wie man Icons anfügt!
Habe aber was anderes zu fragen:
Ich habe versucht eine dafür passende T(New)ImageList erstellt, aber die Icons die ich hinzufüge sind immer nur 5 mal 5 Pixel groß:
Delphi-Quellcode:
constructor TNewImageList.Create(AOwner: TComponent);
var
SHFileInfo: TSHFileInfo;
SysIcons: THandle;
begin
inherited Create(AOwner);
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;
Self.Handle := SysIcons;
end;
Gruß,
Timon.