Как создать файл ресурсов в виде DLL
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;
Комментарии