1:
2:
3:

           //hintergrundmusik laden
           PlaySound(nil, 0, SND_PURGE);
           PlaySound(PChar('C:\projekt\musik\hg\lvl2.wav'), 0, SND_ASYNC or SND_NODEFAULT);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:

procedure TForm1.treffertimerTimer(Sender: TObject);
var zufall :integer;
begin
  randomize;
  zufall:=random(7);
  case zufall of
  0  : begin
         PlaySound(PChar('C:\projekt\musik\treffer\treffer1.wav'), 0, SND_ASYNC or SND_NODEFAULT);
       end;
  1  : begin
         PlaySound(PChar('C:\projekt\musik\treffer\treffer2.wav'), 0, SND_ASYNC or SND_NODEFAULT);
       end;
  2  : begin
         PlaySound(PChar('C:\projekt\musik\treffer\treffer3.wav'), 0, SND_ASYNC or SND_NODEFAULT);
       end;
  3  : begin
         PlaySound(PChar('C:\projekt\musik\treffer\treffer4.wav'), 0, SND_ASYNC or SND_NODEFAULT);
       end;
  4  : begin
         PlaySound(PChar('C:\projekt\musik\treffer\treffer5.wav'), 0, SND_ASYNC or SND_NODEFAULT);
       end;
  5  : begin
         PlaySound(PChar('C:\projekt\musik\treffer\treffer6.wav'), 0, SND_ASYNC or SND_NODEFAULT);
       end;
  6  : begin
         PlaySound(PChar('C:\projekt\musik\treffer\treffer7.wav'), 0, SND_ASYNC or SND_NODEFAULT);
       end;
  7  : begin
         PlaySound(PChar('C:\projekt\musik\treffer\treffer8.wav'), 0, SND_ASYNC or SND_NODEFAULT);
       end;
  end;
  treffertimer.Enabled:=false;
end;
procedure TForm1.schusstimerTimer(Sender: TObject);
begin
  case runde of
  1..3  : begin
            PlaySound(PChar('C:\projekt\musik\Waffen\wpn1shot.wav'), 0, SND_ASYNC or SND_NODEFAULT);
          end;
  4..6  : begin
            PlaySound(PChar('C:\projekt\musik\Waffen\wpn2shot.wav'), 0, SND_ASYNC or SND_NODEFAULT);
          end;
  7..9  : begin
             PlaySound(PChar('C:\projekt\musik\Waffen\wpn3shot.wav'), 0, SND_ASYNC or SND_NODEFAULT);
          end;
  10..12  : begin
              PlaySound(PChar('C:\projekt\musik\Waffen\wpn4shot.wav'), 0, SND_ASYNC or SND_NODEFAULT);
            end;
  13..15  : begin
              PlaySound(PChar('C:\projekt\musik\Waffen\wpn5shot.wav'), 0, SND_ASYNC or SND_NODEFAULT);
            end;
  16..18  : begin
              PlaySound(PChar('C:\projekt\musik\Waffen\wpn6shot.wav'), 0, SND_ASYNC or SND_NODEFAULT);
            end;
  end;
  schusstimer.Enabled:=false;
end;