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

872777825 发表于 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

872777825 发表于 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写到这 就不会了

yhxhappy 发表于 2010-12-10 20:15:55

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

mo_shaojie 发表于 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楼主可以参考下.

872777825 发表于 2010-12-10 21:14:45

解决了   谢谢3mile

872777825 发表于 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

解决

查看完整版本: 关于系统个人资料路径设置工具问题----已解决