请问如何屏蔽[开始]键(在CSDN上至今末解决)(100分)

zzy1012 · 2000-10-10

曾有人提出该菜单实际上是一个BaseBar类窗口。用WinSight检查，当按下Win键后 确实有向BaseBar窗口发送消息。但仍无法通过Disable该窗口达到目的。

aerobull · 2000-10-10

off: var   OldVal : LongInt; begin   SystemParametersInfo (97, Word (True), @OldVal, 0) on: var   OldVal : LongInt; begin   SystemParametersInfo (97, Word (False), @OldVal, 0) //   EnableWindow(FindWindowEx(FindWindow('Shell_TrayWnd',  nil),0,'Button',nil), FALSE); // EnableWindow(FindWindowEx(FindWindow('Shell_TrayWnd', nil),0, 'Button',nil), TRUE);

CathyEagle · 2000-10-10

是啊，把它disable掉不就可以了吗？

pass · 2000-10-10

美萍  不是屏蔽了吗？

热血 · 2000-10-10

win键的级别比较高。要弄掉。只有用vxd来解决。用vxd来解决相当简单

wheel · 2000-10-10

我原以为用钩子可以钩掉，或者消息截获。 vxd的话小菜不懂的说。：（ 借这个地问一下：^^ 上面那句用SystemParametersInfo是用开屏蔽开始按钮的吗？我在我的2000下试没反应? 还有，经常看见别人的代码用97作参数，这97对应的什么参数？那里找得到对应表？

ypy · 2000-10-10

简单的做法：安装一个HOOK，因每次对开始按钮操作（如按下），WINDOWS会重新设置开始 按钮的状态为默认值，这样你的改变又变回来了，你需要用HOOK来过滤消息。 复杂做法：子类化窗口（我有C语言类似的例子）

BaKuBaKu · 2000-10-13

SystemParametersInfo 可以把系统设置为屏保状态，允许响应一些特殊的键。

Seoul_BJ · 2000-11-02

HAHAHA,我来回答,捡分啦. //隐藏 procedure TForm1.btHideClick(Sender: TObject); var   Rgn : hRgn; begin  {Hide the start button}   Rgn := CreateRectRgn(0, 0, 0, 0);   SetWindowRgn(FindWindowEx(FindWindow('Shell_TrayWnd', nil),0,'Button',nil),Rgn, true); end; //显示 procedure TForm1.btShowClick(Sender: TObject); begin   SetWindowRgn(FindWindowEx(FindWindow('Shell_TrayWnd', nil),0,'Button',nil),0,true); end; //失效 procedure TForm1.btDisabledClick(Sender: TObject); begin  EnableWindow(FindWindowEx(FindWindow('Shell_TrayWnd', nil),0, 'Button', nil),false); end; //有效 procedure TForm1.btEnabledClick(Sender: TObject); begin   EnableWindow(FindWindowEx(FindWindow('Shell_TrayWnd', nil),0,'Button',nil),true); end;

BaKuBaKu · 2000-11-02

Seoul_BJ 是对的，我测试过了。 btw: 通过 FindWindowEx(FindWindow('Shell_TrayWnd', nil),0,'Button',nil) 得到开始按钮句柄， 你是怎么知道的？

Seoul_BJ · 2000-11-02

不是我自己的解决的，我是以前在国外的一个网站上找到的。

小猪 · 2000-11-02

我用设置屏保的方法（如bakubaku所说），用的很好嘛，不过是在98下， 2000不行吗？ 先在我的电脑就用的我自己写的保护程序，没有我的密码，windows一个键都没用。

jiichen · 2000-11-02

沒錯，用了自己寫的一個程式，用途為查詢鼠標所在位置 的 Window title, Class Name. 開始鍵的 Parent Class Name 的確是 'Shell_TrayWnd' 想要的人可至 <a href='http://home.pchome.com.tw/soho/jiichen1/soft/MousePos.exe'>這裡</a>下載.

Fyx · 2000-11-02

同意Seoul_BJ，呵呵~，我昨天也刚从外国一个站点上看到，不过晚了一步。

wjiachun · 2000-11-02

接受答案了.

请问如何屏蔽[开始]键(在CSDN上至今末解决)(100分)

zzy1012

Unregistered / Unconfirmed

aerobull

Unregistered / Unconfirmed

CathyEagle

Unregistered / Unconfirmed

pass

Unregistered / Unconfirmed

热血

Unregistered / Unconfirmed

wheel

Unregistered / Unconfirmed

ypy

Unregistered / Unconfirmed

BaKuBaKu

Unregistered / Unconfirmed

Seoul_BJ

Unregistered / Unconfirmed

BaKuBaKu

Unregistered / Unconfirmed

Seoul_BJ

Unregistered / Unconfirmed

小猪

Unregistered / Unconfirmed

jiichen

Unregistered / Unconfirmed

Fyx

Unregistered / Unconfirmed

wjiachun

Unregistered / Unconfirmed

Similar threads