Показать сообщение отдельно
  #2  
Старый 20.05.2011, 22:36
Delas Delas вне форума
Прохожий
 
Регистрация: 24.04.2007
Сообщения: 32
Репутация: 10
По умолчанию

В нете нашел код
Код:
Как создать файл ресурсов в виде 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;
end;
Но тут на картинку а как звук проиграть???
Ответить с цитированием