[helper999999]

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

Оффтоп:
Может быть и правда, как обычно, простое непонимание заданного вопроса здесь наблюдается с моей стороны ждём прояснения ситуации с позиции автора

А если конкретная клавиша нужна, то тогда вот компиляция из всего вышесказанного на примере наблюдения за состоянием Shift

Код:

function ShiftDown : boolean;
var
State : TKeyboardState;
begin
 GetKeyboardState(State);
 Result:= ((State[VK_SHIFT] and 128) <> 0);
 // или
 // Result:= (GetKeyState(VK_SHIFT) <> 0);
 // или
 // Result:= (GetAsyncKeyState(VK_SHIFT) <> 0);
end;

я делал так,

Код:

function downbutton : BOOLEAN;
begin
  if GetKeyState($10) < 0 then Result := True
    else Result := False;
end;

вот и подумал можно ли тоже самое реализовать только со вставкой asm