Learning to use resource files [9]-wave Resources

// RC file: sound1 wave "soundfile1.wav" sound2 wave "soundfile2.wav"

 //Code: Unit unit1; interfaceuses windows, messages, sysutils, variants, classes, graphics, controls, forms, dialogs, stdctrls; Type tform1 = Class (tform) button1: tbutton; button2: tbutton; procedure button1click (Sender: tobject); Procedure button2click (Sender: tobject); end; var form1: tform1; implementation {$ R *. DFM} uses mmsystem; {The sndplaysound and playsound used below are declared in this unit} procedure tform1.button1click (Sender: tobject); var RS: tresourcestream; begin RS: = tresourcestream. create (hinstance, 'sound1', 'powerwave '); sndplaysound (RS. memory, snd_async or snd_memory); RS. free; end; Procedure tform1.button2click (Sender: tobject); var RS: tresourcestream; begin RS: = tresourcestream. create (hinstance, 'sound2 ', 'powerwave'); playsound (RS. memory, hinstance, snd_async or snd_memory); RS. free; end.