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


Далее: Как проиграть Wave-ресурс »»