Syntax SendMCICommand

[EWeiss]

Delphi-Quellcode:

procedure SoundAbspielen1;
 begin
   if assigned(myMCIPlayer) then
     myMCIPlayer.Destroy;

   myMCIPlayer := TMCIPlayer.Create(ExtractFilePath(Paramstr(0)) + 'Sounds\Sound1.wav', 'waveaudio', true);
 end; 

procedure SoundAbspielen2;
 begin
   myMCIPlayer.Destroy;
   myMCIPlayer := TMCIPlayer.Create(ExtractFilePath(Paramstr(0)) + 'Sounds\Sound1.wav', 'waveaudio', true);
 end;

Wäre eine möglichkeit.
Nicht getestet.

oder halt nen Schalter zwichenschalten zwischen SoundAbspielen1 und SoundAbspielen2

Delphi-Quellcode:

Isplaying := not IsPlaying
if IsPlaying and assigned(myMCIPlayer) then 
  myMCIPlayer.Destroy
else
myMCIPlayer := TMCIPlayer.Create(ExtractFilePath(Paramstr(0)) + 'Sounds\Sound1.wav', 'waveaudio', true);

gruss