IE菜单中‘查看-》浏览器栏-》历史记录’的热键是Ctrl+H,我想通过修改注册表的方式将热键修改为Ctrl+9
另外,我通过delphi给IE菜单‘查看-》浏览器栏’中增加了一个自定义菜单,想给这个菜单增加一个热键(如Ctrl+Shift+F),如何通过注册表加
另外,我通过delphi给IE菜单‘查看-》浏览器栏’中增加了一个自定义菜单,想给这个菜单增加一个热键(如Ctrl+Shift+F),如何通过注册表加
解决方案 »
- 怎样限制Edit不允许输入中文?
- 如何在DBGridEh中显示图片,即将jpg图片显示在某一行内
- 有什么学习DELPHI的书
- 年关已近,小心骗子
- 今天心情极度不爽,散分!
- 请问:DBGRIDEH中,在运行时输入数字未回车,用鼠标点其他格,出错提示不能插入书签? 为什么??
- 请问各位那delphi的水晶报表控件?
- 紧急请求帮助阿!关于ado操作oracle程序的安装问题
- 旧版CSDN操作简单性令人怀念,我花两天时间把它模仿出来了,如果你怀念她,就来看看吧,http://www.gxlsweb.com/eBBS/
- 如何编程实现任意文件的切割??
- 关于数据枚举算法(高分悬赏)
- 不同窗体间怎样用指针传递adoquery?
不确定我是通过写注册表的方式在菜单中增加了一项,现在我想给自己添加的菜单定制热键,不知道该怎么做
我添加菜单的代码如下:
CLSID_DelphiBand: TGUID = '{3F5A62E2-51F2-11D3-A075-CC7364CAE42B}';
S := GUIDToString(CLSID_DelphiBand);
with TRegistry.Create do
try
DeleteKey('Software\Microsoft\Windows\CurrentVersion\Explorer\Discardable\PostSetup\Component Categories\'
+ VerticalBand + '\Enum'); RootKey := HKEY_CLASSES_ROOT;
if OpenKey('CLSID\' + S, True) then
begin
WriteString('', '发票发售管理 &ctrl+shift+F');
CloseKey;
end;
if OpenKey('CLSID\' + S + '\InProcServer32', True) then
begin
WriteString('ThreadingModel', 'Apartment');
CloseKey;
end;
if OpenKey('CLSID\' + S + '\Implemented Categories\' + VerticalBand, True)
then
CloseKey;
finally
Free;
end;