Загрузка Bitmap из DLL
Создаем раздел BITMAP3 в ресурсном файле, который содержит файл точечного рисунка.
procedure TForm1.Button1Click(Sender: TObject); var LibHandle: THandle; Bitmap: Tbitmap; begin LibHandle:=Loadlibrary('MyDLL.dll'); try if LibHandle<>0 then begin Bitmap:=TBitmap.Create; Bitmap.LoadFromResourceName(LibHandle,'BITMAP3'); Image1.Canvas.Draw(0,0,Bitmap); end; finally Bitmap.Free; end; end;
Комментарии