FAQ - Как засунуть в исполняемый файл WAV-файл, и затем проиграть этот звук?

В файл MYWAVE.RC пишешь:
   MYWAVE RCDATA LOADONCALL MYWAVE.WAV

Затем компилируешь
   BRCC32.EXE MYWAVE.RC, получаешь MYWAVE.RES.
   
В своей программе пишешь:
   
{$R MYWAVE.RES}
PROCEDURE RETRIEVEMYWAVE;
VAR
  HRESOURCE: THANDLE;
  PDATA: POINTER;
BEGIN
  HRESOURCE:=LOADRESOURCE( HINSTANCE, FINDRESOURCE(HINSTANCE, 'MYWAVE',
                                                           RT_RCDATA));
  TRY
    PDATA := LOCKRESOURCE(HRESOURCE);
    IF PDATA = NIL THEN RAISE EXCEPTION.CREATE('CANNOT READ MYWAVE');
    // Здесь PDATA указывает на MYWAVE
    // Теперь можно, например, проиграть его (WIN32):
    PLAYSOUND('MYWAVE', 0, SND_NODEFAULT);
  FINALLY
    FREERESOURCE(HRESOURCE);
  END;
END;

1.

49K

15 апреля 2009 года

galileopro

1 / / 15.04.2009

17 августа 2009, 17:42:25

СПасибо огромное супер)) Репект