Получить hWnd Проводника.

[SergeySV]

Вставал как-то вопрос получение hWnd Проводника. Обычно все предлагают искать через FindWindow по заголовку, но вот один чел тогда на одном из форумов привел описание неопубликованной (в ст. справке по API) API функции, которая сразу возращает hWnd Проводника без всяких мучений. Я тогда записал куда-то и потерял.
Может кто-нибудь знает или слышал про эту функцию (или вообще достаточно просто и без нее обойтись)???

[SergeySV]

Искал, искал и откапал на MSDN вот такую функцию: HWND GetShellWindow(VOID); (User32), тока написана что она включена начиная с Win2000, а мне надо под Win98
Никто больше ничего не знает???

[Sebas]

Какая конечная цель?

[SergeySV]

Какая конечная цель?

Так вот значит как бы дело. Один чел в другом форуме очень хотел узнать из своей проги на VBA с какой папкой щас там копается пользователь в Проводнике. Ну ему там всякой пурги замутили, а мне вот стало интересно решить эту проблему. Только для себя я ее сформулировал так: Обратиться и считать текущ. путь из Combox Проводника (Combox - имеется ввиду строка с адресом).

Насколько я понимаю это делать надо так:

Код: Выделить всё

'Функция для поиска окна первого уровня
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
'Функция для поиска дочернего окна (коим являются такие контролы: Edit, Button и т.д.)
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long


'Ищем hWnd Проводника по его классу
hndExpl = FindWindow("ExploreWClass", vbNullString)
'Ищем hWnd ComboBox, который содержит адрес
hndComb = FindWindowEx(hndExpl, 0, "ComboBoxEx32", vbNullString)
' hndComb - в этом контроле в поле .Text содержится адрес, осталось его только получить... :)


Никогда просто этим не занимался, не знаю как получить значение поля .Text этого hndComb, зная его hWnd. Ведь Spy++ это как то делает, для любого контрола свойства выдает, значит можно, но как ?!?
Использовать DlgDirSelectComboBoxEx или GetComboBoxInfo что-ли?

[goro]

....л так: Обратиться и считать текущ. путь из Combox Проводника (Combox - имеется ввиду строка с адресом)......

Может быть что отключена функция показа всей строки в панели адреса и тогда твоя прога не покажет весь путь

[Sebas]

Надо перебирать классы

ExplorerWClass
IFrame
CabinetWClass

на наличие класса Internet Explorer_Server

Посылать сообщение WM_HTML_GETOBJECT и из результата вытаскивать DOM объект и смотреть ссылку HREF

Вообщем геморно это сплошной АПИ

[SergeySV]

....л так: Обратиться и считать текущ. путь из Combox Проводника (Combox - имеется ввиду строка с адресом)......

Может быть что отключена функция показа всей строки в панели адреса и тогда твоя прога не покажет весь путь.

Прикол в том, что когда ты эту строку скрываешь она все равно есть и значение в ней тоже меняется, только не показывается. Т.е. контрол просто скрывается для простоты, но он есть. Так что это не проблема...

[SergeySV]

О я тупой идиот. Только на следующий день понял как я заблуждался.

Раз контрол (типа: Edit, Button, ComboBox и т.д.) тоже являются окнами (тока дочерними), то они должны иметь станд. свойства окон: размер, положение, класс и конечно текст, с этим окном ассоциированный.... блин, целый день понадобился, чтобы это понять.

Для получения текст окна можно использовать конечно a/ GetWindowText и GetWindowTextLength, но они будут работать только для главных окон программ и контролов ВАШЕЙ программы, а вот к чужим контролам надо обращаться через посылку соответствующих сообщений, а именно: SendMessage(hnd_contrl, WM_GETTEXTLENGTH, 0, 0).
Таким образом прога получается следующая:

Код: Выделить всё


'Функция для поиска окна первого уровня
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
'Функция для поиска дочернего окна (коим являются такие контролы: Edit, Button и т.д.)
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hWnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hWnd As Long) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal Msg As Long, wParam As Any, lParam As Any) As Long

Private Const WM_GETTEXTLENGTH = &HE
Private Const WM_GETTEXT = &HD

 
Dim hndExpl As Long, hnd_contr1 As Long, hnd_contr2 As Long, hnd_contr3 As Long
Dim s As String, iTxtLen As Long

'Ищем hWnd Проводника по его классу
hndExpl = FindWindow("ExploreWClass", vbNullString)
'Ищем hWnd ComboBox, который содержит адрес
hnd_contr1 = FindWindowEx(hndExpl, 0, "WorkerA", vbNullString)
hnd_contr2 = FindWindowEx(hnd_contr1 , 0, "ReBarWindow32", vbNullString)
hnd_contr3 = FindWindowEx(hnd_contr2 , 0, "ComboBoxEx32", vbNullString)

iTxtLen = SendMessage(hnd_contr3 , WM_GETTEXTLENGTH, 0, 0)
iTxtLen = iTxtLen + 1
s = Space$(iTxtLen)
iTxtLen = SendMessage(hnd_contr3 , WM_GETTEXT, iTxtLen, ByVal s)
MsgBox s



[GSerg]

А если я 10 эксплореров открою? (а я открою... ) Как сия прога узнает, в котором из них происходит то важное, за чем следует следить?

[SergeySV]

А если я 10 эксплореров открою? (а я открою... ) Как сия прога узнает, в котором из них происходит то важное, за чем следует следить?

Ну ты хитрец ...

Тогда надо немного усложнить код (чуть не написал - усЛАЖнить ), хотя это уже дело техники.

Можно проверить работает ли с этим окном польз. GetForegroundWindow и если нет, продолжить поиск по классу дальше. Хотя тут конечно надо в начале определиться с общей идеологией. Зачем конкретно мы собираемся следить и как.Если нас волнует только то, чтобы пользователь ненароком в любом проводнике не открыл опред. папку, тогда придется все Проводники шерстить...

[goro]

Можно проверить работает ли с этим окном польз. GetForegroundWindow и если нет, продолжить поиск по классу дальше. Хотя тут конечно надо в начале определиться с общей идеологией. Зачем конкретно мы собираемся следить и как.Если нас волнует только то, чтобы пользователь ненароком в любом проводнике не открыл опред. папку, тогда придется все Проводники шерстить...

А если пользователь открыл папку в Windows Commander'е? как это отследить? гы...

[SergeySV]

А если пользователь открыл папку в Windows Commander'е? как это отследить? гы...

Да нет. Вопрос изначально стоял про то, чтобы отследить с какой папкой работают через Проводник.
А чтобы отследить работу с папками через другие неизвестные проги, так это боюсь невозможно. Мало ли как он вообще там окрывает папки...

[Sebas]

Ребята!!!! Через получение текста окна - это кривой путь! Я могу вставить адрес из буфера жмакнуть энтер и тутже нажать,ну, например,"А" вот ваш адрес и будет : "А"

Понятно?

Нужно вытаскивать DOM!