VPF::Левый/Правый SHIFT - Форум программистов

CHERRY

Дата 17.6.2002, 12:58 (ссылка)

(нет голосов)

Загрузка ...

Прохожий

Профиль
Группа: Участник
Сообщений: 150
Регистрация: 17.6.2002
Где: Одесса

Репутация: нет
Всего: -2

Как отличить нажат правый или левый 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.
Хорошо бы вставочку на Assemblere.

--------------------

Трясу надежды ветвь, но где желанный плод?

Vit

Дата 17.6.2002, 14:19 (ссылка)

(нет голосов)

Загрузка ...

Vitaly Nevzorov

Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 48
Всего: 207

Кому-то я уже на форуме отвечал... В лом искать...

--------------------

With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru

Baa

Дата 17.6.2002, 15:20 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 2639
Регистрация: 12.4.2002
Где: Москва

Репутация: нет
Всего: 12

В 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');

--------------------

"Duty is everything; the greatest of joys, the deepest of sorrows" Aribeth de Tylmarande

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »