win2000下如何屏蔽win+D键，高手请进，吐血300分，谢绝拷贝论坛老帖子灌水 (300分)

NetBird · 2003-11-12

[red]我编了小的应用软件，完成后可以免费给大家用，但是现在有一个问题始终没有解决，就是屏蔽win+d组合键禁止切换到桌面的问题，论坛上的贴子我已经看过了，好像都没有很好的解决这个问题，屏蔽其它任何键我都能实现，请各位富翁只回答屏蔽win+d这一个问题，其它的键怎么屏蔽我知道，先谢了。[/red]

fsse4000 · 2003-11-12

屏蔽系统按键 也许你希望程序在运行时不想让用户按系统按键 Alt-Tab 或 Ctrl-Alt-Del，那么可以通过以下的程序来屏蔽这些按键。　 procedure TForm1.FormCreate(Sender: TObject); 　 var tmp,Flag :integer; begin 　 tmp := 0; Flag := 1; 　 //屏蔽 Alt-Tab 　 SystemParametersInfo( SPI_SETFASTTA-SKSWITCH, Flag, @tmp, 0); 　 //屏蔽 Ctrl-Alt-Del 　 SystemParametersInfo( SPI_SCREENSAVERRU-NNING,Flag, @tmp, 0); 　 end; 　　当你要恢复功能键时用以下代码: Flag := 0; SystemParametersInfo(SPI_SCREENSAVERRU-NNING,Flag,@temp,0);_____________________________________________________________________隐藏和显示Windows的任务条如何隐藏和显示Windows的任务条?仅仅调用以下的函数就可以。本程序的思路实际上就是先找到标题条的句柄，然后向它发送相应消息（SW_HIDE/SW_RESTORE）即可 procedure hideTaskbar; //隐藏 var wndHandle : THandle; wndClass : array[0..50] of Char; begin StrPCopy(@wndClass[0], 'Shell_TrayWnd'); wndHandle := FindWindow(@wndClass[0], nil); ShowWindow(wndHandle, SW_HIDE); End; procedure showTaskbar; var wndHandle : THandle; wndClass : array[0..50] of Char; begin StrPCopy(@wndClass[0], 'Shell_TrayWnd'); wndHandle := FindWindow(@wndClass[0], nil); ShowWindow(wndHandle, SW_RESTORE); end;

NetBird · 2003-11-12

我是说屏蔽掉win键，以前的贴子大多在2000下都不能实现，所以请不要把以前的贴子再贴上来，拜托

china520 · 2003-11-12

什么是win键？

app2001 · 2003-11-12

我有这个DEMO，你留个EMAIL下来吧，Win9x/WinNT/Win2000/WinME下运行都没问题

archonwang · 2003-11-12

看这段文字，我从csdn上摘的： 如果你是基于Windows操作系统做系统集成的，你可能希望你的最终产品独占系统资源。你希望规范用户行为，比如你不希望用户通过按Ctrl+Alt+Del终止某个进程，或者按下Win键弹出开始菜单，或者按下Alt+Tab组合键切换到别的应用程序。笔者已有相关一篇文章《Win2K/NT下屏蔽Ctrl+Alt+Del的响应》，介绍了如何通过GINA编程接口屏蔽Ctrl+Alt+Del的响应。作为续篇，本文将继续介绍屏蔽Win键和Alt+Tab组合键的方法。     由于这些按键的响应是系统级的，我们不可能简单地通过某个程序来控制它们。因此，我们需要使用微软提供的另外一种编程接口——钩子（Hook）。大家可能已经对钩子很了解了（网上有很多介绍钩子技术和应用的文章）。简单来说，钩子是一种通过替换系统提供的标准接口来截获特定的事件（消息），最终达到改变或增强系统默认行为目的的技术。我们现在的任务，就是要在用户按下Win键或Alt+Tab组合键、但系统还没有响应之前截获它们，然后改变系统的默认行为。很显然，我们要做一个全局钩子（钩子函数放在独立的DLL中实现），而且是个低级键盘钩子（Low  Level  Keyboard    hook）。     第一步，钩子DLL的实现。我们首先要定义一个全局数据区（记住这是一个全局钩子），如下（放在cpp文件的上头）：   #pragma  data_seg("mydata")   HHOOK            glhHook            =  NULL;                        //  安装的鼠标钩子句柄   HINSTANCE    glhInstance    =  NULL;              //  DLL实例句柄   #pragma  data_seg()   然后在.def文件中声明这个数据区，如下：   SECTIONS          mydata  READ  WRITE  SHARED   当这个DLL被某个进程载入时，程序从WinMain进入，此时我们需要把模块句柄保存下来，如下：   glhInstance  =  (HINSTANCE)  hModule;   接下去，我们就要定义两个导出函数，以及钩子的处理函数。我们重点看一下这个钩子处理函数（另外两个导出函数比较简单，只是通过调用SetWindowsHookEx和UnhookWindowsHookEx实现安装/卸载钩子函数；只需注意SetWindowsHookEx第一个参数为WH_KEYBOARD_LL，第四个参数为0）。   //  低级键盘钩子处理函数   LRESULT  CALLBACK  LowLevelKeyboardProc(int  nCode,  WPARAM  wParam,  LPARAM  lParam)   {          BOOL  fEatKeystroke  =  FALSE;          PKBDLLHOOKSTRUCT  p  =  NULL;            if  (nCode  ==  HC_ACTION)            {                  p  =  (PKBDLLHOOKSTRUCT)  lParam;                  switch  (wParam)                    {                          case  WM_KEYDOWN:                            case  WM_SYSKEYDOWN:                                                  case  WM_KEYUP:                                  case  WM_SYSKEYUP:                    fEatKeystroke  =  (p->vkCode  ==  VK_LWIN)    &brvbar;  &brvbar;  (p->vkCode  ==  VK_RWIN)    &brvbar;  &brvbar;    //  屏蔽Win                  //  屏蔽Alt+Tab                  ((p->vkCode  ==  VK_TAB)  &&  ((p->flags  &  LLKHF_ALTDOWN)  !=  0))    &brvbar;  &brvbar;                  //  屏蔽Alt+Esc                  ((p->vkCode  ==  VK_ESCAPE)  &&  ((p->flags  &  LLKHF_ALTDOWN)  !=  0))    &brvbar;  &brvbar;                  //  屏蔽Ctrl+Esc                  ((p->vkCode  ==  VK_ESCAPE)  &&  ((GetKeyState(VK_CONTROL)  &  0x8000)  !=  0));                  break;                          default:                                  break;              }          }        return  (fEatKeystroke  ?  TRUE  :  CallNextHookEx(glhHook,nCode,wParam,lParam));   }   大家可以看到，当程序发现按下的是Win键或者Alt+Tab组合键，就不再调用CallNextHookEx函数将这个消息传递下去。以此，我们做到了屏蔽这些按键的响应。     第二步，钩子DLL的测试程序。在VC中创建一个基于对话框的应用程序。通过调用LoadLibrary("KeyMask.dll")载入钩子DLL，通过GetProcAddress(m_hDll,"StartKeyMask")和GetProcAddress(m_hDll,"StopKeyMask")导入两个安装/卸载钩子的函数。在主对话框上定义两个按钮分别调用这两个函数，如下：     当按下“Start_Hook”按钮，我们的钩子函数就起作用了。试一下Win键，或者Alt+Tab组合键，没反应了吧？！“Stop_Hook”按钮可以解除这个钩子。     讲到这，大家可能觉得钩子其实也是很容易的东西。是的，钩子容易使用，而且功能强大。但是，笔者建议，如果不是十分必要，请尽量少用钩子。因为钩子在实现强大功能的同时，可能也会严重降低你系统的性能。有时候是得不偿失的！

archonwang · 2003-11-12

希望对你的问题有帮助

mystudy · 2003-11-12

在原码上看了一个程序用钩子的 tagKBDLLHOOKSTRUCT = packed record   vkCode: DWORD;//虚拟键值   scanCode: DWORD;//扫描码值（没有用过，我也不懂^_^）   {一些扩展标志，这个值比较麻烦，MSDN上说得也不太明白，但是   根据这个程序，这个标志值的第六位数（二进制）为1时ALT键按下为0相反。}   flags: DWORD;   time: DWORD;//消息时间戳   dwExtraInfo: DWORD;//和消息相关的扩展信息 end;  KBDLLHOOKSTRUCT = tagKBDLLHOOKSTRUCT;  PKBDLLHOOKSTRUCT = ^KBDLLHOOKSTRUCT; //这个是低级键盘钩子的索引值，Delphi中没有，必须自己定义 const WH_KEYBOARD_LL = 13; //定义一个常量好和上面哪个结构中的flags比较而得出ALT键是否按下 const LLKHF_ALTDOWN = $20; var hhkLowLevelKybd: HHOOK = 0; function LowLevelKeyboardProc(nCode: Integer;   WParam: WPARAM;LParam: LPARAM):LRESULT; stdcall; var   fEatKeystroke: BOOL;   p: PKBDLLHOOKSTRUCT; begin   Result := 0;   fEatKeystroke := FALSE;   p := PKBDLLHOOKSTRUCT (lParam); //nCode值为HC_ACTION时表示WParam和LParam参数包涵了按键消息   if (nCode = HC_ACTION) then   begin    case wParam of       WM_KEYDOWN,       WM_SYSKEYDOWN: begin      // WM_KEYUP,     //  WM_SYSKEYUP: begin          if ((p.flags and LLKHF_ALTDOWN) <> 0)or(p.vkCode=38)or(p.vkCode=40)           or ((p.vkCode = VK_ESCAPE) and ((GetKeyState(VK_CONTROL) and $8000) <> 0))           or(p.vkCode=vk_lwin)or(p.vkCode=vk_rwin)            then fEatKeystroke :=true;      end;     end;   end;   if fEatKeystroke = True then     Result := 1;   if nCode <> 0 then      Result := CallNextHookEx(0, nCode, wParam, lParam); end;

angelgekko · 2003-11-12

论坛上有，以下转载，作者不详！ =============================================================================== function LowLevelKeyboardProc(nCode:integer;WParam:WPARAM;LParam:LPARAM):LRESULT;stdcall;   var     fEatKeystroke:BOOL;     p

KBDLLHOOKSTRUCT;     begin     result:=0;     fEatKeystroke := false;     p:=PKBDLLHOOKSTRUCT(lparam);     if (ncode=HC_ACTION) then     begin     case wparam of     WM_KEYDOWN,     WM_SYSKEYDOWN,     WM_KEYUP,     WM_SYSKEYUP:     featkeystroke :=(p.vkcode = VK_Lwin) or (p.vkcode = VK_Rwin)or (p.vkcode = VK_apps);     end;     end;     if featkeystroke = true then     result:=1;     if ncode <> 0 then     result := callnexthookex(0,ncode,wparam,lparam);     end; procedure form1.lock; const   wh_keyboard_ll = 13; begin   hhklowlevelkybd := setwindowshookexw(wh_keyboard_ll,LowlevelKeyboardproc,hinstance,0); end; 锁住左右win键和application键 用的是低级键盘hook

fz97535 · 2003-11-13

AAAAAAAAAAAAAAAAAAAAAAAAA

NetBird · 2003-11-14

上面的代码我试了，都不行，还有没有人知道？帮帮忙啊

app2001 · 2003-11-14

那你都不想看看我的例程，我也没办法呀  ：（

yu_ting · 2003-11-14

Form 的 OnkeyDown 事件.

NetBird · 2003-11-14

to app2001,我的邮件是guigangli@sohu.com，如果调试成功，300分全部奉上，谢谢

redleaf_wgm · 2003-11-14

用钩子！

app2001 · 2003-11-14

发给你了

NetBird · 2003-11-15

to app2001: 到现在还没有收到，请再发一次。 这个问题应该不难，为什么这么少的人知道？

app2001 · 2003-11-15

你再给一个EMAIL吧，我发到这来，被退回来了

NetBird · 2003-11-15

to app2001:   天哪，费了好大的劲重新申请了一个，原来的那个确实接受不了了。   新的是：look_here@163.com   急切盼望中。。。。。

app2001 · 2003-11-15

发过去了

win2000下如何屏蔽win+D键，高手请进，吐血300分，谢绝拷贝论坛老帖子灌水 (300分)

NetBird

Unregistered / Unconfirmed

fsse4000

Unregistered / Unconfirmed

NetBird

Unregistered / Unconfirmed

china520

Unregistered / Unconfirmed

app2001

Unregistered / Unconfirmed

archonwang

Unregistered / Unconfirmed

archonwang

Unregistered / Unconfirmed

mystudy

Unregistered / Unconfirmed

angelgekko

Unregistered / Unconfirmed

fz97535

Unregistered / Unconfirmed

NetBird

Unregistered / Unconfirmed

app2001

Unregistered / Unconfirmed

yu_ting

Unregistered / Unconfirmed

NetBird

Unregistered / Unconfirmed

redleaf_wgm

Unregistered / Unconfirmed

app2001

Unregistered / Unconfirmed

NetBird

Unregistered / Unconfirmed

app2001

Unregistered / Unconfirmed

NetBird

Unregistered / Unconfirmed

app2001

Unregistered / Unconfirmed

Similar threads