Цитата:
Сообщение от nixon232
...получается, что он реагирует не на ЗАЖАТИЕ,а на НАЖАТИЕ...
|
Тогда и проверять нужно "НАЖАТИЕ" а не "ЗАЖАТИЕ"
Код:
function CtrlDown : Boolean;
var
State : TKeyboardState;
begin
GetKeyboardState(State);
Result := ((State[vk_Control] and 128) <> 0);
end;