Как показать картинку в программе из ресурса DLL библиотеки

Советы » Ресурсы(RES-файлы) » Как показать картинку в программе из ресурса DLL библиотеки

uses Sysutils;

procedure
 TfrmMain.CheckForAddFlow;
var

  SearchRec: TSearchRec;
  LibHandle: Cardinal;
  ResStream: TResourceStream;
begin

  if
 FindFirst('your-lib.dll', faAnyFile, SearchRec) <> 0 then

  begin

    {Загружаем библиотеку}
    LibHandle := LoadLibrary('your_lib.dll');
    if
 Handle <> 0 then

      {Загружаем ресурс}
      ResStream := TResourceStream.Create(LibHandle,
        PChar('res_name'), RT_BITMAP);
    try

      ImageViewer.Picture.Graphic.LoadFromStream(ResStream);
    finally

      ResStream.Free();
    end
;
  end
;
end
;

//ShowMessage(IntToStr(AllocMemCount) + ':' + IntToStr(AllocMemSize));
end
;

Как показать картинку в программе из ресурса DLL библиотеки

Другое по теме:

Категории

Статьи

Советы