一个比较难的问题，关于给POP MENU增加菜单(100分)

白河愁 · 2003-03-18

如何给右击桌面弹出的POPMENU 增加一个选项？

hb_wshsh · 2003-03-18

白河愁 · 2003-03-18

请看清楚问题。

帮帮我 · 2003-03-18

uses registry; var   reg: Tregistry;   s,f:string; begin   reg := TRegistry.create;   try     s:='/.GB/Shell/我的程序/command';//可以改成你想要的文件扩展名     f:='d:/abc/abc.exe "%1"';    //注意空格     reg.rootkey := HKEY_CLASSES_ROOT;     if not reg.KeyExists(s) then     begin       reg.CreateKey(s);       reg.OpenKey(s,true);       reg.WriteString('',f);     end;   finally     reg.CloseKey;     reg.Destroy;   end;

白河愁 · 2003-03-18

楼上的你自己试过了吗

toplucky · 2003-03-19

WinApi

yyii_yyii · 2003-03-19

/*首先程序级别要达到1级或0级*/ #define IDM_ABOUT 1 LRESULT CALLBACK WndProc1(HWND, UINT, WPARAM, LPARAM); LRESULT (CALLBACK* oldProc)(HWND, UINT, WPARAM, LPARAM); void __fastcall TForm1::Button1Click(TObject *Sender) {  HWND dt;  dt = GetDesktopWindow();  oldProc = (WNDPROC)SetWindowLong(dt, GWL_WNDPROC, (LONG)WndProc1); } LRESULT CALLBACK WndProc1(HWND hWnd, UINT msg, WPARAM wParam, LPARAM lParam) {   static HMENU hMenu;   switch (msg)   {     case WM_INITMENUPOPUP:     hMenu = (HMENU)wParam;     AppendMenu(hMenu, MF_STRING, IDM_ABOUT, "About...")     break;   }   return CallWindowProc((FARPROC)oldProc, hWnd, msg, wParam, lParam); }

zbsfg · 2003-03-19

上面的办法是右击桌面文件时出现的POP，直接右击桌面，不知道？？？？关注!

白河愁 · 2003-03-19

程序级别是指？RING？

yyii_yyii · 2003-03-19

就是RING

白河愁 · 2003-03-19

98下不是只有ring0和ring3?而NT并不存在RING的概念，那1.......?

yyii_yyii · 2003-03-19

1是笔误

白河愁 · 2003-03-19

增加了似乎也无法运行，不过根据AppendMenu查得了不少结果, o*o写了一个hook程序实现了这个功能，而且似乎也用不到ring,不知道这有办法吗？

yyii_yyii · 2003-03-19

hook?很多人都把hook挂在嘴边，其实我上面写的就是窗口子类化， 为何不看看一些关于windows开发的基础读本?

白河愁 · 2003-03-19

按道理说，弹出一个POPUP MENU不是产生一个事件吗？把这个截获应该可以的吧。 case WM_INITMENUPOPUP: 这个不就是判断消息吗？

yyii_yyii · 2003-03-20

可我重载了原来的窗口过程啊！

白河愁 · 2003-03-20

有没有PASCAL版本，写了N遍都是不对的.......

yyii_yyii · 2003-03-20

不可能有Pascal版本，那有人用Pascal写SDK啊！

wr960204 · 2003-03-20

yyii_yyii的代码完全可以翻译成Pascal。 只是楼主的意思是没有驻留程序，只怕要写一个服务才行

白河愁 · 2003-03-20

LRESULT (CALLBACK* oldProc)(HWND, UINT, WPARAM, LPARAM); 这个应该怎么转换？ 驻留也不难吧，98下弄到RING0还是很容易的。

一个比较难的问题，关于给POP MENU增加菜单(100分)

白河愁

Unregistered / Unconfirmed

hb_wshsh

Unregistered / Unconfirmed

白河愁

Unregistered / Unconfirmed

帮帮我

Unregistered / Unconfirmed

白河愁

Unregistered / Unconfirmed

toplucky

Unregistered / Unconfirmed

yyii_yyii

Unregistered / Unconfirmed

zbsfg

Unregistered / Unconfirmed

白河愁

Unregistered / Unconfirmed

yyii_yyii

Unregistered / Unconfirmed

白河愁

Unregistered / Unconfirmed

yyii_yyii

Unregistered / Unconfirmed

白河愁

Unregistered / Unconfirmed

yyii_yyii

Unregistered / Unconfirmed

白河愁

Unregistered / Unconfirmed

yyii_yyii

Unregistered / Unconfirmed

白河愁

Unregistered / Unconfirmed

yyii_yyii

Unregistered / Unconfirmed

wr960204

Unregistered / Unconfirmed

白河愁

Unregistered / Unconfirmed

Similar threads