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

872777825

如图




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

通过图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

872777825

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

写到这 就不会了

yhxhappy

http://www.autoitx.com/thread-20331-1-1.html
这好像跟你的有点关系哦

mo_shaojie

#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

楼主可以参考下.

872777825

解决了     谢谢3mile

872777825

最终以
        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

解决