[centuriy]

Здравствуйте! Все таки решился использовать dll для хука, только пожалуйста помогите разобраться коде данной функции, не могу его переделать чтоб хук реагировал только при отпускании (KeyUP) клавиши:

Код:

function KeyHookFunc(Code, VirtualKey, KeyStroke: integer): LRESULT; stdcall;
var
  msgl: PEVENTMSG;
begin
  Result:=0;
  if Code=HC_NOREMOVE then Exit;
  Result:=CallNextHookEx(hK,Code,VirtualKey,KeyStroke);
  if Code<0 then Exit;
  if (Code=HC_ACTION) then
  begin
    msgl := Pointer(KeyStroke);     // Без этих двух строчек функция работает
    if msgl.message = WM_KEYUP then // идеальною, но надо чтоб хук реагировал только
    begin                           // на отпускание клавиш. П О М О Г И Т Е !
      if((KeyStroke and (1 shl 30))<>0) then
      if not IsWindow(hA) then
      begin
        hM:=OpenFileMapping(FILE_MAP_WRITE,False,'MyHookMap');
        Hr:=MapViewOfFile(hM,FILE_MAP_WRITE,0,0,0);
        if Hr<>nil then
          hA:=Hr.AppHnd;
      end;
      if ((KeyStroke and (1 shl 30))<>0) then
      begin
        SendMessage(hA, WM_USER+2008, VirtualKey ,  KeyStroke {GetFocus});
      end;
    end;
  end;
end;

[NumLock]

Код:

LRESULT CALLBACK KeyboardProc(
    int code,	// hook code
    WPARAM wParam,	// virtual-key code
    LPARAM lParam 	// keystroke-message information
   );

lParam

Specifies the repeat count, scan code, extended-key flag, context code, previous key-state flag, and transition-state flag. This parameter can be a combination of the following values:

Value Description
0-15 Specifies the repeat count. The value is the number of times the keystroke is repeated as a result of the user's holding down the key.
16-23 Specifies the scan code. The value depends on the original equipment manufacturer (OEM).
24 Specifies whether the key is an extended key, such as a function key or a key on the numeric keypad. The value is 1 if the key is an extended key; otherwise, it is 0.
25-28 Reserved.
29 Specifies the context code. The value is 1 if the ALT key is down; otherwise, it is 0.
30 Specifies the previous key state. The value is 1 if the key is down before the message is sent; it is 0 if the key is up.
31 Specifies the transition state. The value is 0 if the key is being pressed and 1 if it is being released.

[centuriy]

NumLock, спасибо конечно за быстрый ответ, но я уже читал про это... вот только как мне в данной функции реагировать только на отпускание клавиши? Можно примерчик?...

[NumLock]

Код:

if (KeyStroke and $80000000 <> 0) then

[centuriy]

NumLock, Спасибо! вместо условия

Код:

if ((KeyStroke and (1 shl 30))<>0) then

вставил

Код:

if (KeyStroke and $80000000 <> 0) then

и все работает как надо...
ps. я так понял условие

Код:

if ((KeyStroke and (1 shl 30))<>0) then

отвечало за нажатие клавиши (KEY DOWN)??? я прав?

[NumLock]

ты не тот бит проверял, на 1 ошибся:
1 shl 30 = $40000000, а надо $80000000 в маске