ICL in TImageList laden

[scp]

Soweit ich weis ist eine ICL nichts anderes als eine umbenannte DLL, das heisst du musst sie auch so behandeln:

Delphi-Quellcode:

var
  AIco : TIcon;
  hDLL : THandle;
begin
  hDLL := LoadLibraryEx('Eine.icl', 0, LOAD_LIBRARY_AS_DATAFILE);

  AIco := TIcon.Create;
  try
    AIco.Handle := LoadImage(hDLL, '1', IMAGE_ICON, ImageList1.Width, ImageList1.Height, LR_DEFAULTCOLOR);
    ImageList1.AddIcon(AIco);
  finally
    AIco.Free;
  end;

  FreeLibrary(hDLL);
end;

Die Icons müssen also einzeln zur IL hinzugefügt werden, wie du eine Liste der enthaltenen Icons und deren Namen bekommst, weis ich allerdings im Moment nicht.