Нужно определить нажатие клавиши в твоей программе или в системе?
В приложении
Code
procedure TForm1.FormCreate(Sender: TObject);
begin
Self.KeyPreview := true;
i := 0;
end;
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
Inc(i);
Caption := IntToStr(i);
end;
в системе что то вроде этого
Code
program Project1;
uses
windows;
var
i1,i2: integer;
begin
i1:= GetKeyState(1);
repeat
i2:=GetKeyState(1);
until
i1<>i2;
end.
