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