# Text File Association.mscr
# 2008-07-29
# Chieh Cheng
# http://www.CynosureX.com/

# GNU General Public License (GPL), Version 2, June 1991

  DO_NOTHING = 0
  ASSOCIATE = 1
  REMOVE = 2

  progName = "Text File Association"
  extension = Input ("What file extension would you like to associate as text file? (Exclude '.')", progName)

  if (extension eq "")
    Message ("You did not specify a file extension. Operation cancelled.", "No Extension Specified")
  else
    extension = "." & extension
    action = 1

    if (RegKeyExists ("HKCR", extension))
      action = Choice ("Extension Exists", "The " & extension & " extension is already associated. What would you like to do?", 1, 0, "Overwrite", "Remove")
    endif

    Switch (action)
      Case (DO_NOTHING)
        Message ("Operation cancelled.", "File Association")

      Case (ASSOCIATE)
        RegWriteString ("HKCR", extension, "Content Type", "text/plain")
        RegWriteString ("HKCR", extension, "Default", "txtfile")
        Message ("Operation complete. The " & extension & " extension is now considered as a text file.", "File Association")

      Case (REMOVE)
        RegDeleteKey ("HKCR", extension, TRUE, TRUE)
        Message ("Operation complete. The " & extension & " extension is no longer considered as a text file extension.", "File Association")

    EndSwitch

  endif