Wie wave-Resource mit SndPlaySound abspielen?

[jaenicke]

Du musst auf den korrekten Typ casten:

Delphi-Quellcode:

procedure TForm1.ZahlSound(Zahl: Integer);
var
  ResName: String;
begin
  ResName := 'Resource_' + Zahl.ToString;
  Playsound(PChar(ResName), 0, SND_Resource or SND_Sync);
end;

[Gelmo]

Ich melde mich erst jetzt, weil es auch mit
Playsound(ResName, 0,SND_Resource or SND_Sync); nicht geklappt hat, den Sound in der Resource zu aktivieren. In der Version oben höre ich keinen Ton, wenn ich Snd_Resource weglasse, höre ich den Windows-Fehlerton.
Habe das Problem inzwischen gelöst, indem ich den Ordner mit den Wave-Dateien im Umfeld des Programms suche und die einzelnen Töne in ein String-Array mit den jeweiligen Sounddatei-Pfaden aufnehme und dann mit  Playsound(ZahlSound[Zahl],0,SND_Sync); abspiele. Das funktioniert jetzt.
Vielen Dank
MfG Gelmo

[jaenicke]

Dann musst du irgendetwas anders gemacht haben. So sieht es bei mir aus:

Screenshot 2025-01-25 185259.png

Delphi-Quellcode:

procedure TForm281.ZahlSound(Zahl: Integer);
var
  ResName: String;
begin
  ResName := 'Resource_' + Zahl.ToString;
  Playsound(PChar(ResName), 0, SND_Resource or SND_Sync);
end;

procedure TForm281.Button1Click(Sender: TObject);
begin
  ZahlSound(1);
end;

Das Testprojekt, das ich dafür eben erstellt habe, liegt im Anhang.