Windows Sounds Scheme Customization

 

Compatibilities: Required Xtras: Registry Xtra

This item has not yet been rated

Customize sounds for Windows events easily. Change minimize and maximize application sounds, popup and system question sounds and much more!

Download PC Source

-- Customize Windows Sounds Scheme. -- Reboot is not required. -- by Meliora Software www.meliorasoft.com -- Compatibilities: Director 6.x, 7.x, 8.x, Windows, Registry Xtra property Sound1, Sound2, Sound3, Sound4, Sound5, Sound6, Sound7, Sound8, Sound9, Sound10, Sound11, Sound12, Sound13, Sound14, Sound15, Sound16 on getPropertyDescriptionList   set description = [:]   -- Paths to .wav files   addProp description, #Sound1, [#default:"C:WINDOWSMEDIA", #format:#string, #comment:"Path to Default Windows Event Sound:"]   addProp description, #Sound2, [#default:"C:WINDOWSMEDIA", #format:#string, #comment:"Path to General Protection Fault Sound:"]   addProp description, #Sound3, [#default:"C:WINDOWSMEDIA", #format:#string, #comment:"Path to Mail Beep Sound:"]   addProp description, #Sound4, [#default:"C:WINDOWSMEDIA", #format:#string, #comment:"Path to Maximize App Sound:"]   addProp description, #Sound5, [#default:"C:WINDOWSMEDIA", #format:#string, #comment:"Path to Menu Command Sound:"]   addProp description, #Sound6, [#default:"C:WINDOWSMEDIA", #format:#string, #comment:"Path to Menu Popup Sound:"]   addProp description, #Sound7, [#default:"C:WINDOWSMEDIA", #format:#string, #comment:"Path to Minimize Application Sound:"]   addProp description, #Sound8, [#default:"C:WINDOWSMEDIA", #format:#string, #comment:"Path to Open Dialog Sound:"]   addProp description, #Sound9, [#default:"C:WINDOWSMEDIA", #format:#string, #comment:"Path to Restore Down Sound:"]   addProp description, #Sound10, [#default:"C:WINDOWSMEDIA", #format:#string, #comment:"Path to Restore Up Sound:"]   addProp description, #Sound11, [#default:"C:WINDOWSMEDIA", #format:#string, #comment:"Path to System Asterisk Sound:"]   addProp description, #Sound12, [#default:"C:WINDOWSMEDIA", #format:#string, #comment:"Path to System Exclamation Sound:"]   addProp description, #Sound13, [#default:"C:WINDOWSMEDIA", #format:#string, #comment:"Path to System Exit Sound:"]   addProp description, #Sound14, [#default:"C:WINDOWSMEDIA", #format:#string, #comment:"Path to System Hand Sound:"]   addProp description, #Sound15, [#default:"C:WINDOWSMEDIA", #format:#string, #comment:"Path to System Question Sound:"]   addProp description, #Sound16, [#default:"C:WINDOWSMEDIA", #format:#string, #comment:"Path to System Start Sound:"]   return description end on getBehaviorDescription   return "Behavior to customize Windows Sounds Scheme" & RETURN & ¬ "- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -" & RETURN & ¬   "With this behavior you can easily customize Windows system sounds, Registry Xtra required." end on mouseDown   set CommonPath = "HKEY_CURRENT_USERAppEventsSchemesApps.Default"   set Apdx = ".Current"   set Keys = [".Default","AppGPFault", "MailBeep", "Maximize", "MenuCommand", "MenuPopup", "Minimize", "Open", "RestoreDown", "RestoreUp", "SystemAsterisk", "SystemExclamation", "SystemExit", "SystemHand", "SystemQuestion", "SystemStart"]      repeat with i = 1 to count(Keys)     set Sound = ""     do ("set Sound=Sound"&i)     set Result = CreateRegValue(CommonPath & Keys[i] & Apdx, "", Sound)   end repeat    end