Как показать картинку в программе из ресурса 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

;

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

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com