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

[helper999999]

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

Пример:

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

[ResourceSpace]

GetKeyState()

[helper999999]

нет просто я думал можно ли как нибудь переделать вот этот код, под asm но чтобы его можно было вставить в delphi.

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

[ResourceSpace]

Нафига? Вставляйте в Делфи код на Делфи, и не морочьте никому голову.

З.Ы. Кстати,

• во-первых корректнее не "GetKeyState($10)<0", а "(GetKeyState($10) And $8000)>0" (а лучше вообще вынести в константу "Const SHIFTED = $8000;");
• во-вторых вместо «магического числа» "$10" корректнее писать VK_SHIFT;
• в-третьих как верно заметил type_Oleg - "IF" тут явно лишнее;

[type_Oleg]

Я не понимаю, зачем так

if GetKeyState($10) < 0 then Result := True
    else Result := False;

Когда можно так

Result :=GetKeyState($10) < 0;