Внешний вид сайта:

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

Создайте пустой проект 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;

Комментарии

Нет комментариев. Ваш будет первым!