WinAPI: GetKeyNameText - 根據(jù)鍵盤消息獲取按鍵名稱

本例效果圖:

---

unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs;type  TForm1 = class(TForm)    procedure FormCreate(Sender: TObject);    procedure MyMsg(var msg: TWMKeyDown); message WM_KEYDOWN;  end;var  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);begin  Canvas.Font.Size := 24;  Canvas.Font.Style := [fsBold];  Canvas.Font.Color := clRed;  Canvas.Brush.Color := clWhite;end;procedure TForm1.MyMsg(var msg: TWMKeyDown);var  buf: array[0..31] of Char;  rect: TRect;  str: string;begin  {獲取}  GetKeyNameText(msg.KeyData, buf, Length(buf));  {畫出來}  str := buf;  rect := ClientRect;  Canvas.FillRect(rect);  Canvas.TextRect(rect, str, [tfSingleLine, tfCenter, tfVerticalCenter]);  inherited;end;end.