Карта сайтаСсылкиКонтакты

Загрузить изображение из DLL без формы

PDF Печать
Статьи

Для создания этой задачи, мы уберем форму из проекта. В DLL помещаем изображение. А саму DLL поместим в каталог проекта. Ну а дальше все видно из текста программы:


program BitmapWithoutForm;

uses
  Windows,
  Graphics;

{$R *.res}

var
  DeskCanvas: TCanvas;
  Bitmap: TBitmap;
  Lib: THandle;
begin
  Lib:= LoadLibrary('ResPict.dll');
  if Lib > 32 then
  begin
    Bitmap:= TBitmap.Create;
    DeskCanvas:= TCanvas.Create;
    try
      DeskCanvas.Handle:= GetDC(0);
      try
        Bitmap.Handle:= LoadBitmap(Lib, 'PIC_1');
        DeskCanvas.Draw(0, 0, Bitmap);
      finally
        ReleaseDC(0, DeskCanvas.Handle);
        DeskCanvas.Handle:= 0;
      end;
    finally
      DeskCanvas.Free;
      Bitmap.Free;
      FreeLibrary(Lib);
    end;
  end;
end.

 

Добавить комментарий


Защитный код
Обновить