Почему так получается?

[Illusiony]

Собственно реализовал алгоритм антизалипания ЛКМ и ПКМ. То есть чтобы при зажатии ЛКМ или ПКМ это вызывало одно действие, а не куча действий сразу. Реализовал так:

Глобальные переменные: 
var
  naj,otj, naj_R,otj_R,otj_ESC,naj_ESC:BOOL;// сохранения в переменных состояния нажатия ЛКМ отжата или нажата.
При создании формы: 
naj:=False;
  otj:=True;
  naj_R:=False;
  otj_R:=True;   
  naj_ESC:=False;
  otj_ESC:=True;

В таймере на c интервалом 30:

W_l:=GetAsyncKeyState(VK_LBUTTON);// определения параметров состояния кнопок мыши
W_R:=GetAsyncKeyState(VK_RBUTTON);//
W_ESC:=GetAsyncKeyState(vk_f1);// 

 if (( W_ESC = $8001)or(W_R = $8001)or( W_l = $8001)) then  begin

         if ( (otj=True)or(otj_R=True)or(otj_ESC=True))then begin 
          //// действия
          end;
     if (W_l = $8001) then begin
     naj:=True;// переменную нажата в true
     otj:=False;// переменную отжата в false
     end;
     if (W_R = $8001) then begin
     naj_R:=True;// переменную нажата в true
     otj_R:=False;// переменную отжата в false
     end;
     if (W_ESC = $8001) then begin
     naj_ESC:=True;// переменную нажата в true
     otj_ESC:=False;// переменную отжата в false
     end;
end

if (W_l = $8001) then begin
naj:=False;// переменную нажата в true
otj:=True;// переменную отжата в false
end;
if (W_R = $8001) then begin
naj_R:=False;// переменную нажата в true
otj_R:=True;// переменную отжата в false
end;
if (W_ESC = $8001) then begin
 naj_ESC:=False;// переменную нажата в true
otj_ESC:=True;// переменную отжата в false
end;

Я понимаю что код очень избыточный, не судите строго.

Здесь я одновременно с ЛКМ и ПКМ еще попытался тоже самое сделать с клавишей f1 клавиатуры. Так вот с ЛКМ и ПКМ все нормально, а с f1 не работает, происходит многократное повторение действия.


Т. е . если у меня нету какой то ошибки то попросту функция GetAsyncKeyState(vk_f1) отличается от GetAsyncKeyState(VK_LBUTTON) и GetAsyncKeyState(VK_RBUTTON)

В чем подвох?

[Пепел Феникса]

в MSDN советуют не полагаться на значение первого бита, он только для совместимости.

ваше приложение активно хоть в момент теста?

[Illusiony]

Сообщение от Пепел Феникса

в MSDN советуют не полагаться на значение первого бита, он только для совместимости.

ваше приложение активно хоть в момент теста?

В смысле? у меня работают ЛКМ и ПКМ так, а f1 нет. Я отслеживаю клики над другим приложением ( не Delphi). Соответственно окно того приложения и активно.

[Пепел Феникса]

залогируйте значение результата для клавиши, похоже мышь работает всегда, но согласно MSDN, она не годится вне своего приложения:
https://msdn.microsoft.com/ru-ru/lib...or=-2147217396

The return value is zero for the following cases:
The current desktop is not the active desktop
The foreground thread belongs to another process and the desktop does not allow the hook or the journal record.

что объясняет поведение пары игр впрочем.

для перехвата есть иные методы(и LowLevel хук не требует админских прав и не требует DLL)

[Illusiony]

Пепел Феникса, возможно я не так высказался:

В смысле? у меня работают ЛКМ и ПКМ так, а f1 нет.

Здесь я имел ввиду как и в предыдущем сообщении что f1 многократно посылает действия в отличие от однократных ЛКМ и ПКМ при нажатии и удержании.

В общем решил проблему довольно просто, но и некрасиво. Однако мне сгодится:

В общем алгоритм примерно такой:
- имеем два таймера с низким интервалом и запущены оба сразу:

procedure TForm1.tmr1Timer(Sender: TObject);
begin
if GetAsyncKeyState(VK_LBUTTON)<>0 then begin 
tmr1.Enabled:=False;
mmo1.Lines.Add('LBUTTON');// необходимые действия при нажатии ЛКМ
end;
if GetAsyncKeyState(VK_RBUTTON)<>0 then begin
mmo1.Lines.Add('RBUTTON');// необходимые действия при нажатии ПКМ
end;
end;

procedure TForm1.tmr2Timer(Sender: TObject);
begin
if GetAsyncKeyState(VK_LBUTTON)or GetAsyncKeyState(VK_RBUTTON)=0 then begin //
tmr1.Enabled:=True;
end;
end;

Здесь добавить еще

GetAsyncKeyState(vk_f1)

и все получается как надо.

[Пепел Феникса]

вы имеете в виду при удержании?
так ведь логично

[Illusiony]

Сообщение от Пепел Феникса

вы имеете в виду при удержании?
так ведь логично

Да, именно.