q419062591 发表于 2009-4-20 13:00:42

做一个像"7-zip 自解压"窗口的选择路径里出了问题

;代码如下

#include <GUIConstants.au3>
global $bxwl
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("拨号精灵 安装", 342, 118, -1, -1)
$Label1 = GUICtrlCreateLabel("安装路径:", 10, 12, 126, 18)
$Input2 = GUICtrlCreateInput("", 10, 33, 260, 20)
$Button1 = GUICtrlCreateButton("...", 300, 31, 32, 25, 0)
$Button2 = GUICtrlCreateButton("安装", 123, 83, 98, 25, 0)
$Button3 = GUICtrlCreateButton("退出", 234, 83, 98, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Select
Case $nMsg = $GUI_EVENT_CLOSE
Exit



Case $nmsg = $Button1
$1=FileSelectFolder("为安装“拨号精灵”请指定安装路径","",1,"C:\")
$Input2 = GUICtrlCreateInput("" & $1 &"", 10, 33, 260, 20)


Case $nmsg = $Button2
$rul= GUICtrlRead($Input2)
MsgBox ( "0","","" & $rul &"")



Case $nmsg = $Button3
Exit
EndSelect
WEnd
页: [1]
查看完整版本: 做一个像"7-zip 自解压"窗口的选择路径里出了问题