Delphi — как можно добавить свой пункт в контекстное меню проводника
Для иллюстрации объектов — расширений контекстного меню — выберем пример ContMenu (поставляется с Delphi в папке DEMOSACTIVEX SHELLEXT). В этом примере для объектов типа «проект Delphi» добавляется возможность запуска компилятора в командной строке. При вызове метода QueryContextMenu нужный пункт добавляется с помощью функции
InsertMenu!
function TContextMenu.QueryContextMenu(Menu: HMENU; indexMenu, idCmdFirst,
idCmdLast, uFlags: UINT): HResult;
begin
Result := 0; // или использовать MakeResult(SEVERITY_SUCCESS, // FACILITY_NULL, 0);
if ( (uFlags and $OOOOOOOF) = CMF__NORMAL)
or
((uFlags and CMF_EXPLORE) о 0) then begin
// Добавить один пункт меню во всплывающее меню
InsertMenu(Menu, indexMenu, MF__STRING or MF_BYPOSITION, idCmdFirst,
'Compile...');
Result := 1;
// или использовать MakeResult(SEVERITY_SUCCESS, //
FACILITY_NULL, 1)
end;
end;
Метод Getcornmandstring предоставляет системе данные о пункте меню, в частности, текст подсказки; эта подсказка будет отображаться в строке состояния Проводника, когда курсор находится в нужном месте меню.
Параметры Getcommandstring просты. Первый — idCmd — соответствует идентификатору пункта меню, второй — uType — запрос на тип информации (GCS_HELPTEXT — текст подсказки, GCS_VERB — полное название пункта меню). Наконец, параметры pszName и cchMax задают буфер, в который будут копироваться текстовые данные. Полное название необходимо системе, чтобы с его помощью вызывать предусмотренные в пункте действия программно. В примере ContMenu возврат названия (т. е. обработка запроса GCS_VERB) не предусмотрен, а в ответ на запрос GCS_HELPTEXT возвращается текстовая строка «Compile the selected Delphi project».
Наиболее сложным является метод Invokecommand. Он вызывается при выборе пользователем вставленного вами пункта меню. По сути дела метод InvokeCommand представляет собой прямой аналог обработчика onclick обычных пунктов меню (объектов TMenuitem) в Delphi.
Единственным параметром метода является структура типа TCMinvoke-commandinfo, поля которой имеют такое предназначение:
cbsize — размер структуры в байтах;
hwnd — задает дескриптор окна, которое будет владельцем диалоговых окон, вызываемых из метода;
fMask — определяет, заданы ли параметры dwHotkey/hicon;
Ipverb — вызываемая команда;
IpFarameters — параметры (если есть);
IpDirectory — рабочая папка (поле не обязательно);
nShow — флаг состояния окна, который будет передан в функцию ShowWindow (SW_*);
dwHotKey — «горячая» комбинация клавиш, которая будет сопоставляться приложению, запускаемому из этого пункта меню (только если в параметре fMask установлен флаг CMIC_MASK_HOTKEY);
hIсоn — значок, который будет сопоставляться приложению, запускаемому из этого пункта меню (только если в параметре fMask установлен флаг CMIC_MASK_ICON);
Monitor — монитор по умолчанию (поле не обязательно).
Отдельно следует остановиться на описании параметра ipverb. Как уже говорилось, он может представлять из себя как идентификатор пункта меню, так и его текст — строку, заканчивающуюся нулем. Чтобы выяснить это, нужно проверить старшее слово этого 32-разрядного параметра на равенство нулю. В примере ContMenu вызов по тексту не предусмотрен:
if (HiWord(Integer(Ipici.IpVerb)) <> 0) then
begin
Exit;
end;
Для создания расширения контекстного меню мы должны породить объект, поддерживающий эти интерфейсы. К сожалению, мастера, предусмотренные в Delphi, не позволяют в автоматизированном режиме создавать объекты, реализующие уже существующие интерфейсы. Поэтому и описание, и реализацию методов придется делать «по старинке», вручную. В примере ContMenu описание объекта таково:
TContextMenu = class(TComObject, IShellExtlnit, IContextMenu) private
FFileName: array[0..MAX_PATHj of Char;
protected
( IShellExtlnit }
function IShellExtlnit.Initialize = SEIInitialize;
function SEIInitialize(pidlFolder: PItemlDList; Ipdobj: IDataObject;
hKeyProgID: HKEY): HResult; stdcall; { IContextMenu }
function QueryContextMenufMenu: HMENU;
indexMenu, idCmdFirst, idCmdLast,
uFlags: UINT): HResult;
stdcall;
function InvokeCommand(var Ipici: TCMInvokeCommandlnfo): HResult; stdcall;
function GetCommandString(idCmd, uType: UINT; pwReserved: POINT;
pszName: LPSTR; cchMax: UINT): HResult;
stdcall;
end;
Вас может насторожить конструкция, описывающая переименование метода initialize интерфейса ishellExtinit. На самом деле одноименный метод имеется у объекта TComObject, и приведенный синтаксис как раз и предназначен для выхода из подобных ситуаций.
Последняя часть работы — регистрация созданного обработчика. Самое подходящее место для этого — метод updateRegistry фабрики класса. Разработчики примера ContMenu породили класс TContextMenuFactory, который при регистрации СОМ-сервера регистрирует создаваемые фабрикой объекты:
Classic := GUIDToString(Class_ContextMenu);
CreateRegKey('DelphiProjectXshellex', '', '')/'
CreateRegKey
('DelphiProjectshellexContextMenuHandlers', '', '');
CreateRegKey
('DelphiProjectshellex
ContextMenuHandlersContMenu', '',
ClassID);
Пример ContMenu иллюстрирует «дельфийский» подход к созданию серверов СОМ через соответствующие объекты из иерархии объектов Delphi. Но в папке SHELLEXT вы найдете еще один пример создания расширения для контекстного меню, сделанный целиком и только с использованием интерфейсов и функций СОМ. Присмотритесь к этому примеру внимательнее, если хотите глубже понимать внутреннюю структуру СОМ-объектов.
На данном уроке изучим основы создания меню. После обычного меню посмотрим, как в Delphi можно работать с контекстным меню. Компонент для него расположен на вкладке Standard палитры компонентов.
Двойным щелчком расположите его на форме. Как и в случае с обычным меню, место для его расположения сгодится любое — все равно этот компонент на этапе выполнения невидим (если мы контекстное меню не вызвали, разумеется).
Для того, чтобы при щелчке правой кнопкой мыши на некотором элементе появлялось контекстное меню, мы должны написать в свойстве PopupMenu для этого элемента написать имя нашего контекстного меню. Сделаем это, например, для нашей формы.
Для этого проще всего нажать на стрелочку вниз в правом столбце инспектора объектов — там в combobox будут присутствовать все контекстные меню, расположенные на форме. В нашем случае оно будет только одно.
Добавляются новые пункты в контекстное меню аналогично стандартному меню — через редактор. Для его появления просто сделайте двойной щелчок на нашем контекстном меню или нажмите на кнопку с двоеточием рядом с его свойством Items. Добавьте в наше меню два пункта — Пункт 1 и Пункт 2.
Для добавления обработчика для некоторого пункта нашего меню просто сделайте двойной щелчок на нем. Создастся заготовка для кода.
Код:
procedure TForm1.N11Click(Sender: TObject);
begin
ShowMessage(‘Пункт1’);
end;
Запускайте программу (F9). При щелчке правой кнопкой мыши на форме должно появиться наше контекстное меню. При выборе в этом меню подменю Пункт 1 появится messagebox с соответствующей надписью. Вообще же контекстное меню можно прибавить к любому элементу. Просто задайте свойство PopupMenu.
Всё на этом урок закончен.
Когда пользователь щелкает правой кнопкой на управлении Edit (или на другом компоненте, который позволяет редактирование, типа TMaskEdit, TMemo, TDBEdit и т.д.) во время выполнения, появляется контекстное меню по умолчанию с опциями редактирования, вставки и т.д. Чтобы осуществить всплывающее меню по умолчанию в TRichEdit, Вы должны вручную создать TPopupMenu и назначить свойство PopupMenu управления TRichEdit на него.
Для этого нужно сделать следующее:
- Поместите компонент TPopupMenu (richEditContextMen на форму (Form1) и управление TRichEdit (richEdit1) или несколько RichEdit компонентов
- Добавьте пункты меню, которые отображаются в стандартном управлении редактирования, типа TEdit (itemUnd, itemCut, itemCopy, itemPaste, itemSelect, itemSelectAll)
- Обработайте событие OnPopup всплывающего меню для отключения/включения отдельных пунктов меню в зависимости от состояния управления RichEdit и существования любых текстовых данных в Clipboard
- Назначьте свойство PopupMenu на всплывающее меню
- Обработайте каждое событие OnClick для каждого пункта меню
Чтобы включать/отключать отдельные пункты контекстного меню, обработайте событие OnPopup:
procedure TForm1.richEditContextMenuPopup(Sender: TObject) ; var re : TRichEdit; begin re := GetRichEditFromPopup; itemUndo.Enabled := re.CanUndo; itemCut.Enabled := re.SelText <> ''; itemCopy.Enabled := re.SelText <> ''; itemDelete.Enabled := re.SelText <> ''; itemPaste.Enabled := Clipboard.HasFormat(CF_TEXT) ; end;
Функция GetRichEditFromPopup возвращает управление TRichEdit, которое отображает контекстное меню в настоящее время:
function TForm1.GetRichEditFromPopup: TRichEdit; begin // нужно добавить некоторую проверку // (if richEditContextMenu.PopupComponent is TRichEdit) result := TRichEdit(richEditContextMenu.PopupComponent) ; end;
Осуществляем действия каждого пункта меню:
Undo — отменяет все изменения из буфера
procedure TForm1.itemUndoClick(Sender: TObject) ; begin GetRichEditFromPopup.Undo; end;
Cut — копирует выделенный текст в буфер обмена в формате CF_TEXT, а затем удаляет выделенное
procedure TForm1.itemCutClick(Sender: TObject) ; begin GetRichEditFromPopup.CutToClipboard; end;
Copy — копирует выделенный текст в буфер обмена в формате CF_TEXT
procedure TForm1.itemCopyClick(Sender: TObject) ; begin GetRichEditFromPopup.CopyToClipboard; end;
Paste — втсавляет содержимое буфера обмена в управление редактирования, заменяя текущее выделение
procedure TForm1.itemPasteClick(Sender: TObject) ; begin GetRichEditFromPopup.PasteFromClipboard; end;
Delete — удаляет выделенный текст из управления редактирования
procedure TForm1.itemDeleteClick(Sender: TObject) ; begin GetRichEditFromPopup.ClearSelection; end;
SelectAll — выделяет весь текст в управлении редактирования
procedure TForm1.itemSelectAllClick(Sender: TObject) ; begin GetRichEditFromPopup.SelectAll; end;
Вот и все. Теперь Ваши приложения Delphi с управлением TRichEdit будет отображать контекстное меню, когда Вы будете щелкать правой кнопкой мыши на нем.
Обратите внимание: операции копирования и вставки поддерживают форматированный текст RTF.
Автор статьи: Zarko Gajic
Добавление пунктов в системное контекстное меню
Вы обращали внимание на то, что некоторые приложения после установки добавляют в системное контекстное меню свои собственные пункты? Так поступают многие архиваторы, антивирусные средства и другие утилиты. Эта возможность предоставляется оболочкой Windows.
Когда пользователь щелкает правой кнопкой мыши на любом объекте в пространстве имен, система создает контекстное меню из двух частей: стандартного меню для объектов данного типа и пунктов меню, добавляемых
зарегистрированными обработчиками. Зарегистрированные обработчики — это СОМ-серверы, запускаемые в адресном пространстве процесса (in-process servers) и реализованные в виде динамических библиотек.
Ваш СОМ-объект, который расширяет системное контекстное меню, должен поддерживать как минимум два интерфейса —
ishellExtinit и IContextMenu.
существует и два новых интерфейса — IContextMenu2
и icontextMenuS, но они вносят в логику работы контекстных меню лишь небольшие дополнения и здесь рассмотрены не будут. Интерфейс
ishellExtinit отвечает за инициализацию меню, а интерфейс
IContextMenu — за выполнение основных функций.
Методы интерфейса IContextMenu приведены в табл. 31.3.
Таблица 31.3. Методы
интерфейса IContextMenu
|
|
|
|
|
|
|
|
|
|
|
|
Рассмотрим их подробнее. Параметры метода QueryContextMenu означают следующее:
- Menu
— дескриптор системного меню; - indexMenu
— позиция в меню, в которую следует вставить пункт (пункты); - IdCmdFirst,IdCmdLast
— диапазон допустимых значений для идентификаторов вставляемых пунктов меню; - uFlags
— набор флагов, главные из которых означают:
- CMF_NORMAL
— обычный вызов контекстного меню, пункты могут быть добавлены. Значение
этого флага нулевое, проверять его следует, очистив все биты в параметре
uFlags, кроме пяти младших (маска $1F);- CMF_DEFAULTONLY
— устанавливается, если пользователь задал с объектом действие по умолчанию
(например, двойной щелчок). В этом случае пункты меню добавляться не должны;- CMF_VERBSONLY
— устанавливается, если меню создается для ярлыка объекта, а не для самого
объекта. В этом случае многие пункты меню создаваться не должны;- CMF_EXPLORE
— устанавливается, если меню создается для объекта, находящегося на левой
панели Проводника.
Для иллюстрации объектов — расширений контекстного меню — выберем пример
ContMenu (поставляется с Delphi в папке
DEMOS\ACTIVEX \SHELLEXT). В этом примере для объектов типа «проект Delphi» добавляется возможность запуска компилятора в командной строке. При вызове метода
QueryContextMenu нужный пункт добавляется с помощью функции
InsertMenu!
function TContextMenu.QueryContextMenu(Menu: HMENU; indexMenu, idCmdFirst,
idCmdLast, uFlags: UINT): HResult;
begin
Result := 0; // или использовать MakeResult(SEVERITY_SUCCESS, // FACILITY_NULL, 0);
if ( (uFlags and $OOOOOOOF) = CMF__NORMAL)
or
((uFlags and CMF_EXPLORE) о 0) then begin
// Добавить один пункт меню во всплывающее меню
InsertMenu(Menu, indexMenu, MF__STRING or MF_BYPOSITION, idCmdFirst,
‘Compile…’);
Result := 1;
// или использовать MakeResult(SEVERITY_SUCCESS, //
FACILITY_NULL, 1)
end;
end;
Метод Getcornmandstring предоставляет системе данные о пункте меню, в частности, текст подсказки; эта подсказка будет отображаться в строке состояния Проводника, когда курсор находится в нужном месте меню.
Параметры Getcommandstring просты. Первый —
idCmd — соответствует идентификатору пункта меню, второй —
uType — запрос на тип информации
(GCS_HELPTEXT — текст подсказки,
GCS_VERB — полное название пункта меню). Наконец, параметры
pszName и
cchMax задают буфер, в который будут копироваться текстовые данные. Полное название необходимо системе, чтобы с его помощью вызывать предусмотренные в пункте действия программно. В примере
ContMenu возврат названия (т. е. обработка запроса
GCS_VERB) не предусмотрен, а в ответ на запрос GCS_HELPTEXT возвращается текстовая строка
«Compile the selected Delphi project».
Наиболее сложным является метод Invokecommand. Он вызывается при выборе пользователем вставленного вами пункта меню. По сути дела метод
InvokeCommand представляет собой прямой аналог обработчика
onclick обычных пунктов меню (объектов
TMenuitem) в Delphi.
Единственным параметром метода является структура типа
TCMinvoke-commandinfo, поля которой имеют такое предназначение:
- cbsize — размер
структуры в байтах; - hwnd — задает дескриптор
окна, которое будет владельцем диалоговых окон, вызываемых из метода; - fMask — определяет, заданы
ли параметры dwHotkey/hicon; - Ipverb — вызываемая команда;
- IpFarameters — параметры
(если есть); - IpDirectory — рабочая папка
(поле не обязательно); - nShow — флаг состояния
окна, который будет передан в функцию ShowWindow
(SW_*); - dwHotKey — «горячая»
комбинация клавиш, которая будет сопоставляться приложению, запускаемому из
этого пункта меню (только если в параметре fMask
установлен флаг CMIC_MASK_HOTKEY); - hIсоn — значок, который
будет сопоставляться приложению, запускаемому из этого пункта меню (только
если в параметре fMask установлен флаг
CMIC_MASK_ICON); - Monitor — монитор по умолчанию
(поле не обязательно).
Отдельно следует остановиться на описании параметра
ipverb. Как уже говорилось, он может представлять из себя как идентификатор пункта меню, так и его текст — строку, заканчивающуюся нулем. Чтобы выяснить это, нужно проверить старшее слово этого 32-разрядного параметра на равенство нулю. В примере
ContMenu вызов по тексту не предусмотрен:
if (HiWord(Integer(Ipici.IpVerb)) <> 0) then
begin
Exit;
end;
Для создания расширения контекстного меню мы должны породить объект, поддерживающий эти интерфейсы. К сожалению, мастера, предусмотренные в Delphi, не позволяют в автоматизированном режиме создавать объекты, реализующие уже существующие интерфейсы. Поэтому и описание, и реализацию методов придется делать «по старинке», вручную. В примере
ContMenu описание объекта таково:
TContextMenu = class(TComObject, IShellExtlnit, IContextMenu) private
FFileName: array[0..MAX_PATHj of Char;
protected
( IShellExtlnit }
function IShellExtlnit.Initialize = SEIInitialize;
function SEIInitialize(pidlFolder: PItemlDList; Ipdobj: IDataObject;
hKeyProgID: HKEY): HResult; stdcall; { IContextMenu }
function QueryContextMenufMenu: HMENU;
indexMenu, idCmdFirst, idCmdLast,
uFlags: UINT): HResult;
stdcall;
function InvokeCommand(var Ipici: TCMInvokeCommandlnfo): HResult; stdcall;
function GetCommandString(idCmd, uType: UINT; pwReserved: POINT;
pszName: LPSTR; cchMax: UINT): HResult;
stdcall;
end;
Вас может насторожить конструкция, описывающая переименование метода
initialize интерфейса ishellExtinit. На самом деле одноименный метод имеется у объекта
TComObject, и приведенный синтаксис как раз и предназначен для выхода из подобных ситуаций.
Последняя часть работы — регистрация созданного обработчика. Самое подходящее место для этого — метод
updateRegistry фабрики класса. Разработчики примера
ContMenu породили класс TContextMenuFactory, который при регистрации СОМ-сервера регистрирует создаваемые фабрикой объекты:
Classic := GUIDToString(Class_ContextMenu);
CreateRegKey(‘DelphiProjectXshellex’, », »)/’
CreateRegKey
(‘DelphiProject\shellex\ContextMenuHandlers’, », »);
CreateRegKey
(‘DelphiProject\shellex
\ContextMenuHandlers\ContMenu’, »,
ClassID);
Пример ContMenu иллюстрирует «дельфийский» подход к созданию серверов СОМ через соответствующие объекты из иерархии объектов Delphi. Но в папке
SHELLEXT вы найдете еще один пример создания расширения для контекстного меню, сделанный целиком и только с использованием интерфейсов и функций СОМ. Присмотритесь к этому примеру внимательнее, если хотите глубже понимать внутреннюю структуру СОМ-объектов.
Как использовать OAuth2 со Spring Security в Java
Javaican 14.05.2025
Протокол OAuth2 часто путают с механизмами аутентификации, хотя по сути это протокол авторизации. Представьте, что вместо передачи ключей от всего дома вашему другу, который пришёл полить цветы, вы. . .
Анализ текста на Python с NLTK и Spacy
AI_Generated 14.05.2025
NLTK, старожил в мире обработки естественного языка на Python, содержит богатейшую коллекцию алгоритмов и готовых моделей. Эта библиотека отлично подходит для образовательных целей и. . .
Реализация DI в PHP
Jason-Webb 13.05.2025
Когда я начинал писать свой первый крупный PHP-проект, моя архитектура напоминала запутаный клубок спагетти. Классы создавали другие классы внутри себя, зависимости жостко прописывались в коде, а о. . .
Обработка изображений в реальном времени на C# с OpenCV
stackOverflow 13.05.2025
Объединение библиотеки компьютерного зрения OpenCV с современным языком программирования C# создаёт симбиоз, который открывает доступ к впечатляющему набору возможностей. Ключевое преимущество этого. . .
POCO, ACE, Loki и другие продвинутые C++ библиотеки
NullReferenced 13.05.2025
В C++ разработки существует такое обилие библиотек, что порой кажется, будто ты заблудился в дремучем лесу. И среди этого многообразия POCO (Portable Components) – как маяк для тех, кто ищет. . .
Паттерны проектирования GoF на C#
UnmanagedCoder 13.05.2025
Вы наверняка сталкивались с ситуациями, когда код разрастается до неприличных размеров, а его поддержка становится настоящим испытанием. Именно в такие моменты на помощь приходят паттерны Gang of. . .
Создаем CLI приложение на Python с Prompt Toolkit
py-thonny 13.05.2025
Современные командные интерфейсы давно перестали быть черно-белыми текстовыми программами, которые многие помнят по старым операционным системам. CLI сегодня – это мощные, интуитивные и даже. . .
Конвейеры ETL с Apache Airflow и Python
AI_Generated 13.05.2025
ETL-конвейеры – это набор процессов, отвечающих за извлечение данных из различных источников (Extract), их преобразование в нужный формат (Transform) и загрузку в целевое хранилище (Load). . . .
Выполнение асинхронных задач в Python с asyncio
py-thonny 12.05.2025
Современный мир программирования похож на оживлённый мегаполис – тысячи процессов одновременно требуют внимания, ресурсов и времени. В этих джунглях операций возникают ситуации, когда программа. . .
Работа с gRPC сервисами на C#
UnmanagedCoder 12.05.2025
gRPC (Google Remote Procedure Call) — открытый высокопроизводительный RPC-фреймворк, изначально разработанный компанией Google. Он отличается от традиционых REST-сервисов как минимум тем, что. . .