Search content:

 

Personal Menu
Username:
Password:
Save password

Become a member

Forgot Password?

 

Don't miss these
Get all combinations of a string
Install Maker
Powerpoint in Director
A* Pathfinder in Lingo
Fade bitmap to / from pure colour behaviour
WebXtra
Toggle ButtonsEnabled Property of a Flash Member
LipSync
Irregular MIAW
RadioGroup
MediaMacros Xtras Mall
 

 

 

Behavior Windows Sounds Scheme Customization

Added on 8/11/2002

 

Compatibilities:
behavior D6_5 D7 D8 D8_5 D9 PC US

Required Xtras:
Registry Xtra

This item has not yet been rated

Author: Shockdev

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

 


Upload Provided by ABCUpload ASP

Contact

MMI
22 West Court Sq
Suite 2C
Newnan, GA 30263
USA

Fax - (206) 339-5833

Send e-mail