Скачать: CL | DM;

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

← →
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;

---

← →
Virus.exe ©   (2004-05-11 14:19) [2]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.021 c