Акжан в сети - На уровень вверх(API) Как проиграть Wave-ресурс?

Сначала делаешь файл SOUND.RC, в нем строка вида:

Y_WAV RCDATA TEST.WAV

Компилируешь чем-нибyдь в *.RES (в каталоге ($DELPHI)\BIN есть утилита командной строки - компилятор ресурсов BRCC32.EXE или рядом).

Далее в исходном коде:

{$R полное_имя_файла_с_ресурсом}

var
  WaveHandle  : THandle;
  WavePointer : pointer;
...
  WaveHandle  := FindResource(hInstance,'MY_WAV',RT_RCDATA);
  if WaveHandle <> 0 then
  begin
    WaveHandle:= LoadResource(hInstance,WaveHandle);
    if WaveHandle <> 0 then
    begin
      WavePointer := LockResource(WaveHandle);
      PlayResourceWave := sndPlaySound(WavePointer, SND_MEMORY or SND_ASYNC);
      UnlockResource(WaveHandle);
      FreeResource(WaveHandle);
    end;
  end;

Serg Vostrikov

(2:5053/15.3)