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