[Alegun]

Сообщение от nixon232

Код:

var KeyState: Word;
begin
   KeyState := GetKeyState(VK_CONTROL);

  if KeyState and 1 = 1 then
    Result:= False
  else
    Result:=True;
end;

А не проще одной строкой

Код:

Result:= Odd(GetKeyState(VK_CONTROL));