unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls;
type
TForm1 = class(TForm)
Image1: TImage;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
function KeyboardHookProc(Code: Integer; WordParam: Word; LongParam: LongInt): LongInt; stdcall;
var
Form1: TForm1;
KBHook: HHook;
cx, cy: integer;
implementation
{$R *.dfm}
function KeyboardHookProc(Code: Integer; WordParam: Word; LongParam: LongInt): LongInt;
begin
case WordParam of
vk_Space:
with Form1.Image1.Canvas do
begin
Brush.Color := clWhite;
Brush.Style := bsSolid;
Fillrect(Form1.Image1.ClientRect);
end;
vk_Right: cx := cx + 1;
vk_Left: cx := cx - 1;
vk_Up: cy := cy - 1;
vk_Down: cy := cy + 1;
end;
if cx < 2 then cx := Form1.Image1.ClientWidth - 2;
if cx > Form1.Image1.ClientWidth - 2 then cx := 2;
if cy < 2 then cy := Form1.Image1.ClientHeight - 2;
if cy > Form1.Image1.ClientHeight - 2 then cy := 2;
with Form1.Image1.Canvas do
begin
Pen.Color := clRed;
Brush.Color := clYellow;
TextOut(0,0,Format('%d, %d',[cx,cy]));
Rectangle(cx - 2, cy - 2, cx + 2, cy + 2);
end;
Result := 0;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
KBHook := SetWindowsHookEx(WH_KEYBOARD, @KeyboardHookProc, HInstance, GetCurrentThreadId());
cx := Image1.ClientWidth div 2;
cy := Image1.ClientHeight div 2;
Image1.Canvas.PenPos := Point(cx, cy);
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
UnHookWindowsHookEx(KBHook);
end;
end. |
|
