Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.04.25;
Скачать: CL | DM;

Вниз

GetKeyboardState   Найти похожие ветки 

 
Vlad25   (2004-02-28 15:04) [0]

Как с помощью GetKeyboardState узнать, какая клавиша нажата? Точнее, как разобраться в массиве символов, который выдается этой процедурой?


 
MBo ©   (2004-02-28 15:14) [1]

В хелпе все есть


 
Gero ©   (2004-02-28 21:31) [2]

if GetKeyState(VK_SomeKey) and $8000 = $8000


 
VMcL ©   (2004-02-29 13:48) [3]

>>Gero ©  (28.02.04 21:31) [2]

С точки зрения оптимизации лучше:
if GetKeyState(VK_SomeKey) and $8000 <> 0
))


 
VMcL ©   (2004-02-29 13:51) [4]

Кстати, если именно по сабджу:

var
 KS: TKeyboardState;
begin
 FillChar(KS, SizeOf(KS), 0);
 GetKeyboardState(KS);
 if KS[VK_CONTROL] and $80 <> 0 then ...
end;


 
Gero ©   (2004-02-29 13:52) [5]

> VMcL ©   (29.02.04 13:48) [3]

Да, теперь программа станет работать намного быстрее :)



Страницы: 1 вся ветка

Текущий архив: 2004.04.25;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.03 c
8-1073681437
Ракал
2004-01-09 23:50
2004.04.25
Как работать с Direct Sound?


3-1080718832
Mary
2004-03-31 11:40
2004.04.25
Базы IB


3-1080805412
LAndreyV
2004-04-01 11:43
2004.04.25
связка SELECT FROM WHERE ORDER BY выдает ошибку!


6-1073812488
Magician
2004-01-11 12:14
2004.04.25
Как в Delphi7 вернуть TServerSocket&amp;TCliensocket


3-1080201658
Лысый
2004-03-25 11:00
2004.04.25
Нужна идея!