本帖最后由 boyhong 于 2011-2-15 11:04 编辑
请教一个GUI里打开文件夹的问题,我现在用如下方法操作:但有一个缺点是:不能干干净净一个文件夹里的东西效果,还带有XP的样式什么的。能否做到ShellExecute打开的效果:感谢~~~#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
Example1()
Func Example1()
Local $msg,$Button1
GUICreate("My GUI",800,600)
$Button1 = GUICtrlCreateButton("GUI里打开C盘", 5, 5, 200)
GUISetState(@SW_SHOW)
While 1
$msg = GUIGetMsg()
If $msg = $GUI_EVENT_CLOSE Then ExitLoop
If $msg = $Button1 Then _openc()
WEnd
GUIDelete()
EndFunc
Func _openc() ;
_IEErrorHandlerRegister ()
$oIE = _IECreateEmbedded ()
$Obj = GUICtrlCreateObj($oIE, 5, 35,700,500)
_IENavigate($oIE, "file:///C:",0)
EndFunc
|