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

Вниз

Проблема с определением нажат ли Shift в Windows 98   Найти похожие ветки 

 
Gigant   (2003-12-26 01:14) [0]

У меня есть две функции, одна из которых определяет прижат ли shift в данный момент, а другая включён ли CapsLock.

function IsShiftPressed : Boolean;
begin
Result:=0<>(GetKeyState(VK_SHIFT) and 128);
end;

function IsCapsLockOn : Boolean;
begin
Result:=0<>(GetKeyState(VK_CAPITAL) and $01);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if IsShiftPressed then label1.caption:="shift"
else label1.caption:="not shift";
if IsCapsLockOn then label2.caption:="caps"
else label2.caption:="not caps";
end;

В Windows ХР они работаеют нормально, но в 98 если моё приложение активно, то тоже всё нормально, а если моё приложение не активно и я нажимаю шифт (включаю капс лок) в другом приложении, то эти функции не реагируют. С чем это связано и как от этого избавиться?


 
tesseract ©   (2003-12-26 09:52) [1]

всё правильно в 2000/XP программа не уничтожает сообщения клавиатурные адресованные другой программе а WIN98 это благополучно делает, выход - пиши хук пропускающий через себя всё, и выбирай, что нужно


 
Gigant   (2003-12-26 15:50) [2]

Всё ясно, спасибо, вот ведь фигня!



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

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

Наверх




Память: 0.47 MB
Время: 0.023 c
14-43755
Undert
2004-02-19 17:16
2004.03.14
Как быть ..


6-43708
Hkr
2004-01-08 03:57
2004.03.14
TraceRoute


3-43284
iVovs
2004-02-12 10:34
2004.03.14
Хранение файлов в Paradox


7-43898
ikivio
2003-12-27 12:05
2004.03.14
Клавиша на клавиатуре


1-43632
Creator
2004-03-02 13:36
2004.03.14
Сервисы