🚀 go-pugleaf

Remy what do you think about this keyboard hook...

// in application unit:
/*******************************************************/

TfrmMainUnit *frmMainUnit;

extern "C" __declspec(dllexport) __stdcall void SetHook(void);
extern "C" __declspec(dllexport) __stdcall void RemoveHook(void);
extern "C" __declspec(dllexport) __stdcall DWORD CheckKey(int, WORD,LONG);

__fastcall TfrmMainUnit::TfrmMainUnit(TComponent* Owner) : TForm(Owner)
{
   SetHook();
}

void __fastcall TfrmMainUnit::FormDestroy(TObject *Sender)
{
   RemoveHook();
}

void __fastcall TfrmMainUnit::KeyHook(TMessage &Message)
{
  char Key[80];
  GetKeyNameText(Message.LParam, Key, 80);
  ListBox1->Items->Add(Key);
}

// in application header:

private:
          MESSAGE void __fastcall KeyHook(TMessage &Message);
          BEGIN_MESSAGE_MAP
             MESSAGE_HANDLER(WM_KEYHOOK, TMessage, KeyHook);
          END_MESSAGE_MAP(TForm);
/*******************************************************/


// in keyboard - dll unit:
/*******************************************************/
#include <vcl.h>
#include <windows.h>
#pragma hdrstop

#define WM_KEYHOOK WM_USER+100
HHOOK ghhookKB;
HINSTANCE ghInst;
#pragma argsused

int WINAPI DllEntryPoint(HINSTANCE hinst, unsigned long reason, void*)
{
   ghInst = hinst;
   return (1);
}

extern "C" __declspec(dllexport) __stdcall void SetHook(void);
extern "C" __declspec(dllexport) __stdcall void RemoveHook(void);
extern "C" __declspec(dllexport) __stdcall DWORD CheckKey(int, WORD,LONG);

void __stdcall SetHook(void)
{
  HOOKPROC lpfnHookProc = NULL;
  lpfnHookProc = GetProcAddress(GetModuleHandle("keydll.dll"),"CheckKey");
  ghhookKB = SetWindowsHookEx(WH_KEYBOARD, lpfnHookProc, ghInst, NULL);
}

void __stdcall RemoveHook(void)
{
  UnhookWindowsHookEx(ghhookKB);
}

DWORD __stdcall CheckKey(int nCode, WORD wParam, LONG lParam)
{
  HWND ghAppWnd = FindWindow(0, "TKeyHookForm");
  if((nCode < 0) || nCode == HC_NOREMOVE)
    return CallNextHookEx(ghhookKB, nCode, wParam, lParam);

  // Skip if it's a repeat
  if(lParam & 0x40000000) return CallNextHookEx(ghhookKB, nCode, wParam,
lParam);

  // Send key information to the main window
  SendMessage(ghAppWnd, WM_KEYHOOK, 0, lParam);

  return CallNextHookEx(ghhookKB, nCode, wParam, lParam);
}
/*******************************************************/

it's just a simple hook to display the pressed keys..is there something
that could be optimized..? what do you think..?


Oren