ret = RegSetValue(HKEY_CLASSES_ROOT, "userfile\shell\open\command", REG_SZ, ExePath, LenB(StrConv(ExePath, vbFromUnicode)) 1)
''''最关键的一步！将 "userfile" 的打开（open)操作和我们的程序关联起来
RegCloseKey hKey
End Sub
这样，当我们以后双击 .abc的图标以后，就能自动打开我们的VB程序了。当然，这样只能实现打开程序，程序怎么能知道我们双击的文件名呢？好，我们现在创建一个窗体来说明一下这个问题。
在加载窗体的时候，加上这样的源代码：
Private Sub Form_Load()
Dim ss As String ’定义一个字符变量
ss = Command() ’最关键的一步！用这个函数来获得命令行参数！！就是上面提到的 "%1" ,换句话来说，就是文件名！
Me.Caption = ss ’好了，窗体上面就是你的文件名了！（当然，有了文件名，想干什么，你就自己决定吧！）
End Sub
当然，你先要判断一下程序是不是第一次运行，如果是第一次运行的话，在加载窗体前，先执行一下 Sub Main()，进行文件的关联。
好了，学会后，你就能在程序中使用自定义的文件了，或许某一天，.mp3的默认打开方式就是你编写的播放器了。
文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
