Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.05.23;
Скачать: 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 вся ветка

Текущий архив: 2004.05.23;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.025 c
1-1084355121
Mim1
2004-05-12 13:45
2004.05.23
Не опасен ли следующий код


7-1081233438
random
2004-04-06 10:37
2004.05.23
привод CD-Rom


4-1081251517
Dimitry
2004-04-06 15:38
2004.05.23
Запрет ввода некоторых символов в Edit


14-1083255040
Thor
2004-04-29 20:10
2004.05.23
Бовин умер :(


8-1078160093
__Alex__
2004-03-01 19:54
2004.05.23
Компонент для загрузки AVI из потока