File association in Windows Vista [EXAMPLE]


Apr 4, 2005
It took me a while to find this information, so I though I'd post it here incase it might save some time for some one else.

Here's a simple code example:
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim AppPath As String = """" & Application.ExecutablePath & """" & " ""%1"""
        Dim IconStr As String = "shell32.dll,116"

        'What to do with mp3-files (icon, open command etc.)
        SaveToRegistry("SOFTWARE\Classes\Litware.Player.AssocFile.MP3", "", "MP3 Format Sound")
        SaveToRegistry("SOFTWARE\Classes\Litware.Player.AssocFile.MP3\DefaultIcon", "", IconStr)
        SaveToRegistry("SOFTWARE\Classes\Litware.Player.AssocFile.MP3\shell\open\command", "", AppPath)
        'What to do with mms-urls (icon, open command etc.)
        SaveToRegistry("SOFTWARE\Classes\Litware.Player.AssocProtocol.MMS", "", "URL:MMS Protocol")
        SaveToRegistry("SOFTWARE\Classes\Litware.Player.AssocProtocol.MMS", "URL Protocol", "")
        SaveToRegistry("SOFTWARE\Classes\Litware.Player.AssocProtocol.MMS\DefaultIcon", "", IconStr)
        SaveToRegistry("SOFTWARE\Classes\Litware.Player.AssocProtocol.MMS\shell\open\command", "", AppPath)
        'What kind of files are we capable of handling
        SaveToRegistry("SOFTWARE\Litware\Litware Player\Capabilities", "ApplicationDescription", "The new Litware Media Player breaks new ground in exciting fictional programs.")
        SaveToRegistry("SOFTWARE\Litware\Litware Player\Capabilities\FileAssociations", ".mp3", "Litware.Player.AssocFile.MP3")
        SaveToRegistry("SOFTWARE\Litware\Litware Player\Capabilities\URLAssociations", "mms", "Litware.Player.AssocProtocol.MMS")
        'Register to Default Programs
        SaveToRegistry("SOFTWARE\RegisteredApplications", "Litware Player", "Software\Litware\Litware Player\Capabilities")
    End Sub

    'Saves a value name with its data and parent key in the registry
    Public Sub SaveToRegistry(ByVal KeyPath As String, ByVal ValueName As String, ByVal ValueData As Object)
        Dim regKey As Microsoft.Win32.RegistryKey

        'Open the key with write access
        regKey = Microsoft.Win32.Registry.LocalMachine.OpenSubKey(KeyPath, True)

        'If not found, create the key
        If regKey Is Nothing Then
            'Create a key in HKEY_LOCAL_MACHINE\[Path]
            regKey = Microsoft.Win32.Registry.LocalMachine.CreateSubKey(KeyPath)
        End If

        'Set the new value
        regKey.SetValue(ValueName, ValueData)
    End Sub

After running the code go to:
Start --> Control Panel --> Default Programs --> Set your default programs --> Choose your exe --> Choose defaults for this program --> Select files to associate --> Save

More info about this can be found on msdn:

They also mentioned some functions related to this, but I couldn't figure out how to call them. So if any of you nows how to call these functions, then please tell: LaunchAdvancedAssociationUI & SetAppAsDefaultAll
Last edited by a moderator:
Top Bottom