以最少的資源耗用，顯示系統鍵狀態

　　有不少人討論過顯示系統鍵（CapsLock、NUMLock、Insert、ScrollLock等）狀態的問題，用得最多的方法是添加一個Timer，在事件中刷新系統鍵狀態顯示；另一個方法是做一個系統HOOK，在HOOK中刷新顯示。這兩種方式都會嚴重占用系統資源，第一種方法還存在延遲的問題。現在介紹第三種方法：

　　鍵盤按鈕被按下時系統會發送WM_KEYDOWN、WM_CHAR、WM_KEYUP消息給當前的激活應用程序，消息的wParam是鍵盤掃描碼，這樣我們就可以知道按鍵是否被按下或釋放，在這裡面刷新按鍵狀態顯示是最佳的時候。不過這裡還有一個問題，應用程序在非激活狀態時是收不到以上消息的，因此需要在程序被激活時檢測並刷新狀態顯示。

　　下面給出實現代碼：

　　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; //顯示系統按鍵狀態

　　  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;