Включение wav-файла в exe и проигрывание этого wav-файла

{$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(pData, 0, SND_MEMORY SND_ASYNC SND_NOSTOP);

//Для PlaySound используется модуль MMSystem}

//SND_ASYNC - при проигрывании не останавливать работу программы

//SND_NOSTOP - проиграть звук до конца

//SND_STOP - прекратить играть прежний звук и начать новый

finally

FreeResource(hResource);

end;

end;