Как узнать пути всех открытых окон эксплорера

[Tin]

САБЖ

[Twister]

EnumWindows, потом выбираешь только окна проводника (GetWindowModuleFileName)...

[Tin]

а подробнее ни у кого инфы нету - я уже погряз в этих Enum

[Twister]

Тебе просто заголовки?

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

Public Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Public Declare Function EnumWindows Lib "user32" (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Const WM_CLOSE = &H10
Dim strCaptions() As String
Dim lngHandle() As Long
Public Function CloseProg(strCaption As String) As Boolean
   Dim iCount As Integer
   Dim i As Integer
   Dim Pos As Integer
   Dim lngEnum As Long

   ReDim strCaptions(0)
   ReDim lngHandle(0)
   lngEnum = EnumWindows(AddressOf Callback1_EnumWindows, 0)
   For i = 0 To UBound(strCaptions)
    Pos = InStr(1, strCaptions(i), strCaption, vbTextCompare)
    If Pos > 0 Then
        SendMessage lngHandle(i), WM_CLOSE, 0, 0
        iCount = iCount + 1
    End If
   Next
   If iCount >= 1 Then
      CloseProg = True '
   Else
      CloseProg = False
   End If
End Function
Public Function Callback1_EnumWindows(ByVal hwnd As Long, _
     ByVal lpData As Long) As Long
   Dim cnt As Long
   Dim rttitle As String * 256
   cnt = GetWindowText(hwnd, rttitle, 255)
   If cnt > 0 Then
    ReDim Preserve lngHandle(UBound(strCaptions) + 1)
    ReDim Preserve strCaptions(UBound(strCaptions) + 1)
    strCaptions(UBound(strCaptions)) = Left$(rttitle, cnt)
    lngHandle(UBound(lngHandle)) = hwnd
   End If
   Callback1_EnumWindows = 1
End Function

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

[Tin]

Мне не нужны заголовки - мне нужны пути

[Twister]

Какие пути? Всмысле путь к папке, которая открыта в проводнике?
Если у тя стоит "отображать полный путь в заголовке", то с этим все просто. А если нет, то я не знаю...

[Tin]

Пути у эксплорера стоят у кого как, поэтому надо искать другой путь решения

[alibek]

Правильный рецепт я уже не помню, хотя помню, что встречал в инете.
Можно поискать в найденном окне комбобокс и взять текст с него. Он там есть всегда, даже если и скрытый (невидимый).

[Twister]

Пути у эксплорера стоят у кого как

GetSystemDirectory

[Tin]

Слух Макс, ты С Алматы чтоли? Земляк

[Twister]

Ты токо заметил? Да, мы земляки...
У тя Mail.ru агент установлен?

[Tin]

не... у меня свой эджент... пиши сюда ТИНсобачкаKorgauточкаkz

[Sebas]

ShellWindows - получаем список окон проводника и потом вытаскиваем урлу, есть тонкости....

[Twister]

ShellWindows

Шо це тэке?

[Sebas]

класс в shdocvw.dll (Microsoft Internet Controls)

[Tin]

а подробнее

[Sebas]

VB6-MainMenu-Project-References

[Tin]

Всё! Разобрался... Улькен рахмет... ТОка ещё shell32 конектить надо