Главная страница
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.047 c
1-1083745038
xroad
2004-05-05 12:17
2004.05.23
Need help: Excel & Delphi


14-1083399235
electric
2004-05-01 12:13
2004.05.23
Server


1-1084022664
Игорь
2004-05-08 17:24
2004.05.23
Я хочу сделать тест и мне надо что бы прога где то собирала


8-1078821040
BooD
2004-03-09 11:30
2004.05.23
Создание avi из сиквенса tiff ов


1-1083924175
kull
2004-05-07 14:02
2004.05.23
Как избавиться от goto?