Что нового

[Окна, Диалоги] Как при использовании Shell.Explorer.2 запретить закрытие окна по .GoBack()

reset86

Новичок
Сообщения
47
Репутация
0
Как при использовании ObjCreate("Shell.Explorer.2") запретить закрытие окна по .GoBack(), т.е. при возвращение к первичной папке, .GoBack() закрывает окно, как это устранить?


Код:
$iIE = ObjCreate("Shell.Explorer.2")
$GUI = GUICreate("Explorer Test", 1000, 700)

$GUIActiveX = GUICtrlCreateObj($iIE, 0, 50 , 1000, 700)

$Input1 = GUICtrlCreateInput("", 150, 8, 489, 21)
$Button1 = GUICtrlCreateButton('Перейти', 660, 8, 80, 22)
$Button2 = GUICtrlCreateButton('Назад', 10, 8, 50, 22)

$iActiveX = GUICtrlCreateObj($iIE, -240, 40, 990, 500)
$iIE.Navigate(@DesktopDir)
GUISetState ()

While 1
Switch GUIGetMsg()
Case -3
Exit

Case $Button1
$iIE.Navigate(GUICtrlRead($Input1))
If @error Then ContinueLoop
Case $Button2
$iIE.GoBack()

EndSwitch
WEnd
 
Верх