узнать путь к открытым папкам

[salieri]

Доброго времени суток! Допустим, у меня открыто сразу 3 папки. Каким образом я могу узнать пути, которые в них открыты, чтобы потом их открыть заново. Задача такая, запомнить все открытые директории, а после перезагрузки компьютера восстановить их. Помогите, пожалуйста, как это можно осуществить!

[DIS]

http://scorpionfin.com/index.php?option=co...ndows&Itemid=41

[salieri]

DIS, спасибо конечно, но мне нужно это программно на vb6 осуществить

[salieri]

Какие API-функции нужно использовать?

[B.V.]

EnumWindows/GetWindowText/ShellExecute, видимо

[salieri]

B.V., спасибо, попробую

[salieri]

Подскажите, пожалуйста, в чём ошибка? В переменной hndExpl - нуль. Установен Windows7

'Функция для поиска окна первого уровня
 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 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
 
 Sub МакросПроба()
     Dim hndExpl As Long, hndComb As Long, hndComb2 As Long, hndComb3 As Long, hndComb4 As Long, hndComb5 As Long
     Dim s As String, iTxtLen As Long, a As Long
    
     'Ищем hWnd Проводника по его классу
     hndExpl = FindWindow("ExploreWClass", vbNullString)
     'Ищем hWnd ComboBox, который содержит адрес, продираясь через его родителей
     hndComb = FindWindowEx(hndExpl, 0, "WorkerA", vbNullString)
     hndComb2 = FindWindowEx(hndComb, 0, "ReBarWindow32", vbNullString)
     hndComb3 = FindWindowEx(hndComb2, 0, "ComboBoxEx32", vbNullString)
    
     ' получаем длину текста
     iTxtLen = SendMessage(hndComb3, WM_GETTEXTLENGTH, 0, 0)
     ' добавляем 1 для нулевого символа
     iTxtLen = iTxtLen + 1
     s = Space$(iTxtLen)
     ' получаем текст в переменной s
     iTxtLen = SendMessage(hndComb3, WM_GETTEXT, iTxtLen, ByVal s)
     MsgBox s
 End Sub

[B.V.]

Вместе с Explore ищи CabinetWClass

[salieri]

B.V., не понял, как именно?

 hndExpl = FindWindow("ExploreCabinetWClass", vbNullString)

Добавлено 24.04.12, 12:57
так не работает

[Filka]

hndExpl = FindWindow("CabinetWClass", vbNullString)

[salieri]

Filka, написал, теперь hndComb равно нулю! Каков принцип, вообще?

     Dim hndExpl As Long, hndComb As Long, hndComb2 As Long, hndComb3 As Long, hndComb4 As Long, hndComb5 As Long
     Dim s As String, iTxtLen As Long, a As Long
    
     'Ищем hWnd Проводника по его классу
     hndExpl = FindWindow("CabinetWClass", vbNullString)
     'Ищем hWnd ComboBox, который содержит адрес, продираясь через его родителей
     hndComb = FindWindowEx(hndExpl, 0, "WorkerA", vbNullString)
     hndComb2 = FindWindowEx(hndComb, 0, "ReBarWindow32", vbNullString)
     hndComb3 = FindWindowEx(hndComb2, 0, "ComboBoxEx32", vbNullString)
    
     ' получаем длину текста
     iTxtLen = SendMessage(hndComb3, WM_GETTEXTLENGTH, 0, 0)
     ' добавляем 1 для нулевого символа
     iTxtLen = iTxtLen + 1
     s = Space$(iTxtLen)
     ' получаем текст в переменной s
     iTxtLen = SendMessage(hndComb3, WM_GETTEXT, iTxtLen, ByVal s)
     MsgBox s

[Filka]

hndExpl = FindWindow("CabinetWClass", vbNullString)
hndExpl = FindWindowEx(hndExpl, 0, "WorkerW", vbNullString)
hndExpl = FindWindowEx(hndExpl, 0, "ReBarWindow32", vbNullString)
hndExpl = FindWindowEx(hndExpl, 0, "ComboBoxEx32", vbNullString)
hndExpl = FindWindowEx(hndExpl, 0, "ComboBox", vbNullString)
hndExpl = FindWindowEx(hndExpl, 0, "Edit", vbNullString)

Прикреплённая картинка

Сообщение отредактировано: Filka - 24.04.12, 13:32

[salieri]

Filka, данная строка не выполняется

hndExpl = FindWindowEx(hndExpl, 0, "ComboBoxEx32", vbNullString)

Добавлено 24.04.12, 13:33
hndExpl равно нулю

[Filka]

salieri, а оконным шпионом посмотреть имена классов?

[salieri]

Цитата Filka @ 24.04.12, 14:23

оконным шпионом

а где его скачать?

Сообщение отредактировано: salieri - 24.04.12, 14:26