Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Multimedia (https://www.delphipraxis.net/16-multimedia/)
-   -   Delphi bestimmte Töne vom Soundschema direkt ansprechen (https://www.delphipraxis.net/93291-bestimmte-toene-vom-soundschema-direkt-ansprechen.html)

juergen 3. Jun 2007 23:52


bestimmte Töne vom Soundschema direkt ansprechen
 
Hallo zusammen,
ich möchte nicht den PC-Speaker ansprechen, sondern wie es in der Systemsteuerung -> Sounds und Audiogeräte unter dem Register "Sounds" hinterlegt ist, bestimmte Töne zu bestimmten Programmereignissen "erschallen" lassen?

Gibt es hier irgendeine Möglichkeit, auf diese Soundzuordnung von Programmereignissen zuzugreifen?
Z.B. im OnKeyPress-Event:
Delphi-Quellcode:
    if not (key in [#8, #13, #44, #46, #48..#58, ^C, ^V]) then
      key := #0;
    if not (key in [#8, #13, #44, #46, #48..#58, ^C, ^V]) then
      (Windows.Beep(2500, 80)); //<-- anstelles Windows.Beep dann z.B. den "Standardton Warnsignal" aus den Soundschema

verwirrt 4. Jun 2007 03:30

Re: bestimmte Töne vom Soundschema direkt ansprechen
 
Hallo,

PlaySound aus der Unit MMSystem kann das.

Hier ein ausführlicher Artikel dazu:

http://delphi.about.com/od/adptips20...ystemsound.htm

Gruß

turboPASCAL 4. Jun 2007 04:19

Re: bestimmte Töne vom Soundschema direkt ansprechen
 
:gruebel:
Delphi-Quellcode:
MessageBeep(MB_ICONASTERISK);
sollte das machen.

juergen 4. Jun 2007 19:34

Re: bestimmte Töne vom Soundschema direkt ansprechen
 
Hallo,
Super! :thumb:
Beide Varianten tun das was ich gesucht habe.
MessageBeep kannte ich noch nicht. Mit MessageBeep gibt es anscheinend nur die Möglichkeit auf 6 Grundtöne zuzugreifen.
Der Vorschlag @verwirrt bietet mehr Möglichkeiten.
Der Vollständigkeithalber hier die Zusammenfassung:
Aus der Registry unter \Hkey_Current_User\AppEvents\Schemes\Apps\... sich die Bezeichnung des gewünschten Programmereignisses raussuchen und über

Delphi-Quellcode:
uses MMSystem...
...
PlaySound('SystemNotification', 0, SND_ALIAS or SND_ASYNC)
...
den "Sound" ausgeben.

Also, vielen Dank euch beiden!


Alle Zeitangaben in WEZ +1. Es ist jetzt 19:04 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz