Как добавить подменю в системное контекстное меню

[Lucky13]

Добавил пункт в системное контекстное меню. Теперь нужно, чтобы у него было подменю. Добавить подменю не проблема, вопрос как узнать что пользователь выбрал некоторый пункт подменю, ведь InvokeCommand для подменю не вызывается?

[mihali4]

Ну, если про добавление пунктов все понятно, тогда обработка не должна вызывать затруднений:

implementation
{$R *.DFM}
const
SC_MyMenuItem = WM_USER + 1;

procedure TForm1.OnMyMenu;
Begin
// Здесь - обработка нажатия на новый пункт меню (подменю)
End;

procedure TForm1.WMSysCommand(var Msg: TWMSysCommand);
begin
// перехват события выбора нового пункта меню (подменю)
if Msg.CmdType = SC_MyMenuItem then
OnMyMenu else
inherited;
end;

[Lucky13]

Сообщение от mihali4

Ну, если про добавление пунктов все понятно, тогда обработка не должна вызывать затруднений:

implementation
{$R *.DFM}
const
SC_MyMenuItem = WM_USER + 1;

procedure TForm1.OnMyMenu;
Begin
// Здесь - обработка нажатия на новый пункт меню (подменю)
End;

procedure TForm1.WMSysCommand(var Msg: TWMSysCommand);
begin
// перехват события выбора нового пункта меню (подменю)
if Msg.CmdType = SC_MyMenuItem then
OnMyMenu else
inherited;
end;

Все бы было ничего, если бы меню было на Form1 как Вы указали. Но не все так просто - меню системное, что появляется при правом клике на файле в проводнике и работать с ним можно только через интерфейс IContextMenu и его наследников.

[mihali4]

если бы меню было на Form1 как Вы указали

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

что появляется при правом клике на файле в проводнике

к системному меню в его обычном дельфийском понимании не относится.

[Аlex]

Сообщение от Lucky13

Но не все так просто - меню системное

Уж не в реестре ли вы добавляете меню если там, то и обрататывать его надо там же(создать араметр с указанием на файл обрабатываемой программы с соотвеиствуюшим ключом)

[rpy3uH]

через реестр проще всего..