Super, danke für eure Hilfe!
Der Code sieht jetzt so aus:
Delphi-Quellcode:
//globale Variable in Hauptform, weil ich nicht wusste wie ich das anders lösen sollte
ExePfad := ExtractFilePath(Application.ExeName);
//in Extra Unit
procedure SoundAbspielen(sound: byte);
begin
SendMCICommand('
open waveaudio shareable');
case Sound
of
// 1: SendMCICommand('play "Sounds\Sound1.wav"'); //Funktioniert, ist aber nicht optimal
1: SendMCICommand('
play "'+ExePfad+ '
Sounds\Sound1.wav"');
//Wirft einen Fehler auf
end;
SendMCICommand('
close waveaudio');
end;
Beim Debugging steht da, dass folgender Pfad raus kommt:
SendMCICommand(
'play "C:\Users\...\Sounds\Sound1.wav"');
SendMCICommand gibt den
Error aus dem Anhang aus.
("Gerät ist nicht geöffnet oder wird vom MCI nicht erkannt.")
Weiß jemand Rat?