unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls;
type
TForm1 = class(TForm)
procedure WMKeyDown(var Message: TWMKeyDown); message WM_KEYDOWN;
private
public
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.WMKeyDown(var Message: TWMKeyDown);
var
PBuff: PChar;
begin
PBuff := StrAlloc(MAX_PATH);
try
GetKeyNameText(Message.KeyData, PBuff, MAX_PATH);
Caption := PBuff;
finally
StrDispose(PBuff);
end;
end;
end.