chenxianpeng 发表于 2009-11-16 14:41:24

检测驱动器

本帖最后由 chenxianpeng 于 2009-11-16 15:10 编辑

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

    For $i = 1 to $var
      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 发表于 2009-11-16 14:45:22

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

chenxianpeng 发表于 2009-11-16 14:48:17

能否给个例子

chenxianpeng 发表于 2009-11-16 14:53:01

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

netegg 发表于 2009-11-16 14:57:53

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

chenxianpeng 发表于 2009-11-16 15:00:45

本帖最后由 chenxianpeng 于 2009-11-16 15:03 编辑

不起任何作用啊！

chenxianpeng 发表于 2009-11-16 15:05:38

知道原因了

netegg 发表于 2009-11-16 15:07:23

回复 7# chenxianpeng

忘了加默认值了

chenxianpeng 发表于 2009-11-16 15:12:40

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

netegg 发表于 2009-11-16 15:17:22

本帖最后由 netegg 于 2009-11-16 15:18 编辑

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

kodin 发表于 2009-11-17 02:32:00

#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
                GUICtrlSetData(-1, $var[$i],$var)
        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 发表于 2010-6-1 14:45:12

好顶一下，呵呵

vsop1900 发表于 2010-6-4 15:03:52

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

pingfan5888 发表于 2011-1-8 20:25:08

学习了。刚好看到这个。
页: [1]
查看完整版本: 检测驱动器