我有个问题花50分求解,各位捧场!实现这个功能:打开软件,选中一段文字,单击右键,有个菜单按钮,可以把选中的文字放入textbox.分数不多不少,拿出50分期待答案。
解决方案 »
- 请教一下,如何用XmlDocument来查询带 xmlns:xsi和xmlns的根节点
- Word开发中,关于“此方法或属性无效,因为 对象涉及表格行尾。”的问题
- UDP点对点通信
- 求关机、重启、注销代码
- Windows service 上传文件
- 我装了C#,现在要打开一个VC++.net的工程,还需要重新装VC++.net的开发环境吗?
- 如何让ListView可以单击表头进行排序?像windows的资源管理器那样
- 程序员面临的年龄问题
- 在DllImport之前,应该将dll文件放在哪里?
- 觸發器問題,請各位幫忙解決!
- 从字符串数组 a[]=new char[20] 拷贝字符串到 b[] = new char[10] 怎么拷贝?
- 如何从一个datatable里生成由满足特定条件的行组成的datatable或dataview?
利用注册表,
先加入注册表单元
uses registry
添加:
procedure TForm1.Button1Click(Sender: TObject);
var reg:tregistry;
Filename:String;
begin
//Project1是我的EXE文件名,你的你要改
Filename:=Trim(ExtractFileDir(Application.Exename)+'\Project1.exe');
reg:=tregistry.create ;
reg.rootkey:=hkey_classes_root;
if reg.OpenKey('\folder\shell',true) then
if not Reg.KeyExists('Project1') then
reg.createkey ('Project1'); if reg.OpenKey('\folder\shell\Project1',true) then
if not Reg.KeyExists('command') then
reg.createkey ('command'); if reg.openkey ('\folder\shell\Project1\command',true) then
reg.writestring('',Filename); //''连一起,不要按空格,默认值
SHOWMESSAGE('已加入WINDOWS右键快捷方式');
reg.CloseKey;
reg.free
end;
删除:
procedure TForm1.Button2Click(Sender: TObject);
var reg:tregistry;
begin
reg:=tregistry.create ;
reg.rootkey:=hkey_classes_root;
if reg.OpenKey('\folder\shell',true) then
if Reg.KeyExists('Project1') then
reg.DeleteKey('Project1');
reg.CloseKey;
reg.free ;
SHOWMESSAGE('已从WINDOWS右键快捷方式中删除');
end;
以上只一类,更多
在hkey_classes_root根键下,就有几个关于
修改系统菜单的子键,修改其下几个键,就会修改相应的系统菜单。
对应的关系分别是:
hkey_classes_root\folder\shell 可修改对任意文件夹单
击右键弹出的菜单的菜单项 hkey_classes_root\directory\shell 可修改对任意目录单击
右键弹出的菜单的菜单项 hkey_classes_root\drive\shell 可修改对任意驱动器单
击右键弹出的菜单的菜单项 hkey_classes_root\*\shell 可修改对任意文件单击右
键弹出的菜单的菜单项
只要能操作以下注册表项,就可以实现你要的功能
在hkey_classes_root根键下,就有几个关于
修改系统菜单的子键,修改其下几个键,就会修改相应的系统菜单。
对应的关系分别是:
hkey_classes_root\folder\shell 可修改对任意文件夹单
击右键弹出的菜单的菜单项 hkey_classes_root\directory\shell 可修改对任意目录单击
右键弹出的菜单的菜单项 hkey_classes_root\drive\shell 可修改对任意驱动器单
击右键弹出的菜单的菜单项 hkey_classes_root\*\shell 可修改对任意文件单击右
键弹出的菜单的菜单项
using System;
using Microsoft.Win32;class MyRegistry//在目录上点右键会多出Hello!的菜单按钮!
{
public static void Main(String[] args)
{
RegistryKey onekey;
onekey=Registry.CurrentUser.OpenSubKey("Software\\Microsoft\\Internet Explorer\\MenuExt",true);
if (onekey==null)
{
Console.WriteLine("键值不存在");
}
else
{
onekey.CreateSubKey("Hello!"); //创建子键到ie右键菜单
Console.WriteLine("创建成功");
} }
}如何给这个"Hello!"右键按钮添加功能?