[Electronic_Arts]

Аха пробовал тож не помогло

Код:

procedure RetrieveMyWave;
var
  hResource: THandle;
  pData: Pointer;
begin
  hResource:=LoadResource( hInstance, FindResource(hInstance, 'RESOURCE_1', RT_RCDATA));
  try
    pData := LockResource(hResource);
    if pData = nil then
      raise Exception.Create('Cannot read RESOURCE_1');
    PlaySound('RESOURCE_1', hInstance, SND_RESOURCE or SND_SYNC);
  finally
    FreeResource(hResource);
  end;
end;