以最少的资源耗用显示系统键状态

2016-02-19 12:48 6 1 收藏

给自己一点时间接受自己,爱自己,趁着下午茶的时间来学习图老师推荐的以最少的资源耗用显示系统键状态,过去的都会过去,迎接崭新的开始,释放更美好的自己。

【 tulaoshi.com - 编程语言 】

  有不少人讨论过显示系统键(CapsLock、NumLock、Insert、ScrollLock等)状态的问题,用得最多的方法是添加一个Timer,在事件中刷新系统键状态显示;另一个方法是做一个系统HOOK,在HOOK中刷新显示。这两种方式都会严重占用系统资源,第一种方法还存在延迟的问题。现在介绍第三种方法:

  键盘按钮被按下时系统会发送WM_KEYDOWN、WM_CHAR、WM_KEYUP消息给当前的激活应用程序,消息的wParam是键盘扫描码,这样我们就可以知道按键是否被按下或释放,在这里面刷新按键状态显示是最佳的时候。不过这里还有一个问题,应用程序在非激活状态时是收不到以上消息的,因此需要在程序被激活时检测并刷新状态显示。

  下面给出实现代码:

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/bianchengyuyan/)

  unit Unit1;

  interface

  uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, ComCtrls;

  type
    TForm1 = class(TForm)
      StatusBar1: TStatusBar;
      procedure FormCreate(Sender: TObject);
    private
      procedure AppActivate(Sender: TObject);
      procedure AppOnMsg(var Msg: tagMSG; var Handled: Boolean);
      procedure ShowKeyState; //显示系统按键状态

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/bianchengyuyan/)

    end;

  var
    Form1: TForm1;

  implementation

  {$R *.dfm}

  procedure TForm1.FormCreate(Sender: TObject);
  begin
      //显示系统键状态,指定事件代理
  
    ShowKeyState;
      Application.OnMessage := AppOnMsg;
      Application.OnActivate := AppActivate;
  end;

  procedure TForm1.AppActivate(Sender: TObject);
  begin
      ShowKeyState;   //应用程序被激活时刷新系统键状态
  
end;

  procedure TForm1.ShowKeyState;
  begin
      if (GetKeyState(145) and 1)0 then
          StatusBar1.Panels.Items[6].Text := 'SCOR'
      else
          StatusBar1.Panels.Items[6].Text := '';
      if (GetKeyState(144) and 1)0 then
          StatusBar1.Panels.Items[5].Text := 'NUM'
      else
          StatusBar1.Panels.Items[5].Text := '';
      if (GetKeyState(45) and 1)0 then
          StatusBar1.Panels.Items[4].Text := '插入'
      else
          StatusBar1.Panels.Items[4].Text := '覆盖';
      if (GetKeyState(20) and 1)0 then
          StatusBar1.Panels.Items[3].Text := '大写'
      else
          StatusBar1.Panels.Items[3].Text := '小写';
  end;

  procedure TForm1.AppOnMsg(var Msg: tagMSG; var Handled: Boolean);
  begin
      if Msg.message = 256 then begin //WM_KEYDOWN
  
        case Msg.wParam of  //根据按键切换显示
  
            145:  //Scorll
  
                if (GetKeyState(145) and 1)0 then
                      StatusBar1.Panels.Items[6].Text := 'SCOR'
                  else
                      StatusBar1.Panels.Items[6].Text := '';
              144:   //Num
  
                if (GetKeyState(144) and 1)0 then
                      StatusBar1.Panels.Items[5].Text := 'NUM'
                  else
                      StatusBar1.Panels.Items[5].Text := '';
              45:   //Ins
  
                if (GetKeyState(45) and 1)0 then
                      StatusBar1.Panels.Items[4].Text := '插入'
                  else
                      StatusBar1.Panels.Items[4].Text := '覆盖';
              20:   //Caps
  
                if (GetKeyState(20) and 1)0 then
                      StatusBar1.Panels.Items[3].Text := '大写'
                  else
                      StatusBar1.Panels.Items[3].Text := '小写';
          end;
      end;

      Handled := false;   //让系统继续处理消息
  
end;

  end.
  

来源:http://www.tulaoshi.com/n/20160219/1602014.html

延伸阅读
win7系统设置显示器黑屏但不是进入休眠状态的方法   1、正常的进入控制面板即可,通过开始页面或者通过计算机我的电脑中的打开控制面板等都可以打开; 2、win7有些不习惯的是找起来有点难,电源选项属于系统与安全类别; 3、在这里可以看到电源选项或者直接更改计算机睡眠时间。这里就点击进入电源选项; 4、进...
标签: excel
解决在Excel显示以0开头的数据   方法一:将输入法调整为英文状态 在需要输入以0开头数据的单元格中输入单引号',再输入数据即可!此方法相对麻烦! 方法二:设置单元格数字格式 如果我们A列都要输入数据,并且任意单元格都可能出现以0开头的数字,这样每个都输入单引号比较麻烦,此时就需要设置单元格格式,将...
显示windows7系统3D效果的快捷键是什么?   传说中绚丽的3D桌面展示效果,是在使用Win7电脑时,同时按下win+tab键的时候,就能马上欣赏到独特的3D桌面了,然后按住WIN不放松开TAB就可以用鼠标选择窗口文件了(打开多个文件或者应用窗口) 。 如果想要3D桌面定格显示在Windows7电脑屏幕上,那我们可以再加上一个按键来实现,同...
标签: 电脑入门
win8的改变真的是太大了,它不仅用开始屏幕取代了原来开始菜单的功能,预设了众多程序和应用,让用户直接点击屏幕上应用程序就能快速启动和使用。 另外,win8在资源管理器方面,也有诸多特别的设计。下面主要介绍学习下win8资源管理器中功能区快捷键的显示和应用技巧。 首先,打开计算机,你就可以看到功能区中,有文件、计算机、查看三个选...
标签: 电脑入门
QQ不想让好友看见自己的QQ地理位置的方法如下: 若使用的是QQ2008版本的,可以通过点击QQ的菜单-设置-个人设置-状态显示,去掉显示我的地理位置前面的√即可。 若使用的是最新版本,可以先点击系统设置-基本设置-共享与资讯-我的地理位置及天气,不勾选该项即可。 注 :更多精彩教程请关注QQ技巧 栏目

经验教程

445

收藏

78
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部