I am writing a little code to associate an extention with
my program. And as far as i can see, i need to do the
following:
Public Function associatefile(ByVal
FILE_EXTENTION_TO_ASSOCIATE As String, ByVal
FILE_EXTENTION_DESCRIPTION As String, ByVal EXE_NAME As
String, ByVal DEFAULT_OPEN_COMMAND As String, ByVal
DEFAULT_ICON As String, ByVal ACTION_NAME As String)
Dim RegKey As RegistryKey
RegKey = Registry.ClassesRoot.CreateSubKey
("CMG.ASSOCIATION\")
RegKey.SetValue("", FILE_EXTENTION_DESCRIPTION)
RegKey.SetValue("EditFlags", 0)
RegKey.SetValue("AlwaysShowExt", "")
RegKey.SetValue("BrowserFlags", 8)
RegKey = Registry.ClassesRoot.CreateSubKey
("CMG.ASSOCIATION\DefaultIcon\")
RegKey.SetValue("", DEFAULT_ICON)
RegKey = Registry.ClassesRoot.CreateSubKey
("CMG.ASSOCIATION\shell\")
RegKey.SetValue("", ACTION_NAME)
RegKey = Registry.ClassesRoot.CreateSubKey
("CMG.ASSOCIATION\shell\" & ACTION_NAME & "\command\")
RegKey.SetValue("", DEFAULT_OPEN_COMMAND)
RegKey = Registry.ClassesRoot.CreateSubKey
("CMG.ASSOCIATION\shell\" & ACTION_NAME
& "\ddeexec\Application\")
RegKey.SetValue("", ACTION_NAME)
RegKey = Registry.ClassesRoot.CreateSubKey
("CMG.ASSOCIATION\shell\" & ACTION_NAME
& "\ddeexec\Topic\")
RegKey.SetValue("", "system")
RegKey = Registry.ClassesRoot.CreateSubKey
("Applications\" & EXE_NAME & "\shell\open\command\")
RegKey.SetValue("", DEFAULT_OPEN_COMMAND)
RegKey = Registry.ClassesRoot.CreateSubKey
(FILE_EXTENTION_TO_ASSOCIATE)
RegKey.SetValue("", "CMG.ASSOCIATION")
End Function
Example how to call it:
CMG.associatefile(".CMGCHECK", "CMG CHECKING
FILE", "CMGCHECK.EXE", """C:\CMGCHECK.EXE"" ""%
1""", "shell32.dll,44", "CHECK CMG DATABASE")
the values 0 and 8 should be dwords, but i just dnno how
to add it as dword... i searched on google and MSDN
without luck. The Object browser also has no data for
DWORD.
Thanx in advance.
N.B.
If the things i do above are not correct, plz tell me
what i am missing...
