[moo2k]

Код:

var KS: TKeyboardState; 
begin
GetKeyboardState(KS);
KS[020] := KS[020] XOR 1;
SetKeyboardState(KS); 
end;