[nixon232]

Есть такая проблема, не уверен как ее лучше решить.
Есть ф-я определения зажатия контрола

Код:

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

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

Само по себе все хорошо, но эта проверка происходит в зацикленном потоке и если на время зажать контрол, то оно как бы стакает проверки и когда отпускаешь получается, что долго идет проверка старого состояния. то есть если функция приняла False, То True она примет не когда контрол опушен. как тогда лучше реализовать проверку зажатия CTRL?

Код:

If true then
pause
else 
work