Главное меню

[Twister]

Доброго всем времени суток!

Возник один вопрос по работе, но, честно говоря, ответ получить я и не надеюсь...

Суть вот в чем: если сделать двойной клик по папке в главном меню, то откроется проводник в этой папке. Как это заблокировать?

Рыл в доках по реестру, но ближайшее что нашел - запрещение перетаскивания элементов главного меню.

Может кто сталкивался?

[Antonariy]

Ну, я просто закрывал окно эксплорера, которое открывало папку, которую открывать нельзя.

[Twister]

Я уже думал об этом. Но способ мне не нравится. И не только из эстетических соображений.

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

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

[Antonariy]

Это делается через ShellWindows.

[Twister]

Это делается через ShellWindows.

Немного не вкурил о чем ты. Можно по-подробнее?

[Antonariy]

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

Dim WithEvents sw As ShellWindows

Private Sub Form_Load()
    Set sw = New ShellWindows
End Sub

Private Sub sw_WindowRegistered(ByVal lCookie As Long)
Dim x As Integer
    For x = sw.Count - 1 To 0 Step -1
        If sw(x).LocationURL = "file:///C:/Documents%20and%20Settings/Computer/Главное%20меню/Программы" Then
            sw(x).Quit
            Exit For
        End If
    Next
End Sub

[Twister]

1. Попытался методом научного тыка определить, какую библиотеку подключить к проекту - не нашел.
Смотрел в Microsoft Browser Helpers и в Microsoft Shell Controls and Automation, но это все не то. Подскажи, что подключать-то?
2. Что бы там не подключалось, работает оно, скорее всего, через COM-объекты. Проект, для которого мне это нужно, пишется на Делфях, поэтому юзать я буду CreateOleObject со всеми вытекающими. Подскажи, какое имя класса передавать этой функции и где можно нарыть инфу по его (класса) членам?

[keks-n]

Microsoft Internet Controls, как ни странно.

[Twister]

Итак, с интерфейсами IWebBrowser2 и IShellWindows я разобрался (Antonariy и keks-n вам спасибо за то, что наставили на путь истинный ). Накидал в Делфях код, перечисляющий текущие пути в запущенных проводниках. Так что вопрос отчасти можно считать закрытым.

Остается открытой лишь тема блокировки двойного щелчка в главном меню...

[Twister]

Кстати, Antonariy, есть одна фишка.

Если после создания класса (читать: после установки связи с OLE-сервером) проводник перезапустить, то связь с OLE-сервером теряется. Приходиться "переконнекчиваться". Но работает это как-то через раз. Как ты решал эту проблему?