全屏程序的系统功能屏蔽处理

全屏程序的系统功能屏蔽处理

作者：彭学周（Favory.Peng）

      

    我们在编写全屏应用程序时有时不希望受到一些系统功能的影响，例如：左右的“WIN键”，“Ctrl+ESC”，“Atl+F 4 ” ，任务栏，桌面菜单以及桌面右键菜单等等；因此我们需要通过代码屏蔽这些功能；

本文代码编辑环境： Delphi 7.0

所涉及到的技术：键盘HOOK，系统窗口查找与隐藏，消息过滤

 

1、屏蔽和开启任务栏和系统桌面以及桌面右键菜单

procedure ShowTrayBarAndDesktop(const YesNo:boolean);

  var

    h,wndHandle:THandle;

    OldValue:Longbool;

  begin

    h:=FindWindow('ProgMan',nil);

    h:=GetWindow(h,GW_CHILD);

    wndHandle:=FindWindow('Shell_TrayWnd',nil);

    if  (YesNo=True)  then

    begin  //显示

       ShowWindow(h,SW_SHOW);

       ShowWindow(wndHandle,SW_SHOW);

       SystemParametersInfo(Spi_screensaverrunning,0,@OldValue,0); //开启按键

    end

    else begin //隐藏

       ShowWindow(h,SW_HIDE);

       ShowWindow(wndHandle,SW_HIDE);

       SystemParametersInfo(Spi_screensaverrunning,1,@OldValue,0); //屏蔽按键

    end;       

  end;

关键函数：FindWindow，GetWindow，ShowWindow。

 

2、屏蔽按键“Atl+F 4 ” ，此处可以不必使用HOOK技术，直接过滤消息就可以实现

编写消息响应函数相同参数的过程：

procedure Tinitializing.AppMessage(var Msg:TMsg;var Handled:Boolean);

begin

  Handled:=False;

  case Msg.message of

  WM_SYSKEYDOWN:

    if (Msg.wParam=VK_F4) then

      Handled:=True;

  end;

end;

在窗口创建事件中加入：

Application.OnMessage:=AppMessage;

 

3、屏蔽“WIN键”，“Ctrl+ESC”，“ALT+TAB”系统功能按钮，利用键盘HOOK处理

定义数据结构：

type

  PKBDLLHOOKSTRUCT   =   ^TKBDLLHOOKSTRUCT;

  TKBDLLHOOKSTRUCT   =   record

      vkCode,

      scanCode,

      flags,

      time:          DWORD;

      dwExtraInfo:   Pointer;

  end;

const

  WH_KEYBOARD_ll = 13;

 

定义键盘HOOK处理函数：

function LowLevelKeyBoardPro(nCode:integer;WParam:WPARAM;LParam:LPARAM):LRESULT;stdcall;

var

  fEatKeystroke:BOOL;

  p:PKBDLLHOOKSTRUCT;

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)or(p.vkcode=VK_ESCAPE)or(p.vkcode=VK_TAB);

    end;

  end;

  if   featkeystroke=true then

       result:=1;

  if   ncode <>0 then

       result := callnexthookex(0,ncode,wparam,lparam);

end;

在窗口创建事件中加入：

var

  hhklowlevelkybd:HHOOK;

begin

       hhklowlevelkybd := SetWindowsHookEx(WH_KEYBOARD_ll,LowLevelKeyBoardPro,HInstance,0);

end;

 

4、让程序随Windows系统启动

Uses 中加入： Registry;

在窗口创建事件中加入：

var

  reg:TRegistry;

begin

  reg := TRegistry.Create;

  try

    reg.RootKey := HKEY_LOCAL_MACHINE;

    if reg.OpenKey('/Software/Microsoft/Windows/CurrentVersion/Run',False) then

    begin

      reg.WriteString('FavoryAPP','"' + ParamStr(0) + '"');

      reg.CloseKey;

    end; 

  finally

    reg.Free;

  end;

end;

 

对于全屏程序的系统功能屏蔽我就提出这几点，希望对大家有所帮助！同时也希望大家能积极补充！与大家分享你的经验！

//=================================================

作者：Favory.Peng(彭学周)  2008-10-09

本文到此结束，有不足之处，希望各位高手指教，谢谢！