回 帖 发 新 帖 刷新版面

主题:如何建立文件关联(关于电学工具箱)

如何建立文件关联(关于电学工具箱)
我想在文件安装时自动将*.elmaker与 [文件安装地址]\elmaker.exe 建立文件关联
该修改哪些注册表值?

回复列表 (共2个回复)

沙发

Dim ws, ZT As String, Lpath As String
ZT = "elmaker文件"
Set ws = CreateObject("wscript.shell")
ws.regwrite "HKCR\.elmaker\", ZT
ZT = "HKCR\" & ZT & "\": Lpath = App.Path & "\elmaker.exe"
ws.regwrite ZT & "DefaultIcon\", Lpath & ",0"
ws.regwrite ZT & "shell\open\command\", Lpath & " " & Chr(34) & "%1" & Chr(34)
Set ws = Nothing

板凳

详细点
看不懂

我来回复

您尚未登录,请登录后再回复。点此登录或注册