Как отличить нажат правый или левый 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
