Иллюстрированный самоучитель по Delphi 7 для профессионалов

Добавление пунктов в системное контекстное меню

Для иллюстрации объектов – расширений контекстного меню – выберем пример ContMenu (поставляется с Delphi в папке DEMOS\ACTIVEX \SHELLEXT). В этом примере для объектов типа "проект Delphi" добавляется возможность запуска компилятора в командной строке. При вызове метода QueryContextMenu нужный пункт добавляется с помощью функции:

InsertMenu1
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 – монитор по умолчанию (поле не обязательно).
Если Вы заметили ошибку, выделите, пожалуйста, необходимый текст и нажмите CTRL + Enter, чтобы сообщить об этом редактору.