Delphi - база знаний


Как отличить нажат правый или левый SHIFT?


Как отличить нажат правый или левый SHIFT?





if ((Word(GetKeyState(VK_LSHIFT)) and $8000) <> 0) then
  begin
  end;

if ((Word(GetKeyState(VK_RSHIFT)) and $8000) <> 0) then
  begin
  end;

работает под Win NT/2000, но не работает под Win95.

Автор ответа: CHERRY
Взято с Vingrad.ru



В 95 катит следующее:

RSHIFT = 36h
LSHIFT = 2Ah
asm
in al, 60h  
cmp al, 36h  
jne @@exit  
mov tt,1  
@@exit:  
end;
if tt = 1 then ShowMessage ('Right Shift'); 

Автор ответа: Baa
Взято с Vingrad.ru





Начало  Назад  Вперед