[helper999999]

Добрый вечер. Подскажите пожалуйста как определить состояние клавиши нажата ли или нет. Да пример желательно с помощью вставки asm. Заранее благодарю.

Пример:

Код:

1 2 3 4 5 6

function down: Boolean; begin asm //.... end; end;

[Bargest]

Код:

1 2 3

SHORT WINAPI GetKeyState(   _In_ int nVirtKey );

[Alegun]

Нажата это кажись прерывание 60h?

[Bargest]

Нет в винде никаких программных прерываний. Вернее они есть, но их крайне мало, и они не совпадают с досовскими, потому что это крайне убогий и ущербный способ предоставления сервисов ОС.

[helper999999]

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

Нажата это кажись прерывание 60h?

а как полностью выполнить проверку? чтобы было либо true либо false.

[Alegun]

Это работает лишь в очень старых версиях Windows, теперь такое блокируется на уровне драйверной "обвязки" ядра, другими словами GetKeyState самый подходящий вариант для определения состояния конкретной клавиши, иначе есть ещё несколько способов, но они тоже за здоровый образ жизни без "асмы", напр.

Код:

1 2 3 4 5 6 7

function down: Boolean; var  i: integer; begin  Result:= false;  for i := 0 to 255 do if GetAsyncKeyState(i) <> 0 then Result:= true; end;

мышиные кнопаря тоже отслеживаются

[Bargest]

Зачем же такой гемор с циклом по всем кнопкам, когда есть GetKeyboardState если нужно несколько клавиш?

[helper999999]

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

Зачем же такой гемор с циклом по всем кнопкам, когда есть GetKeyboardState если нужно несколько клавиш?

а как именно?

[Alegun]

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

Зачем же такой гемор с циклом по всем кнопкам, когда есть GetKeyboardState если нужно несколько клавиш?

А где вы несколько клавиш-то увидели увжмклг, когда топикстартеру явно нужен весь "диапазон" клавиш? Понятно, что передав вышеприведённой вами функции структуру типа TKeyboardState на заполнение легче отследить отдельные кнопки, а вот состояние по всем одновременно всёравно придётся отслеживать циклом

[Bargest]

Таки ТС нужна конкретная кнопка, а не диапазон:

состояние клавиши нажата ли или нет

просто "функция", точнее пустые операторные скобки с заголовком, предоставленные ТС-ом в первом посте, не учитывают прием конкретной клавиши в аргументе. Вангую, что имеется в виду проверка всегда одной и той же клавиши, жестко заданной в коде. Для этого нужно просто вызвать один раз getkeystate/getasynckeystate с нужным номером кнопки,
и я не понимаю, почему ТС до сих пор не вбил эти два слова в гугле и не получил ответ на свой вопрос.
Касаемо цикла:

состояние по всем одновременно всёравно придётся отслеживать циклом

GetKeyboardState заполнит весь массив сразу за один вызов. Только цикл с проверкой на ноль байтиков из массива гораздо менее нагрузочен, чем 256 вызовов API функции, которая, вероятно, еще и к дровам обращается каждый раз. В любом случае, это ТС не нужно.

[Alegun]

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

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

Код:

1 2 3 4 5 6 7 8 9 10 11

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;

[helper999999]

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

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

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

Код:

я делал так,

Код:

1 2 3 4 5

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

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

[Bargest]

if совершенно лишний, проще result := GetKeyState(16) <> 0.

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

Скомпилируй, дизассемблируй и вставь асм-код. Только зачем?

[Alegun]

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

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

К сожалению, это теперь невозможно, мнгувж деятели из мелкомяконьких полностью блокировали такую возможность, приветствуется только обращение к winAPI, редиски - разработчики, про "астму" можете забыть, а может быть, это и к лучшему, багов в этой операционке и так предостаточно