Полный путь к папке,открытой юзером

[SergT]

Желаю всем доброго здоровья. У меня вопрос к знающим!
Используя shellhook можно получить handle открытого окна. Можно ли по handle узнать полный путь к открытой папке? Можно взять путь из заголовка окна, но юзер может отключить "Выводить полный путь в заголовке окна"! Долго искал ответ на этот вопрос ( и на форуме) - не нашел ничего. Может быть иным путем решить задачу?
Но, надо любым способом получить полный путь к папке, только что открытой пользователем. Надоумьте, пожалуйста, что делать...

[GM]

Кстати на форуме уже обсуждалась такая же проблема.
Путь еще можна взять из адресной строки, только это тоже не универсальный метод.

[SergT]

Юзер и это может отменить. Однако, следует уточнить, что открывают папки стандартным explorer. т.е. юзер щелкает мышкой по ярлыкам папок и тут... хотелось бы знать. Может быть есть способ установить, что открывшаяся папка находится в локальной сети? Меня бы это уже выручило!

[alibek]

По идее, должны быть всякие ShellNotify, которые можно отслеживать. Но это так, общие рассуждения.

[Sebas]

А что, ShellWindows уже отменили?

поиск по IESPY

[SergT]

IESPY код в С . Может есть ссылки на VB?

что касается ShellWindows
Creates and returns a new ShellWindows object that is a copy of this ShellWindows object.

Private Sub fnShellWindowsNewEnumVB()
Dim objShell As Shell
Dim objShellWindows As ShellWindows

Set objShell = New Shell
Set objShellWindows = objShell.Windows

If (Not objShellWindows Is Nothing) Then
Dim vEnumItem As Variant

For Each vEnumItem In objShellWindows
Debug.Print vEnumItem.Type
Next vEnumItem
End If

Set objShellWindows = Nothing
Set objShell = Nothing
End Sub
Новое окно??

[SergT]

Да , действительно была такая тема в форуме:
Как узнать пути всех открытых окон эксплорера
Нашел ответ от Sebas:
"ShellWindows - получаем список окон проводника и потом вытаскиваем урлу, есть тонкости...."
Можно это разъяснить?

[Sebas]

Подключаем библу
Microsoft Internet Controls

Dim WithEvents c as ShellWindows

новое окно - NewWindows, там их даже 3, помойму...
урлу вытаскиваем из документа, посмотреть в Watch

[SergT]

Спасибо! Пришлось повозиться, но подход был весьма интересным и код занял немного места.(по поиску ShellWindows и ) НО задачка решилась. Однако, осталось несколько вопросов (аппетит приходит во аремя...). Не совсем понял, возможно ли отменить открытие окна ( при определенных условиях)? Если ДА - подскажите как,пожалуйста...

[Sebas]

сделай ему close в NewWindow