|
中英文系统通吃,XP、Windows7通吃,第一次运行会自动创建配置文件,配置文件如下:
[程序设置]
;程序运行设置,所有路径均不需要引号,下同
创建位置=开始菜单
;可填“桌面”、“开始菜单”,默认为“桌面”,填其他的没用哦!
[快捷方式]
;如果不够用,自己再编辑,格式如下
;程序n=路径
;名称n=自定义名称
;总数大些没啥,少了快捷方式会缺下!
;这是个例子
;程序1=TOOLS\QQ\QQ.exe
;名称1=腾讯QQ
;其中,“TOOLS\QQ\QQ.exe”代表 “<程序所在盘符>:\TOOLS\QQ\QQ.exe” ,无需填入盘符号的!
;所以说,程序可以放置在任意目录,不一定要在根目录下!
总数=100
程序1=
名称1=
程序2=
名称2=
程序3=
名称3=
可能会被360卡住,纯属误报,放心使用!
AutoIt3源码如下(没什么高明之处,放出来吧):
TraySetClick(0)
If FileExists(@ScriptDir & "\设置.INI") = 0 Then
FileInstall(".\设置.INI", @ScriptDir & "\设置.INI")
MsgBox(0, "程序初始化", "配置文件创建完毕,请设置好后运行程序 !", 5)
Exit
Else
$LinkDir = IniRead(@ScriptDir & "\设置.INI", "程序设置", "创建位置", "桌面")
$LinkNumber = IniRead(@ScriptDir & "\设置.INI", "快捷方式", "总数", "0")
If $LinkNumber = 0 Then
MsgBox(0, "出现小错误", "快捷方式总数为0,程序操作结束 !", 5)
Exit
Else
If $LinkDir = "开始菜单" Then
DirCreate(@ProgramsCommonDir & "\快捷方式")
$LinkDir = @ProgramsCommonDir & "\快捷方式"
Else
$LinkDir = @DesktopCommonDir
EndIf
$CurDrive = StringLeft(@ScriptDir, 2)
For $i = 1 To $LinkNumber
$Exec = $CurDrive & "\" & IniRead(@ScriptDir & "\设置.INI", "快捷方式", "程序" & $i, "")
$Link = $LinkDir & "\" & IniRead(@ScriptDir & "\设置.INI", "快捷方式", "名称" & $i, "") & ".lnk"
$j = StringInStr($Exec, "\", 0, -1)
$Exec_Dir = StringLeft($Exec, $j - 1)
FileCreateShortcut($Exec, $Link, $Exec_Dir)
Next
MsgBox(0, "执行完毕", "快捷方式创建完毕,程序操作结束 !", 3)
Exit
EndIf
EndIf
本来还想加入快捷方式卸载功能,时间紧张,然后弄吧!
AutoIt3最新中文版下载地址:
http://www.autoitx.com/thread-12964-1-1.html?sid=glvQ22
自己下载研究吧,帮助文件超详细,比批处理、VBS功能都强!
[ 本帖最后由 monitor20 于 2012-4-10 19:23 编辑 ] |
|