检测驱动器

chenxianpeng

#include <GUIConstants.au3>
$var = DriveGetDrive( "all" )
If NOT @error Then

    For $i = 1 to $var[0]
        RegWrite('HKEY_LOCAL_MACHINE\SOFTWARE\1',$i,'reg_sz',$var[$i])
                $var1 = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\1",$i)
               
    Next
EndIf
#Region ### START Koda GUI section ### Form=


$Form1 = GUICreate("鹏德U盘启动工具", 229, 56, 353, 376)
$Combo1 = GUICtrlCreateCombo('', 8, 24, 100, 25)
GuiCtrlSetData($Combo1,$var1)
$Button1 = GUICtrlCreateButton("安装", 120, 22, 45, 22, 0)
$Button2 = GUICtrlCreateButton("退出", 170, 22, 45, 22, 0)
$Label1 = GUICtrlCreateLabel($var1, 8, 0, 230, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit

        EndSwitch
WEnd



上面的执行 只会显示最后一个驱动器盘符在combo1里面  我想弄下拉菜单 有多少里面就显示多少
不知道怎么下手 哪位大哥帮帮忙

netegg

$aVar = DriveGetDrive( "all" )
$aVar = _arraydelete($aVar, 0)
$sVar=_arraytostring($aVar, "|")

chenxianpeng

能否给个例子

chenxianpeng

小弟新手，不知道2楼的兄弟给我的代码应该加在哪里！

netegg

$Combo1 = GUICtrlCreateCombo('', 8, 24, 100, 25)
guictrlsetdata（-1， $sVar）

chenxianpeng

不起任何作用啊！

chenxianpeng

知道原因了

netegg

回复 7# chenxianpeng

忘了加默认值了

chenxianpeng

出来是出来了！但在驱动器前还多了一个驱动器数！ 这个如何去掉！

netegg

_arraydelete用了吗？参数忘了是用1还是0了，自己试试吧

kodin

#include <GUIConstants.au3>

$Form1 = GUICreate("鹏德U盘启动工具", 229, 56, 353, 376)
$Combo1 = GUICtrlCreateCombo("", 8, 24, 100, 25)
$var = DriveGetDrive("all")
If Not @error Then
        For $i = 1 To $var[0]
                GUICtrlSetData(-1, $var[$i],$var[1])
        Next
EndIf

$Button1 = GUICtrlCreateButton("安装", 120, 22, 45, 22, 0)
$Button2 = GUICtrlCreateButton("退出", 170, 22, 45, 22, 0)
GUISetState(@SW_SHOW)


While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit

        EndSwitch
WEnd

kinghu318

好顶一下，呵呵

vsop1900

受教了.....................

pingfan5888

学习了。刚好看到这个。