@Dalai Ich hab jetzt das hier mal ergänzt (zu Testzwecken)
Code:
procedure PlayMySound(SndName: String); //uses mmSystem
var
FilePath: String;
begin
FilePath := ExtractFilePath(ParamStr(0)) + SndName + '.wav';
ShowMessage(FilePath);
if FileExists(FilePath) then
//SndPlaySound(PAnsiChar(FilePath), SND_ASYNC ); //Alternative
PlaySound(PChar(FilePath), hInstance, SND_ASYNC or SND_FILENAME)
else //SndPlaySound(PAnsiChar(FilePath), SND_ASYNC ); //Alternative
PlaySound(PChar(FilePath), hInstance, SND_ASYNC or SND_FILENAME)
end;
Also wird der Befehl ausgeführt, auch wenn "FileExists(Filepath)" false ist. Ich weiß, ich hätte da auch einfach nur den Befehl hinschreiben können, aber ... ich weiß es selber nicht
Natürlich kommt der Fehlerton, wie erwartet.
Ich bin unter Windows 7 und da werden ja keine Dateiendungen angezeigt. Muss ich die Datei dann umbenennen und die Dateiendung hinzufügen?