Hi,
Ich will die SNDPlaysound(); Prozedur mit einer variable füttern.
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
| var sw1:PChar;
Procedure Tform1.Sound;
begin
randomize;
a:=random(6)+1;
case a of
1:sw1:=PChar(ExtractFilepath(paramstr(0))+'Sounds\FX\deagle.wav');
2:sw1:=PChar(ExtractFilepath(paramstr(0))+'Sounds\FX\elite.wav');
3:sw1:=PChar(ExtractFilepath(paramstr(0))+'Sounds\FX\p90.wav');
4:sw1:=PChar(ExtractFilepath(paramstr(0))+'Sounds\FX\mp5.wav');
5:sw1:=PChar(ExtractFilepath(paramstr(0))+'Sounds\FX\laser.wav');
6:sw1:=PChar(ExtractFilepath(paramstr(0))+'Sounds\FX\plasma.wav');
end;
SndPlaySound(sw1,SND_ASYNC);
end; |
Leider kommt hier kein Sound heraus, wenn ich die Procedure aufrufe. Kann jemand einen Fehler entdecken?
Die Dateinamen sind auf jeden Fall richtig, ich habe sie alle einzeln durchprobiert.
Edit: Hab den Fehler gefunden... :S
Das "ExtractFilepath(paramstr(0))+" darf nicht sein, dann geht es.
