用VB开发的软件怎样关联文件呢?
答案:2 悬赏:60 手机版
解决时间 2021-03-15 05:52
- 提问者网友:送舟行
- 2021-03-14 06:33
用VB开发的软件怎样关联文件呢?
最佳答案
- 五星知识达人网友:神的生死簿
- 2021-03-14 07:44
通过注册表实现,以swf文件为例
Dim Ws
Set Ws = CreateObject("wscript.shell")
Ws.Regwrite "HKEY_CLASSES_ROOT\.swf\", "swffile", "REG_SZ" '定义文件类型
Ws.Regwrite "HKEY_CLASSES_ROOT\ShockwaveFlash.FilesList\Shell\Open\Command\", App.Path & "\" & App.EXEName & ".exe %1", "REG_SZ" '打开方式列表
Ws.Regwrite "HKEY_CLASSES_ROOT\ShockwaveFlash.ShockwaveFlash\", "clksir swf files", "REG_SZ" '显示文件类型
Ws.Regwrite "HKEY_CLASSES_ROOT\ShockwaveFlash.ShockwaveFlash\Shell\Open\Command\", App.Path & "\" & App.EXEName & ".exe %1", "REG_SZ" '关联全局类型
Ws.Regwrite "HKEY_CLASSES_ROOT\swffile\DefaultIcon\", App.Path & "\" & App.EXEName & ".exe,1", "REG_SZ" '关联自身的图标资源号
Ws.Regwrite "HKEY_CLASSES_ROOT\swffile\shell\open\command\", App.Path & "\" & App.EXEName & ".exe %1", "REG_SZ" '关联启动
Dim Ws
Set Ws = CreateObject("wscript.shell")
Ws.Regwrite "HKEY_CLASSES_ROOT\.swf\", "swffile", "REG_SZ" '定义文件类型
Ws.Regwrite "HKEY_CLASSES_ROOT\ShockwaveFlash.FilesList\Shell\Open\Command\", App.Path & "\" & App.EXEName & ".exe %1", "REG_SZ" '打开方式列表
Ws.Regwrite "HKEY_CLASSES_ROOT\ShockwaveFlash.ShockwaveFlash\", "clksir swf files", "REG_SZ" '显示文件类型
Ws.Regwrite "HKEY_CLASSES_ROOT\ShockwaveFlash.ShockwaveFlash\Shell\Open\Command\", App.Path & "\" & App.EXEName & ".exe %1", "REG_SZ" '关联全局类型
Ws.Regwrite "HKEY_CLASSES_ROOT\swffile\DefaultIcon\", App.Path & "\" & App.EXEName & ".exe,1", "REG_SZ" '关联自身的图标资源号
Ws.Regwrite "HKEY_CLASSES_ROOT\swffile\shell\open\command\", App.Path & "\" & App.EXEName & ".exe %1", "REG_SZ" '关联启动
全部回答
- 1楼网友:封刀令
- 2021-03-14 09:15
你选择一个文件更改它的打开方式的属性就可以
右键点击你要关联的文件 ---属性----打开方式 更改
然后选择你的vb程序
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯