Kein Ton zu hören...

[hacker]

Ich hab da mal ne Frage....

Code:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 Label1.Caption := TimeToStr(Time);
 MessageBeep(0);
end;

Bei mir ist leider kein Ton zu hören, an was liegt das?


Grus Häcki

[fkerber]

Hi!

Weiß nicht, woran es hängt aber mit

Beep; kommt ein Ton, vielleicht hilft dir das ja!

Ciao fkerber

[Edit]P.S. bei mir beepst auch [/Edit]

[Duffy]

Hallo Hacker,
bei mir machts "Blop" mit deinem Code.

bye
Claus

[toms]

Zitat:

Bei mir ist leider kein Ton zu hören, an was liegt das?

Windows Version?

[himitsu]

Versuch mal diese Varianten:

Delphi-Quellcode:

MessageBeep($FFFFFFFF);
MessageBeep(MB_ICONASTERISK);
MessageBeep(MB_ICONEXCLAMATION);
MessageBeep(MB_ICONHAND);
MessageBeep(MB_ICONQUESTION);
MessageBeep(MB_OK);
...

PS: Dieser Befehl spielt Systemsounds ab und wenn keine eingerichtet sind, dann kommt natürlich auch nichts aus den Boxen.
Schau dazu mal in die Systemsteuerung / Sounds ... rein, ob da auch Sounds zugeordnet sind.

[hacker]

Das habe ich mir auch schon gedacht, aber ich habe nicht gefunden welches für den Beepston zuständig ist...aber danke trotzdem...


Gruss Häcki