Syntax SendMCICommand

[EWeiss]

Delphi-Quellcode:

procedure SoundAbspielen1;
 begin
   myMCIPlayer := TMCIPlayer.Create(ExtractFilePath(Paramstr(0)) + 'Sounds\Sound1.wav', 'waveaudio', False);
   myMCIPlayer.play;
 end;

Hast du dir mal die Variable autoplay angeschaut?
Wenn ja warum verwendest du sie dann nicht und entfernst das
myMCIPlayer.play;

Dann benötigst du nur Create und Destroy..

Alternativ könntest du auch noch eine neue procedure einbauen
in der du close verwendest und die Funktionen aus Destroy dort einfügst.

gruss