|
;代码如下
#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 |
|