Системное контекстное меню

← →
yaJohn (2006-12-08 11:27) [0]

Есть TPopupMenu. Нужно заполнить его элементами из системного контекстного меню для определённого файла или папки. Особо интересны подпункты SendTo и New. Желательно, конечно, с иконками, но сие уже вторично. И само собой нужно уметь выполнять соответствующие операции.
В JCL есть модуль JclShell, а в нем функция DisplayContextMenu, которая вызывает нужное меню, но мне нужно не показать, а заполнить уже имеющееся TMenu.
Можно переформулировать задачу иначе:
Как заполнить TMenu элементами из имеющегося HMENU с сохранением функциональности?

← →
DVM © (2006-12-08 12:19) [1]

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

← →
clickmaker © (2006-12-08 12:25) [2]

> Это проще, чем связываться с оболочкой и ее меню

не думаю. через IContextMenu(2) лучше

← →
yaJohn (2006-12-08 12:40) [3]

Дело в том, что я разрабатываю как раз расширение оболочки, так что тут сам бог велел :)

> через IContextMenu(2) лучше
Через IContextMenu я могу заполнить HMENU, это работает. А вот как выпотрошить HMENU?

http://rouse.drkb.ru/winapi.php#syspopup

Только измени пример .
Вот эта строку
ShellContextMenu := CreatePopupMenu;
замени на
ShellContextMenu := MySuperMenu.Handle;

Системное контекстное меню Найти похожие ветки