Контекстное меню Эксплорера. Как вставить свой пункт?

[xenomorph]

Контекстное меню Эксплорера. Как вставить свой пункт?

1. Поиск VBstreets ничего не дал (или пошлите по ссылке).
2. На www.planetsourcecode.com
Есть сорс библиотеки и рег файла. Чё-то он у меня не пашет 8(((.
3. Меню - необходимо глобального уровня - т.е. во всех приложениях
которые используют контекстное меню системы.
4. В гугле есть. Но может у кого есть готовый код?
!!! Время на поиск> совет дорбых людей !!!
--
Заранее огромное спаибо!

[xenomorph]

Отцы помогите пожалуйста!
Вот сорс с планеты:
(Запустить не могу 8((( )

[iolaus]

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

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

If Right$(App.path, 1) = "\" Then ioAppFile = App.path Else ioAppFile = App.path & "\"
ioExeFileChr = Chr$(34) & ioAppFile & App.EXEName & ".exe" & Chr$(34)
ioExeFile = ioAppFile & App.EXEName & ".exe"
Dim Reg As Object
Set Reg = CreateObject("WScript.Shell")
Reg.RegWrite "HKEY_CLASSES_ROOT\.aaa\", "iolaus aaa"
Reg.RegWrite "HKEY_CLASSES_ROOT\.aaa\Content Type", "aaa-iolaus"
Reg.RegWrite "HKEY_CLASSES_ROOT\iolaus aaa\", "вот такая херня"
Reg.RegWrite "HKEY_CLASSES_ROOT\iolaus aaa\DefaultIcon\", ioExeFile & "," & "0"
Reg.RegWrite "HKEY_CLASSES_ROOT\iolaus aaa\Shell\", "iOpen"
Reg.RegWrite "HKEY_CLASSES_ROOT\iolaus aaa\Shell\iOpen\", "Открыть"
Reg.RegWrite "HKEY_CLASSES_ROOT\iolaus aaa\Shell\iOpen\command\", ioExeFileChr & " " & Chr$(34) & "%1" & Chr$(34)


вот пример для файлов *.aaa

[HiMik2003]

А ты почитал комент к IContextMenu_InvokeCommand ?
Похоже для Юникода надо это дело доработать
Вот только исходников библиотеки типов нет...

Глянь здесь работающий пример (и не один):
http://www.mvps.org/emorcillo/download/vb6/shlext.msi

Только перед инсталляцией сохрани реестр - после деинсталляции почему-то некоторые изменения не отменяются (

Кстати, тема интересная, я тут интересные проблемы обнаружил под ХР при использовании расширений оболочки (контекстное меню), сделанных на VB
Если кого интересует - можно обсудить.

Попробовал под 98 - не работает, действительно...

Пока не знаю почему

А для регистрации просто:
[HKEY_CLASSES_ROOT\*\shellex\ContextMenuHandlers\VBContext]
@="{3BF124C0-209F-452F-AA9A-7F4F447ECD97}"
Только поставь свой GUID, который получится при компиляции dll !!!