Конференция VBStreets

**t116** » 08.11.2007 (Чт) 3:00

Можно ли вызвать сабж в VB?

Например, мне надо чтобы при клике по форме появлялось контекстное меню файла "C:\picture.jpg".

Есть API-функция для этого? Как это сделать, подскажите.

**Viper** » 08.11.2007 (Чт) 8:32

Если мне не изменяет память этот вопрос поднимался в пределах последних двух месяцев. Стоит поискать, вроде бы даже какой-то результат был

**t116** » 08.11.2007 (Чт) 22:59

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

**NIC** » 08.11.2007 (Чт) 23:01

Я тоже ничего не нашёл :roll:

**NIC** » 08.11.2007 (Чт) 23:02

Может как вариант собирать инфу в реестре и делать своё меню?

**t116** » 08.11.2007 (Чт) 23:06

NIC писал(а):Может как вариант собирать инфу в реестре и делать своё меню?

нет

**NIC** » 08.11.2007 (Чт) 23:49

Total Commander так делает.(вроде)

**Arcady_XQST** » 19.11.2007 (Пн) 21:16

Вот нашел, только вызов через DLL.

**NIC** » 19.11.2007 (Пн) 22:15

Благодарен. :wink:

**Arcady_XQST** » 19.11.2007 (Пн) 23:14

А теперь вопрос: как узнать что вызывает эта DLL?

Вероятно, кто знает asm, сможет перевести ее в VB6 (с помощью дебаггера). ASM-кодеры, HELP! :oops:

**NIC** » 19.11.2007 (Пн) 23:22

Похоже она сама всё делает

**t116** » 20.11.2007 (Вт) 1:44

Arcady_XQST писал(а):Вот нашел, только вызов через DLL.

Сенкс.

**Lumen** » 20.11.2007 (Вт) 2:48

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

**NIC** » 20.11.2007 (Вт) 2:51

А можно прям на делфи выложить? :roll:

**Lumen** » 20.11.2007 (Вт) 3:19

Там в принципе и выкладывать-то нечего. В стандартной поставке Delphi есть пример Virtual ListView. В принципе программка чем-то напоминает проводник, но не хватает контекстного меню. Приделать его можно таким образом:

Код: Выделить всё: procedure TForm1.PopupMenu1Popup(Sender: TObject); var ContextMenu : IContextMenu; menu : HMENU; begin FIShellFolder.GetUIObjectOf(Handle, 1, ShellItem(ListView.Selected.index).ID, IID_IContextMenu, nil, ContextMenu); menu := CreatePopupMenu(); ContextMenu.QueryContextMenu(menu, 0, 1, $7FFF, CMF_EXPLORE); TrackPopupMenu(menu, TPM_LEFTALIGN or TPM_LEFTBUTTON or TPM_RIGHTBUTTON or TPM_RETURNCMD, Mouse.CursorPos.x, Mouse.CursorPos.y, 0, Handle, nil); DestroyMenu(menu); end;

На всякий случай выложу рабочий код ниже.

**NIC** » 20.11.2007 (Вт) 3:28

Спасибо

**Lumen** » 20.11.2007 (Вт) 4:14

Пожалуйста, если интересно ещё, то в том же Delphi 7 есть набор компонентов ShellCtrls, там тоже вызывается контекстное меню проводника. Если есть желание можно поковырять их.

**Arcady_XQST** » 21.11.2007 (Ср) 23:56

Может пример VirtualListview.rar у меня глючит, но меню вызывается, но не работает!

**Lumen** » 22.11.2007 (Чт) 4:01

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

t116 писал(а):Например, мне надо чтобы при клике по форме появлялось контекстное меню файла "C:\picture.jpg".

Как вариант можно попробовать по реестру инфу собрать и вызова TrackPopupMenu выполнять нужную команду самостоятельно. Или поковыряю исходники ShellCtrls посмотрю как там реализовано. Там менюшка точно работает.

**Arcady_XQST** » 22.11.2007 (Чт) 22:20

А вот здесь хороший пример. Блин, сколько всего надо-то...

Конференция VBStreets

Вызов контекстного меню проводника

Вызов контекстного меню проводника

Re: Вызов контекстного меню проводника

Кто сейчас на конференции