How to play sound from a resource file (Views: 704)
Problem/Question/Abstract: I am attempting to have a wave file played when a button is clicked. Rather than install the wave file and use the PlaySound() API call, I'd like to put it into a resource file so that it plays with only the EXE present. Answer: { ... } 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; |