Gibt es eine einfache Methode um einen einigermaßen lauten Beep-Ton aus dem PC-Speaker ertönen zu lassen?
Der normale Beep von Delphi ist ja kaum zu hören
Unter TP gab es die Möglichkeit sogar die Tonhöhe anzugeben, doch in Delphi sieht es eher mau aus.

Ich habe auch schon aus diversen Foren Assembler-Code für diesen Zweck ausprobiert, doch funktioniert das nur unter gewissen Umständen.
D.h. manchmal hört man was und manchmal halt nichts (es hängt stark von den Programmen ab, die der Benutzer gestartet hat).

Ich brauche diese Funktion um dem Benutzer auf ein Nachrichtenfenster hinzuweisen - vielleicht könnt ihr mir helfen.

Greetz,

nun unter Win-Maschinen scheint ein erzwingen nicht ganz so leicht zu sein, da Windows eigenständig entscheidet, ob die Soundkarte oder der Speaker zum Einsatz kommt... im Zweifelsfall Soudnkarte rausreißen

Kann die Funktion leider nicht testen, da mein Speaker scheinbar sich selbst gekreuzigt hat, aber die PSDK sieht eine Funktion Namens "Beep" vor. Nicht zu verwechseln mit der von Delphi. Das Problem dabei, wenn Du ein Form verwendest ist, dass der Delphi-Befehl den der WinAPI überschreibt. Am besten ne neue Unit erstellen und nur "windows.pas" einbinden, dann steht die dir orginal API-Funktion zur Verfügung. Ansonsten bitte näheres der Windows.pas entnehmen ^_-

Auszug aus der PSDK:


Ansonsten denke ich, dass dies ne Fall für Wicked sein könnte... der hat ja meist ne Idee

_________________
"Light travels faster than sound. This is why some people appear bright, before you can hear them speak..."

Ich hab's bei mir gerade mal getestet.

Windows.Beep(500, 100);

Mit dem ersten Parameter kannst Du die Tonhöhe setzen, mit dem 2. die dauer. Funktioniert auf meinem Rechner (Windows XP) immer noch. Allerdings wäre mir, dass Mircosoft mal behauptet hätte, diese Funktion nicht mehr länger weiter zu führen und nur aus kompatibilitätsgründen anzubieten. Aber wie gesagt: unter Windows XP tuts noch

Du must das ganze übrigens mit Windows.Beep angeben, de Delphi ansonsten den Beep aus der SysUtils Unit verwenden will, wenn Du diese eingebunden hast.

_________________
Und was würdest Du tun, wenn Du wüsstest, dass morgen Dein letzter Tag auf dieser Erde ist?

Komisch, hab ne Deja-vu

_________________
"Light travels faster than sound. This is why some people appear bright, before you can hear them speak..."

Nö, wollte nur Deinen Post untermauern. Du warst Dir nicht ganz sicher, wie das Funktioniert, also hab ich's ausprobiert und das Ergebnis gepostet. Außerdem wollte ich noch mitteilen, wie es Funktioniert, aus der Form-Unti raus auf die Funktion der Windows.pas zuzugreifen. Ist übrigens generell so. Mann kann bei den Funktionen den Namen der Unit, in welcher die Funktion deklariert ist, mit angeben. Also Windows.Beep oder Forms.Application... würde auch gehen.

_________________
Und was würdest Du tun, wenn Du wüsstest, dass morgen Dein letzter Tag auf dieser Erde ist?

Danke Phobeus für deine Hilfestellung!

Der Befehl klappt recht gut, aber nur unter Win XP, nicht aber unter Win9x.

Hier ist der Code den ich für Win9x gefunden habe:




Einfach den Sound mit Hilfe von DoSound aktivieren, dann einen Sleep mit der gewünschten Dauer einstellen und mit NoSound den Beep unterbrechen.