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

Как создать файл ресурсов в виде DLL

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

Создайте пустой проект DLL , который содержит ссылку на файл ресурсов .res, который в свою очередь содержит необходимые вам ресурсы.


library ResTest;

uses
  SysUtils;

{$R MYRES.RES}

begin

end.

Для использования DLL и рерсурсов:


{$IFDEF WIN32}

const BadDllLoad = 0;

{$ELSE}

const BadDllLoad = 32;

{$ENDIF}


procedure TForm1.Button1Click(Sender: TObject);
var
  h : THandle;  
  Icon : THandle;
begin
  h := LoadLibrary('RESTEST.DLL');
  if h <= BadDllLoad then
    ShowMessage('Не удалось загрузить DLL ресурсов')
  else begin
    Icon := LoadIcon(h, 'ICON_1');
    DrawIcon(Form1.Canvas.Handle, 10, 10, Icon);
    FreeLibrary(h);
  end;

 

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


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