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

← →
Virus.exe © (2004-05-08 12:03) [0]

Здрасте.Такая проблема.Хочется добавить свой пункт в меню,появляющееся при клике на RMB.Тока не в своей проге а в винде.Чтобы например, обработать файл, на котором выбрали мой
пункт меню.Если непонятно обьяснил,то скажите.Постараюсь сказать
понятнее.

← →
Семен Сорокин © (2004-05-08 14:00) [1]

type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure OnMyMenu;
private
procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;
end;

var
Form1: TForm1;

implementation
{$R *.DFM}
const
SC_MyMenuItem = WM_USER + 1;
//----------------------------------------------------
procedure TForm1.FormCreate(Sender: TObject);
begin
// добавление своего пункта в системное меню приложения

AppendMenu(GetSystemMenu(Handle, FALSE), MF_SEPARATOR, 0, "");
AppendMen!
u(GetSystemMenu(Handle, FALSE), MF_STRING,
SC_MyMenuItem, "Новый пункт в меню");
end;
//----------------------------------------------------
procedure TForm1.OnMyMenu;
Begin
// Обработка нажатия на новый пункт меню
End;
//----------------------------------------------------
procedure TForm1.WMSysCommand(var Msg: TWMSysCommand);
begin
// перехват события выбора нового пункта меню
if Msg.CmdType = SC_MyMenuItem then
OnMyMenu else
inherited;
end;

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

Как добавить свой пункт в меню? Найти похожие ветки