Сначала делаешь файл 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)