怎样象WinZip一样在Windows中加入自己的菜单项？

Question

const
  UM_UserDefine = 10000;
var
  hSysMenu: HMENU;
begin
  hSysMenu := GetSystemMenu(Application.Handle, False);
  InsertMenu(hSysMenu, 0,
  MF_STRING or MF_BYPOSITION, UM_UserDefine, 'User Item');
end;

Answer 1

Sorry，看错了。你要的在注册表里修改。办法有多钟，最简单的就是在：HKEY_CLASSES_ROOT\*\shell下添加一项，比如叫：“Edit with myFile”。在它下面在建立一个名字为Command的项目。将Command的Defualt的值设为类似E:\Program Files\MyEdit\MyEdit.exe "%1"即可。

Answer 2

不是这个，哈哈，GoodHope！这个比较难！需要写Dll，需要注册注册表！很烦的。这个问题以前也有人问过，搜索一下！

Answer 3

delphi的demos中有
Borland\Delphi5\Demos\Activex\Shellext

Answer 4

GoodHope兄，这方法我也试过了！
如果我想在桌面的弹出菜单加上一个菜单项怎么做呢？

Answer 5

TO KXY 兄：~~~
Borland\Delphi5\Demos\Activex\Shellext 
中的例子能不能直接用？

Answer 6

我的竹叶有源程序：
http://www.applevb.com/sourcecode/ssystem.htm

Answer 7

建议您访问www.etechbase.net/tech,里面有很多资料，也许可以解决您的问题。
访问http://168.168.18.11:81/etechbase/advsearch.php将您的问题输入查询内容框，选择不同的精确程度，即可以找到你所需要的答案。效果还是可以的。