Buchempfehlung
Windows-Programmierung. Das Entwicklerhandbuch zur WIN32-API
Windows-Programmierung. Das Entwicklerhandbuch zur WIN32-API
"Der" Petzold, das über 1000 Seiten starke Standardwerk zum Win32-API - besonders nützlich u. a. bei der GUI-Programmierung in FreeBASIC! [Mehr Infos...]
FreeBASIC-Chat
Es sind Benutzer im FreeBASIC-Chat online.
(Stand:  )
FreeBASIC bei Twitter
Twitter FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!

Code-Beispiel

Code-Beispiele » Multimedia

Windows Sounds für uns zweckentfremden

Lizenz:Erster Autor:Letzte Bearbeitung:
k. A.MitgliedEternal_Pain 13.06.2007

Quelle:fb@rchive
Autor:Benjamin Kunz

In den weiten der API länder habe ich mal wieder eine nette neue Function gefunden,
die es uns ermöglicht die Sounds von Windows für unsere Zwecke zu verwenden.

Declare Function PlaySound Lib "winmm.dll" _
  Alias "PlaySoundA" (ByVal lpszName As String, _
  ByVal hModule As Long, ByVal dwFlags As Long) As Long

Enum aSound
  Frage
  Hinweis
  KritischerAbbruch
  Maximieren
  Menuebefehl
  MenuePopUp
  Minimieren
  NeueMail
  ProgrammOeffnen
  ProgrammSchliessen
  Programmfehler
  Stern
  Vergroessern
  Verkleinern
  WindowsBeenden
  WindowsStarten
End Enum

Const SND_A = &H10000
Const SND_B = &H1
Const SND_C = &H2

Sub PWinSound(aEvent As aSound)
  ReDim Cmd(15) As String

  Cmd(0) = "SystemQuestion"
  Cmd(1) = "SystemExclamation"
  Cmd(2) = "SystemHand"
  Cmd(3) = "Maximize"
  Cmd(4) = "MenuCommand"
  Cmd(5) = "MenuPopUp"
  Cmd(6) = "Minimize"
  Cmd(7) = "MailBeep"
  Cmd(8) = "Open"
  Cmd(9) = "Close"
  Cmd(10) = "AppGPFault"
  Cmd(11) = "SystemAsterix"
  Cmd(12) = "RestoreUp"
  Cmd(13) = "RestoreDown"
  Cmd(14) = "SystemExit"
  Cmd(15) = "SystemStart"
  If aEvent >= 0 And aEvent <= UBound(Cmd) Then
    PlaySound Cmd(aEvent), 0&, SND_A Or _
      SND_B Or SND_C
  End If
End Sub

PWinSound WindowsStarten
Sleep
PWinSound WindowsBeenden
sleep
end

Zusätzliche Informationen und Funktionen
  • Das Code-Beispiel wurde am 13.06.2007 von MitgliedEternal_Pain angelegt.
  • Die aktuellste Version wurde am 13.06.2007 von MitgliedEternal_Pain gespeichert.
  Bearbeiten Bearbeiten  

  Versionen Versionen