Как проиграть звук exe-файле помещен...

30.11.2010, 17:38. **Показов** 1589. **Ответов** 2

Author24 — интернет-сервис помощи студентам

Я на делфи 2010 в приложение как ресурс поместил Wave-файл как его проиграть???
Вот код но не работает почему то...

Delphi

var
  FindHandle, ResHandle: THandle;
  ResPtr: Pointer;
begin
  FindHandle := FindResource(HInstance, '<mp3>', 'WAVE');
  if FindHandle <> 0 then
  begin
    ResHandle := LoadResource(HInstance, FindHandle);
    if ResHandle <> 0 then
    begin
      ResPtr := LockResource(ResHandle);
      if ResPtr <> nil then
        SndPlaySound(PChar(ResPtr), snd_ASync or snd_Memory);
      UnlockResource(ResHandle);
    end;
    FreeResource(FindHandle);
  end;
end

@Zombi_sib · 01.12.2010, 16:25

Вот кусок кода я переправил и ресурс создаю следующим образом

Создаю 111.rc файл пишу следующее:

mmm RCDATA LOADONCALL 22.wav

далее его компилирую компилятором ресурсов Brcc32.exe

Delphi

{$R 111.res} прописываю в файле Unit1.pas
 
ну и код процедуры или обработчика кнопки
 
var
  FindHandle, ResHandle: THandle;
  ResPtr: Pointer;
begin
  FindHandle := FindResource(HInstance, 'mmm', RT_RCDATA);
  if FindHandle <> 0 then
  begin
    ResHandle := LoadResource(HInstance, FindHandle);
    if ResHandle <> 0 then
    begin
      ResPtr := LockResource(ResHandle);
      if ResPtr <> nil then
        SndPlaySound(ResPtr, snd_ASync or snd_Memory);
      UnlockResource(ResHandle);
    end;
    FreeResource(FindHandle);
  end;
end;

@artsss · 01.12.2010, 16:40

а не проще ли добавть компонент TMediaPlayer?

)

@artsss 4 / 4 / 0 Регистрация: 14.05.2010 Сообщений: 14
	01.12.2010, 16:40	3
	а не проще ли добавть компонент TMediaPlayer?) 0