win7下文件关联的问题？

悬赏园豆：20 [已关闭问题] 关闭于 2013-10-22 22:29

我做了一个简单的音乐播放器，想实现文件关联，几年之前倒是做过一些，当时是XP，关联也做的不太好,现在又遇到了同样的问题。

我就是想问比如：在win7下,如何在MP3文件右键菜单里弹出将添加到“MyPlayer播放列表”和“使用MyPlayer播放”，再个就是设置为MP3的默认播放器，高手给指点一下吧？我有部分代码：

Private Sub AddMusicPlayer(ByVal Ext As String, ByVal player As String)
    Dim reg As New clsRegister  ‘我自己定义的可以方便访问注册表的类
    Dim keyName As String
    keyName = "MyPlayer." & Ext
    reg.UpdateKey HKEY_CLASSES_ROOT, "." & Ext, "MyPlayer", keyName
    reg.UpdateKey HKEY_CLASSES_ROOT, keyName, "", Ext & " file"
    reg.UpdateKey HKEY_CLASSES_ROOT, keyName & "\DefaultIcon", "", player & ",0"
    reg.UpdateKey HKEY_CLASSES_ROOT, keyName & "\Shell", "", ""
    reg.UpdateKey HKEY_CLASSES_ROOT, keyName & "\Shell\Open", "", "打开(&O)"
    reg.UpdateKey HKEY_CLASSES_ROOT, keyName & "\Shell\Open\Command", "", """" & player & """ add ""%1"""
    reg.UpdateKey HKEY_CLASSES_ROOT, keyName & "\Shell\Open", "", "添加到“MyPlayer”播放列表(&P)"
    reg.UpdateKey HKEY_CLASSES_ROOT, keyName & "\Shell\Open\Command", "", """" & player & """ play ""%1"""
End Sub

Private Sub menuSetMusicPlayer_Click()
    AddMusicPlayer "MP3", App.Path & "\" & App.EXEName & ".exe"
End Sub