找回密码
 加入
搜索
查看: 1168|回复: 0

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

[复制链接]
发表于 2009-4-20 13:00:42 | 显示全部楼层 |阅读模式
;代码如下

#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
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-12-25 01:07 , Processed in 0.138400 second(s), 24 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表