我做一个媒体播放器，可以播放像rmvb，rm等格式，怎么才能在资源管理器右键点击rm文件时，出现 播放器，点击 播放器，就打开并播放呢

Question

我做一个媒体播放器，可以播放像rmvb，rm等格式，怎么才能在资源管理器右键点击rm文件时，出现 播放器，点击 播放器，就打开并播放呢
就像暴风影音，一双击rmvb等文件，就自动打开暴风影音，并使用暴风影音播放改rmvb文件我现在做一个1.reg注册表文件，导入之后，右键菜单出现“英语学习播放器2009”，但是右击rmvb文件后，只是打开播放器，不能同时播放该rmvb,请教请教Windows Registry Editor Version 5.00[HKEY_CLASSES_ROOT\*\shell\英语学习播放器2009\command]
@="\"F:\\英语学习播放器2009.exe\" \"%1\""

Answer 1

那个%1好像要跟程序放在一起，比如"F:\\英语学习播放器2009.exe \"%%1\""还有，那个%号以及\\，都是C里面的，如果是VB，应该不用\\和%%。

Answer 2

Windows Registry Editor Version 5.00 
[HKEY_CLASSES_ROOT\.rmvb] 
@="英语学习播放器2009" 
[HKEY_CLASSES_ROOT\.mp3] 
@="英语学习播放器2009" 
[HKEY_CLASSES_ROOT\.avi] 
@="英语学习播放器2009" 
[HKEY_CLASSES_ROOT\.rm] 
@="英语学习播放器2009" 
[HKEY_CLASSES_ROOT\.wmv] 
@="英语学习播放器2009" 
[HKEY_CLASSES_ROOT\.asf] 
@="英语学习播放器2009" 
[HKEY_CLASSES_ROOT\.swf] 
@="英语学习播放器2009" 
[HKEY_CLASSES_ROOT\英语学习播放器2009] 
@="英语学习播放器2009" 
[HKEY_CLASSES_ROOT\英语学习播放器2009\shell] 
[HKEY_CLASSES_ROOT\英语学习播放器2009\shell\open] 
@=\"F:\英语学习播放器2009.exe\" \"%1\"" 
这个就是我做的reg文件，不知还差什么？谢谢先

Answer 3

不能在WINDOWS中定义该类型文件用你的程序打开吗？

Answer 4

你的程序要响应参数
Option ExplicitPrivate Sub Form_Load()
    Dim sFile As String
    
    sFile = Command$()
    If LenB(sFile) = 0 Then Exit Sub
    
    '去除文件名两边的双引号（如果存在的话）
    If (Left$(sFile, 1) = """") And (Right$(sFile, 1) = """") Then
        sFile = Mid$(sFile, 2, Len(sFile) - 2)
    End If
    
    Call 播放(sFile)
End Sub

Answer 5

Tiger_Zhao 大侠真是高人！
看来是那个双引号的问题结贴致谢！