nachtrag:
habe rausgefunden das dies nur bei verwendung von
Delphi-Quellcode:
{ try
SysIcons := SHGetFileInfo(PChar(copy(ParamStr(0), 1, 3)), 0, SHFileInfo, SizeOf(SHFileInfo), SHGFI_SYSICONINDEX or SHGFI_LARGEICON);
finally
DestroyIcon(SHFileInfo.hIcon);
end;
ImageList1.Handle := SysIcons;}
so ist!
Was mach ich denn nun? ich brauche obiges, damit die Icons "schön" sind!