Для использования такой 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')
elsebegin
Icon := LoadIcon(h, 'ICON_1');
DrawIcon(Form1.Canvas.Handle, 10, 10, Icon);
FreeLibrary(h);
end;
end;
Статья рассказывает о создании DLL только с ресурсами и использовании ее в приложении с помощью функции LoadLibrary и LoadIcon.
Комментарии и вопросы
Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS