komisches Problem mit PlaySound

[Mr.Question]

Hallo Leute,

folgendes Problem: Ich habe eine .wav datei, die im Projektordner meines Projektes liegt und versuche nun folgendes:

Code: Alles auswählen

uses MMSystem;

Code: Alles auswählen

procedure TForm1.Button1Click(Sender: TObject);
begin
PlaySound('inro.wav',0,SND_ASYNC);
end;

Doch wenn ich auch den Button klicke höre ich nur ein "ding" also das Windows-Fehlergergäuch.
Woran liegts? Ich würd mich freuen, wenn mir das einer mal sagt.

Danke!

[Antrepolit]

Die Antwort findest du bei der Beschreibung von PlaySound auf der MSDN-Seite. Kurz gesagt wird die Sound-Datei nicht gefunden. Funktioniert das denn mit einem absoluten Pfad?
Wenn du SND_NODEFAULT zu SND_ASYNC mit dazu nimmst, kannst du den System-Default-Sound unterdrücken. Nachzlesen hier: http://msdn.microsoft.com/en-us/library/aa909766.aspx.

[Mr.Question]

So funktionierts leider auch nicht (zumindest hält windows die Klappe ...):

Code: Alles auswählen

procedure TForm1.Button1Click(Sender: TObject);
begin
PlaySound('C:\...\...\Desktop\...\intro.wav',0,SND_NODEFAULT or SND_ASYNC);
end;

[Scotty]

Meine Glaskugel sagt: "File not found" -> Windows Fehler -> Ding, entweder wegen fehlender Pfadangaben oder weil "Intro" falsch geschrieben ist. Außerdem bezweifle ich, dass dein Handle 0 ist. Und IMHO ist auch der Parameter Flag falsch (SND_FILENAME fehlt).

http://msdn.microsoft.com/en-us/library ... 85%29.aspx" onclick="window.open(this.href);return false;
http://wiki.freepascal.org/Multimedia_Programming" onclick="window.open(this.href);return false;
Funktion sndPlaySound()

[Mr.Question]

Was soll ich denn für ein Handle nutzen und wozu ist das überhaupt da?

[Mr.Question]

So das Probelm ist weg. Ich zeig mal kurz, wie ichs gemacht hab, da ich leider nicht mehr weiß, wie das damals war mit der Lösung:

Code: Alles auswählen

sndplaysound('hupe.wav',SND_ASYNC);

wobei "hupe.wav" im Projektordner liegt.

Eingebunden ist:

Code: Alles auswählen

uses MMSystem, ....

Danke auf jeden Fall!