Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Новый участник


Сообщения: 38
Благодарности: 2

Профиль | Отправить PM | Цитировать


Creat0R
Код: Выделить весь код
Func UpdateExplorer()
	Local $WinExpListArr = _ExplWinGetList()
	Local $OldOpt = Opt("WinTitleMatchMode", 4)
	Local $GetWinState, $Hwnd
	If IsArray($WinExpListArr) Then
		For $iWin = 1 To $WinExpListArr[0]
			$GetWinState = WinGetState($WinExpListArr[$iWin])
			$Hwnd = WinGetHandle($WinExpListArr[$iWin])
			DllCall("user32.dll", "long", "SendMessage", "hwnd", $hWnd, "int", 0x111, "int", 28931, "int", 0)
		Next
	EndIf
	
	$Hwnd = WinGetHandle("classname=Progman")
	DllCall("user32.dll", "long", "SendMessage", "hwnd", $hWnd, "int", 0x111, "int", 28931, "int", 0)
	Opt("WinTitleMatchMode", $OldOpt)
EndFunc

Func _ExplWinGetList()
	Local $OldOpt = Opt("WinTitleMatchMode", 4)
	Local $WinList = WinList("classname=CabinetWClass")
	Opt("WinTitleMatchMode", $OldOpt)
	If IsArray($WinList) Then
		Local $WinListArr[$WinList[0][0]+1]
		For $iW = 1 To $WinList[0][0]
			$WinListArr[$iW] = $WinList[$iW][0]
		Next
		$WinListArr[0] = $WinList[0][0]
		Return $WinListArr
	Else
		Return ""
	EndIf
EndFunc
У меня вопрос вот по этому коду. Можешь просто описать в общих чертах, как он работает?

Отправлено: 15:49, 27-04-2007 | #337