|
发表于 2011-3-28 11:52:19
|
显示全部楼层
本帖最后由 xz00311 于 2011-3-28 12:23 编辑
- #include <ButtonConstants.au3>
- #include <EditConstants.au3>
- #include <GUIConstantsEx.au3>
- #include <StaticConstants.au3>
- #include <WindowsConstants.au3>
- #Region ### START Koda GUI section ### Form=
- $Form1 = GUICreate("配置文件路径", 477, 280, 192, 124)
- $Label1 = GUICtrlCreateLabel("AutoIt3.exe路径", 32, 28, 98, 17)
- $Label2 = GUICtrlCreateLabel("beta\AutoIt3.exe路径", 32, 68, 124, 17)
- $Label3 = GUICtrlCreateLabel("Include路径", 32, 108, 79, 17)
- $Label4 = GUICtrlCreateLabel("beta\include路径", 32, 148, 104, 17)
- $Label5 = GUICtrlCreateLabel("SciTE路径", 32, 188, 57, 17)
- $Input1 = GUICtrlCreateInput("", 160, 24, 249, 21)
- $Input2 = GUICtrlCreateInput("", 160, 64, 249, 21)
- $Input3 = GUICtrlCreateInput("", 160, 104, 249, 21)
- $Input4 = GUICtrlCreateInput("", 160, 144, 249, 21)
- $Input5 = GUICtrlCreateInput("", 160, 184, 249, 21)
- $Button1 = GUICtrlCreateButton("确定", 56, 232, 89, 25)
- $Button2 = GUICtrlCreateButton("取消", 272, 232, 89, 25)
- GUISetState(@SW_SHOW)
- #EndRegion ### END Koda GUI section ###
- While 1
- $nMsg = GUIGetMsg()
- Select
- Case $nMsg = $GUI_EVENT_CLOSE
- Exit
- Case $nMsg = $Button2
- Exit
- Case $nMsg = $Button1
- pe()
- Exit
- EndSelect
- WEnd
- Func pe()
- IniWrite(@ScriptDir & "\Create Debug Script.ini", "Settings", "AutoItReleaseExecutable", GUICtrlRead ($Input1) & "\AutoIt3.exe")
- IniWrite(@ScriptDir & "\Create Debug Script.ini", "Settings", "AutoItBetaExecutable", GUICtrlRead ($Input2) & "\beta\AutoIt3.exe")
- IniWrite(@ScriptDir & "\Create Debug Script.ini", "Settings", "ReleaseIncludeFolder", GUICtrlRead ($Input3)& "\Include")
- IniWrite(@ScriptDir & "\Create Debug Script.ini", "Settings", "BetaIncludeFolder", GUICtrlRead ($Input4) & "\beta\include")
- IniWrite(@ScriptDir & "\Create Debug Script.ini", "Settings", "SciTEInstallFolder", GUICtrlRead ($Input5) & "\SciTE")
- EndFunc
复制代码 看看大家要不要,只是方便一点知道大路径就好 |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?加入
x
|