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