[Aristarh Dark]

WAV (взято из DRKB)

Код:

var 
  FindHandle, ResHandle: THandle; 
  ResPtr: Pointer; 
begin 
  FindHandle := FindResource(HInstance, 'Name of your resource', 'WAVE'); 
  if FindHandle <> 0 then 
  begin 
    ResHandle := LoadResource(HInstance, FindHandle); 
    if ResHandle <> 0 then 
    begin 
      ResPtr := LockResource(ResHandle); 
      if ResPtr <> nil then 
        SndPlaySound(PChar(ResPtr), snd_ASync or snd_Memory); 
      UnlockResource(ResHandle); 
    end; 
    FreeResource(FindHandle); 
  end; 
end;