使windows键屏蔽

简单解释用到的Api函数：  
  function   SetWindowsHookEx(idHook:   Integer;   lpfn:   TFNHookProc;   hmod:   HINST;   dwThreadId:   DWORD):   HHOOK;   stdcall;  
  功能：设置钩子。如果指定了某个确定的线程就只监视那个线程，即是线程钩子；如果为空，即是监视所有线程的全局钩子。  
  参数：第一个参数是钩子的类型；  
  第二个参数是钩子函数的地址；  
  第三个参数是包含钩子函数的模块句柄；  
  第四个参数指定监视的线程；  
  返回值：  
  如果成功返回所设钩子的句柄，失败返回False。  
   
  function   UnhookWindowsHookEx(hhk:   HHOOK):   BOOL;   stdcall;  
  功能：卸载某个钩子。  
  参数：要卸载的钩子的句柄。    
  返回值：成功为True   失败为False。  
   
  function   GetKeyState(nVirtKey:   Integer):   SHORT;   stdcall;  
  功能：得到键盘上某个键的状态。  
  参数：按键的虚拟键值。  
  返回值：一个16位数，如果按下了，那么返回值的最高位为1即16进制800000，没有按下就   返回0。  
   
  更详细的请看Delphi自带的Win32   SDK手册。  
  不再多说了，说多了就偏离重点了。要是你连钩子函数都不会用可以参考我以前写的一篇文章《学用钩子函数》  
   
  程序如下：  
  还要记得要放两个Button控件到Form1上并设置相应的鼠标单击事件。  
   
  unit   Unit1;  
   
  interface  
   
  uses  
  Windows,   Messages,   SysUtils,   Variants,   Classes,   Graphics,   Controls,   Forms,  
  Dialogs,   StdCtrls;  
   
  type  
  TForm1   =   class(TForm)  
  Button1:   TButton;  
  Button2:   TButton;  
  Label1:   TLabel;  
  procedure   Button1Click(Sender:   TObject);  
  procedure   Button2Click(Sender:   TObject);  
  private  
  {   Private   declarations   }  
  public  
  {   Public   declarations   }  
  end;  
   
  {按键消息的结构，Delphi中也没有，自己定义吧。这也就我为什么说用C写  
  这样的程序更好的原因之一。还必须注意的是这个结构在Windows   NT   4   sp3以上系统  
  中才能使用}  
  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  
  Form1:   TForm1;  
  hhkLowLevelKybd:   HHOOK;  
  implementation  
  {  
  功能：低级键盘钩子的回调函数，在里面过滤消息  
  参数：nCode   是Hook的标志  
  WParam   表示消息的类型  
  LParam   是一个指向我们在上面定义的哪个结构KBDLLHOOKSTRUCT的指针  
  返回值:如果不是0的话windows就把这个消息丢掉，程序就不会再收到这个消息了。  
  }  
  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  
  //拦截按键消息并测试是否是Ctrl+Esc、Alt+Tab、和Alt+Esc功能键。  
  case   wParam   of  
  WM_KEYDOWN,  
  WM_SYSKEYDOWN,  
  WM_KEYUP,  
  WM_SYSKEYUP:  
  fEatKeystroke   :=  
  ((p.vkCode   =   VK_TAB)   and   ((p.flags   and   LLKHF_ALTDOWN)   <>   0))   or  
  ((p.vkCode   =   VK_ESCAPE)   and   ((p.flags   and   LLKHF_ALTDOWN)   <>   0))   or  
  ((p.vkCode   =   VK_ESCAPE)   and   ((GetKeyState(VK_CONTROL)   and   $8000)   <>   0));  
  end;  
  end;  
   
  if   fEatKeystroke   =   True   then  
  Result   :=   1;  
  if   nCode   <>   0   then  
  Result   :=   CallNextHookEx(0,   nCode,   wParam,   lParam);  
   
  end;  
  {$R   *.dfm}  
   
  procedure   TForm1.Button1Click(Sender:   TObject);  
  begin  
  //设置低级键盘钩子  
  if   hhkLowLevelKybd   =   0   then  
  begin  
  hhkLowLevelKybd   :=   SetWindowsHookExW(WH_KEYBOARD_LL,  
  LowLevelKeyboardProc,   Hinstance,   0);  
  if   hhkLowLevelKybd   <>   0   then  
  MessageBox(Handle,   '低级键盘钩子设置成功！',   '提示',   MB_OK)  
  else  
  MessageBox(Handle,   '低级键盘钩子设置失败！',   '提示',   MB_OK);  
  end  
  else  
  MessageBox(Handle,   '低级键盘钩子已设置！',   '提示',   MB_OK);  
  end;  
   
  procedure   TForm1.Button2Click(Sender:   TObject);  
  begin  
  //卸载低级键盘钩子  
  if   hhkLowLevelKybd   <>   0   then  
  if   UnhookWindowsHookEx(hhkLowLevelKybd)   <>   False   then  
  begin  
  MessageBox(Handle,   '低级键盘钩子卸载成功！',   '提示',   MB_OK);  
  hhkLowLevelKybd   :=   0;  
  end  
  else    
  MessageBox(Handle,   '低级键盘钩子卸载失败！',   '提示',   MB_OK)    
  else  
  MessageBox(Handle,   '没有发现低级键盘钩子！',   '提示',   MB_OK);  
  end;  
  procedure   TForm1.FormClose(Sender:   TObject;   var   Action:   TCloseAction);  
  begin  
  //在Form关闭的时候检测，如果没有卸载钩子就卸载之  
  if   hhkLowLevelKybd   <>   0   then  
  UnhookWindowsHookEx(hhkLowLevelKybd);  
  end;  
  end.  
  程序在Delphi6＋Windows2000   sp2中编译并测试通过。

 

 

 

 

 

屏蔽  
  Var  
  Temp:integer;  
  begin  
  SystemParametersInfo(Spi_screensaverrunning,1,@temp,0);  
  end;  
   
  恢复  
  Var  
  Temp:integer;  
  begin  
  SystemParametersInfo(spi_screensaverrunning,0,@temp,0);  
  end;