Beep für Error

[F.W.]

Bei Windows kann man ja in der Systemsteuerung bei "Sounds und Audiogeräte" die Sounds einstellen, die bei Hinweisen, Fehlern... kommen.

Bei Delphi kann ich den Hinweis ja ganz schnell mit Beep; aufrufen, aber wie kann ich den Fehlerton abspielen?

Danke!

[Hansa]

autsch, "beep" ist so kurz, da kann ich nicht mithalten. Das hier ist zwar um ein vielfaches länger, geht aber auch :

Delphi-Quellcode:

PROCEDURE WaveAbspielen (DateiName : string);
  VAR flag : byte;
  BEGIN
    flag:=SND_ASYNC;
    sndPlaySound(PChar (DateiName), Flag);
  END;

[Leuselator]

Bei mir ist (D5Ent) das irgendwie nicht in unti Windows deklariert.
Alternative:

Delphi-Quellcode:

  MessageBeep(MB_ICONASTERISK); // spielt Ton ab, der unter "Stern" eingestellt ist

guckst Du in OH unter MessageBeep, um die anderen möglichen Parameter zu erfahren.
Gruß

[F.W.]

Danke!