Как создать DLL только с ресурсами?

Материал из DRKB

Как создать DLL только с ресурсами?[править | править код]

Создайте и откомпилируйте пустой проект DLL, который содержит ссылку на файл ресурсов .res, который содержит Ваши ресурсы.


library ResTest; 

uses 
  SysUtils; 

{$R MYRES.RES} 

begin 
end.


Для использования такой DLL, просто загрузите 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('Bad Dll Load') 
  else
  begin 
    Icon := LoadIcon(h, 'ICON_1'); 
    DrawIcon(Form1.Canvas.Handle, 10, 10, Icon); 
    FreeLibrary(h); 
  end; 
end;


Source: Взято из http://forum.sources.ru
ID: 01987