找回密码
 加入
搜索
查看: 2758|回复: 5

[AU3基础] 关于系统个人资料路径设置工具问题----已解决

[复制链接]
发表于 2010-12-10 18:34:46 | 显示全部楼层 |阅读模式
本帖最后由 872777825 于 2010-12-10 21:15 编辑

如图




小弟想通过组合列表方式做个“我的文档”以及桌面等路径的修改

通过图1的列表选择一个  然后再跳出图二窗口后 指定路径  点确定后即可完成修改

但小弟不知如何实现  只会选择后运行其他东西

望各位大哥抽点时间帮忙写个样例出来  谢谢

帮助文件看过了   不过有些东西实在一时难以吸收得了  只好上来向各位大哥求助!
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=D:\backup\Form1.kxf
$Form1 = GUICreate("Form1", 623, 442, 192, 124)
$Combo1 = GUICtrlCreateCombo("", 184, 80, 129, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData($Combo1, "我的文档|收藏夹|桌面|IE 临时文件夹|Cookies|软件安装位置", "")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit
        Case $Combo1
        _startlink()
        EndSwitch
WEnd

Func _startlink()
        If GUICtrlRead($Combo1) = "我的文档" Then
        ShellExecute("cmd.exe", "", "", "open")
EndIf
EndFunc

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?加入

×

评分

参与人数 1金钱 +10 收起 理由
afan + 10 感谢主动将修改帖子分类为[已解决],请继续 ...

查看全部评分

 楼主| 发表于 2010-12-10 18:44:14 | 显示全部楼层
While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit
        Case $Combo1
        dir()
        EndSwitch
WEnd
        

Func dir()
        $vardir = FileSelectFolder ("请选择一个文件夹","",1,"d:")
        $a = FileGetLongName($vardir)
EndIf
EndFunc
写到这 就不会了
发表于 2010-12-10 20:15:55 | 显示全部楼层
http://www.autoitx.com/thread-20331-1-1.html
这好像跟你的有点关系哦
发表于 2010-12-10 20:40:09 | 显示全部楼层
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=D:\backup\Form1.kxf
$Form1 = GUICreate("Form1", 623, 442, 192, 124)
$Combo1 = GUICtrlCreateCombo("", 184, 80, 129, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
$input = GUICtrlCreateInput("",184,150,129,25)
GUICtrlSetData($Combo1, "我的文档|收藏夹|桌面|IE 临时文件夹|Cookies|软件安装位置", "")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit
        Case $Combo1
        dir()
        EndSwitch
WEnd
        

Func dir()
        $vardir = FileSelectFolder ("请选择一个文件夹","",1,"d:")
        GUICtrlSetData($input,$vardir)
EndFunc
楼主可以参考下.
 楼主| 发表于 2010-12-10 21:14:45 | 显示全部楼层
解决了     谢谢3mile
 楼主| 发表于 2010-12-14 15:18:00 | 显示全部楼层
最终以
        If GUICtrlRead($Combo1) = "收藏夹" Then
                $vardir = FileSelectFolder("请选择一个文件夹", "", 1, "d:\")
                If $vardir <> "" Then
                        RegWrite($reg1, "Favorites", "REG_SZ", $vardir)
                        RegWrite($reg2, "Favorites", "REG_EXPAND_SZ", $vardir)
                        MsgBox(064, "温馨提示", "收藏夹 路径修改成功,注销或重启电脑后生效")
                EndIf
        EndIf

解决
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-11-1 07:18 , Processed in 0.145826 second(s), 28 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表