здравствуйте коллеги.
хочется хранить иконки кнопок не в exe а рядом в dll и при запуске приложения загружать их в ImageList. вытащить ресурс (иконку) и добавить ее в ImageList труда не составляет:
| Код |
procedure TIconLiader.GetIcons(ALib: PAnsiChar; AImageList: TPngImageList);
var
Handle: THandle;
RS: TResourceStream;
Png: TPNGObject;
Item: TPngImageCollectionItem;
begin
Handle := LoadLibrary(ALib);
RS := TResourceStream.Create(Handle, 'CONNECT', RT_RCDATA);
Png := TPNGObject.Create;
Png.LoadFromStream(RS);
Item := AImageList.PngImages.Add();
Item.PngImage := Png;
Png.Free;
RS.free;
end;
|
но хорошо было бы получить полный список ресурсов из dll и пройдясь по нему добавить все иконки в цикле. как получить полный список ресурсов? |