怎样屏蔽鼠标在任务栏上右键?(100分)

  • 主题发起人 主题发起人 qdian
  • 开始时间 开始时间
Q

qdian

Unregistered / Unconfirmed
GUEST, unregistred user!
关闭任务栏上的右键功能和防止任务栏的移动。
但任务栏上其他程序可以有右键(即有关闭、还原)
最好有例子。谢谢
 
学习,帮你提前
 
修改注册表里的一个值,具体哪个值我忘掉了
 
哇塞!!100分啊,用HOOK啊,钩住任务栏右键单击事件、效果还好。但有时也有钩不住
的地方!
 
我知道要用HOOK呀
怎么搞呀。晶晶
 
procedure Tform.CheckBox13Click(Sender: TObject);
var registry:tregistry;
begin
registry:=tregistry.Create;
registry.RootKey:=HKEY_CURRENT_USER;
registry.OpenKey('Software/Microsoft/Windows/Currentversion/Policies/Explorer',true);
if checkbox13.Checked=true then
registry.WriteInteger('Noviewcontextmenu',1)
else
registry.WriteInteger('Noviewcontextmenu',0);
end;
 
针对任务栏句柄用鼠标钩子
 
送分来了,^_^,这个搞不定我送100给你,
interface
uses
Windows, Messages, SysUtils, Classes, Forms;
type
TForm1 = class(TForm)
private
procedure WMNCRButtonDown(var Message: TWMNCRButtonDown); message WM_NCRBUTTONDOWN;
end;
implementation
{$R *.dfm}
procedure TForm1.WMNCRButtonDown(var Message: TWMNCRButtonDown);
begin
//什么都不干气死M$^_^
end;
 
delphi浪客,高明
 
晶晶,如何在程序中实现用鼠标hook截获WINDOWS的开始菜单,并用自己的菜单,能发源码给我吗,
谢谢!
 
To delphi浪客;
windows能做到的就讓它做吧.否則需要屏敝右鍵的時候還要運行你的程序.
 
关闭任务栏上的右键功能,该注册表。
HKEY_CURRENT_USER/Software/Microsoft/Windows/CurrentVersion/Policies/Explorer
NoViewContextMenu=1关闭 =0打开 DOWORD.


截获WINDOWS的开始菜单不用HOOK,用一个动态的 BUTTON 盖住“开始”,
WINDOWS.SETPARENT(),参见 WIN32 SDK。
 
to 新浪过客:
你这个想法值的学习!
 
TO:新浪过客
我怎么觉得你写的那个事件只对自己窗体的标题有效呀!
 
我试过新浪过客的方法了,只对窗体上的标题栏有效。但对任务栏上的没有效呀。
我的方法绝对有效,而且不需要用到HOOK,
可以是弹出了一个自己的菜单,也可以控制它不弹出那个菜单。
有兴趣的可以下载个DEOM看看吧。
http://www.lkgarden.com/lfpsoft/index.zip
 
我已写成了控件,但是有一个小问题,就是使用了该控件之后,
关闭DELPHI时都会出现错误,不知道是什么原因呢?第一次学写控件,请高手们帮手
看看到底在哪里出错了。
控件下载:
http://www.lkgarden.com/lfpsoft/ccTrayMenu.zip
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
2K
DelphiTeacher的专栏
D
I
回复
0
查看
551
import
I
后退
顶部