PC-Lautsprecher piepen lassen?

[Delphi Star]

Moin,
weiß jemand wie man aus einer Delphi-Anwendung heraus den PC-Laursprecher piepen lassen kann und wenn es geht noch in verschiedenen Frequenzen?

[Marco Haffner]

Windows.Beep(Frequenz, Dauer);

[XeRo]

Also bei mir pingt da nur der lautsprecher...und zwar immer gleich lang...da kann ich gleich eingeben:

Code:

Beep;

oder ligt dass an mir

[edit]verdammte tastatur...[/edit]

[Jörn]

Funzt nicht mit jedem OS...

[himitsu]

@XeRo

der Befehl Beep (aus der Unit SysUtils) übergibt den Befehl weiter an Windows

Delphi-Quellcode:

Procedure Beep;
  Begin
    MessageBeep(0);
  End;

Function MessageBeep; external User32 Name 'MessageBeep';

Wenn also bei dir keine Soundkarte drin ist, oder kein entsprechender Sound eingestellt ist, dann geht es über den PC-Lautsprecher, sonnst kommt der Ton über die Soundkarte/große Boxen (aus 'ner WAV)

[XeRo]

Und wie kann man den ton dann zwingen aus den pc-mini-beeper zu kommen?

[Michael Leyhe]

HI

Wenn ich das mit

Code:

windows.beep(frequenz, dauer)

mache dann kommt das aus dem onboard "lautsprecher".
Und das in verschiedenen frequenzen und mit verschieden langer dauer, je nachdem was man eingibt.

[flomei]

Funktioniert bei mir unter Win2k nicht... Seltsam...

MfG Florian

[XeRo]

Zitat:

...:::das ist ein labyrinth ohne faden:::...

Gibts jetzt ne generelle lösung für das Beepen aus dem onboard "lautsprecher"?

[Manzoni]

...Töne über den PC-Speaker ausgeben?

funzt leider nicht mit jedem OS