你的AUTOIT右键菜单自己做主
如果想更好的,请下载大神的AU3版本切换工具,里面也有修改菜单的功能。请不要直接运行代码,请根据自己电脑的实际情况修改,本代码仅供参考。ACN版的右键菜单请大家自行查找注册表文件就可以了。;仅供参考,如有不对请纠正;以下是旧版的右键菜单代码
Global Const $hklm_autoit = "HKLM\SOFTWARE\AutoIt v3"
Global Const $hklm64_autoit = "HKLM64\SOFTWARE\AutoIt v3"
Global Const $hkcu_autoit = "HKCU\SOFTWARE\AutoIt v3\AutoIt"
Global Const $hklmcv = "HKLM\Software\Microsoft\Windows\CurrentVersion"
Global Const $hkcr_au3shell = "HKCR\AutoIt3Script\Shell"
Global Const $hkcr_a3xshell = "HKCR\AutoIt3XScript\Shell"
Global Const $hkcr_au3shellex = "HKCR\AutoIt3Script\ShellEx"
Global Const $hkcr_a3xshellex = "HKCR\AutoIt3XScript\ShellEx"
Global Const $templatea = @ScriptDir & "\SciTE\默认模板.au3"
Func deloldreg()
RegDelete("HKCU\SOFTWARE\AutoIt v3\AutoIt")
RegDelete($hklm_autoit)
RegDelete($hklm64_autoit)
RegDelete("HKCR\.au3")
RegDelete("HKCR\.a3x")
RegDelete("HKCR\AutoIt3Script")
EndFunc ;==>删除之前的右键菜单和安装目录路径
Func addau3reg()
RegWrite("HKCR\AutoIt3Script", "", "REG_SZ", "AutoIt v3 脚本")
RegWrite("HKCR\AutoIt3Script\DefaultIcon", "", "REG_SZ", @ScriptDir & "\Aut2Exe\Icons\filetype1.ico")
RegWrite("HKCU\SOFTWARE\AutoIt v3\AutoIt", "Include", "REG_SZ", @ScriptDir & "\UserInclude")
RegWrite($hkcr_au3shell, "", "REG_SZ", "0penX86")
RegWrite($hkcr_au3shell & "\Compile", "", "REG_SZ", "编译脚本(带进度)")
RegWrite($hkcr_au3shell & "\Compile\Command", "", "REG_SZ", '"' & @ScriptDir & '\SciTE\ACNWrapper\ACNWrapper.exe" /in "%l"')
RegWrite($hkcr_au3shell & "\CGUICompile", "", "REG_SZ", "编译脚本(带选项)")
RegWrite($hkcr_au3shell & "\CGUICompile\Command", "", "REG_SZ", '"' & @ScriptDir & '\SciTE\ACNWrapper\ACNWrapper.exe" /showgui /in "%l"')
RegWrite($hkcr_au3shell & "\open", "", "REG_SZ", "编辑脚本(SCITE)")
Local $scite = @ScriptDir & "\Aut2Exe\Icons\scite.ico"
RegWrite($hkcr_au3shell & "\0penX86", "Icon", "REG_SZ", $scite);给右键选项加上自己喜欢的图标,么么哒。如果不需要请自行注释
RegWrite($hkcr_au3shell & "\open\Command", "", "REG_SZ", '"' & @ScriptDir & '\SciTE\SciTE.exe" "%1"')
RegWrite("HKCR\.au3\ShellNew", "FileName", "REG_SZ", $templatea)
If @OSArch <> "X86" Then
RegWrite($hkcr_au3shell & "\0penX64", "", "REG_SZ", "运行脚本(X64)")
RegWrite($hkcr_au3shell & "\0penX64\Command", "", "REG_SZ", @ScriptDir & '\AutoIt3_x64.exe "%1" %*')
RegWrite($hkcr_au3shell & "\0penX86", "", "REG_SZ", "运行脚本(X86)")
RegWrite($hkcr_au3shell & "\0penX86\Command", "", "REG_SZ", @ScriptDir & '\AutoIt3.exe "%1" %*')
RegWrite($hkcr_au3shell, "", "REG_SZ", "0penX64")
Else
RegWrite($hkcr_au3shell & "\0penX86", "", "REG_SZ", "运行脚本")
RegWrite($hkcr_au3shell & "\0penX86\Command", "", "REG_SZ", @ScriptDir & '\AutoIt3.exe "%1" %*')
EndIf
RegWrite($hkcr_au3shellex & "\DropHandler", "", "REG_SZ", "{86C86720-42A0-1069-A2E8-08002B30309D}")
EndFunc
Func adda3xreg()
RegWrite($hkcr_a3xshell & "\Run", "", "REG_SZ", "运行脚本")
RegWrite($hkcr_a3xshell & "\Run\Command", "", "REG_SZ", @ScriptDir & '\AutoIt3.exe "%1" %*')
RegWrite("HKCR\AutoIt3XScript\DefaultIcon", "", "REG_SZ", @ScriptDir & "\Aut2Exe\Icons\TLB.ico")
RegWrite($hkcr_a3xshellex & "\DropHandler", "", "REG_SZ", "{86C86720-42A0-1069-A2E8-08002B30309D}")
EndFunc
Func addscitereg()
RegWrite($hklmcv & "\App Paths\SciTE.exe", "", "REG_SZ", @ScriptDir & "\SciTE\SciTE.exe")
RegWrite($hklmcv & "\App Paths\SciTE.exe", "PATH", "REG_SZ", @ScriptDir & "\SciTE\")
EndFunc
Func refreshicon()
DllCall("shell32.dll", "none", "SHChangeNotify", "long", 134217728, "uint", BitOR(0, 4096), "ptr", 0, "ptr", 0)
Return 1
EndFunc;==>刷新桌面
这个阔以有,谢谢分享。
页:
[1]