Глобальный хук на клаву

[rem37]

Устанавливаю хук, который отправляет код символа моей программе. Все работает и работает везде.
Код стандартный взял с форума:

function KeyHook(CODE, WParam, LParam: DWORD): DWORD; stdcall;
var
  ServerWnd: THandle;
  ScanCode:integer;
begin
  if CODE = HC_ACTION then
   if ((LParam or (1 shl 30))=LParam) then
    begin
     ServerWnd:=FindWindow(nil,'myprogram');
     GetKeyboardState(KeybrdState);
     ScanCode:=(LParam shr 16)and $FF;
     if ToAscii(WParam,ScanCode,KeybrdState,@Symbol,0)>0 then
      PostMessage(ServerWnd, WM_KEYEVENT, ord(Symbol[0]), LParam)
     else
      PostMessage(ServerWnd, WM_KEYEVENT, 0, LParam);
     end;
  Result := CallNextHookEx(HookHandle, code, WParam, LParam);
end;

procedure SetKeyHook; stdcall; export;
begin
  if HookHandle=0 then
   HookHandle:=SetWindowsHookEx(WH_KEYBOARD, @KeyHook, hInstance, 0);
end;

procedure DelKeyHook; stdcall; export;
begin
  if HookHandle <> 0 then UnhookWindowsHookEx(HookHandle);
   HookHandle:=0;
end;

Но мне нужно чтобы некоторые символы не доходили бы до программы в которой набираеться текст. Т. е. символ должен быть отправлен моей программе, но не должен появиться в окне, где была нажата клавиша. Как это сделать? Спасибо за помощь.

[rpy3uH]

код надо оформлять в тегах CODE

по теме:
в функции KeyHook при получении символа, который надо заблокировать, не вызывай функцию CallNextHookEx и возвращай значение отличное от нуля.

function KeyHook(CODE, WParam, LParam: DWORD): DWORD; stdcall;
var
  ServerWnd: THandle;
  ScanCode:integer;
begin
  if CODE = HC_ACTION then
   if ((LParam or (1 shl 30))=LParam) then
    begin
     ServerWnd:=FindWindow(nil,'myprogram');
     GetKeyboardState(KeybrdState);
     ScanCode:=(LParam shr 16)and $FF;
     if ToAscii(WParam,ScanCode,KeybrdState,@Symbol,0)>0 then
      PostMessage(ServerWnd, WM_KEYEVENT, ord(Symbol[0]), LParam)
     else
      PostMessage(ServerWnd, WM_KEYEVENT, 0, LParam);
     if <если символ надо заблокировать> then
      begin
       result:=1;
       exit;
      end;
     end;  
  Result := CallNextHookEx(HookHandle, code, WParam, LParam);
end;

например так

[MrWinDos]

Можна поставити hook WH_GETMESSAGE і змінювати код клавіші на 0 (у структурі TMsg) при WM_KEYUP чи WM_KEYDOWN. Правда працює лише для віконних програм.

[rem37]

К сожалению не всё так просто. Не вызывать CallNextHookEx нельзя - видимо это нарушает работу хуков некоторых программ. Например в notepad работает, в Microsoft office нет.

WH_GETMESSAGE тоже пробовал - если обнулять структуру TMsg, символ действительно не доходит, но появляеться другая проблема - каждый символ передаёться моей программе несколько раз, например в Microsoft Office 5 paз, в notepad всё ok. Как с этим бороться - непонятно.

Вопрос остаёться открытым...

[rpy3uH]

ну попробуй так

if <если символ надо заблокировать> then
 begin
  CallNextHookEx(HookHandle, code, WParam, LParam);
  result:=1;
  exit;
 end;

[rem37]

Сообщение от rpy3uH

ну попробуй так

if <если символ надо заблокировать> then
 begin
  CallNextHookEx(HookHandle, code, WParam, LParam);
  result:=1;
  exit;
 end;

Не помогает. Виноват именно result:=1. Если result:=0 работает, но символ доходит. Отладка показала, что если result:=1, не срабатывает условие if CODE = HC_ACTION then.

[rem37]

Похоже тупик...

Моя задача такая:
1. надо перехватить нобор текста в любом окне
2. передать каждый символ моей программе
3. там я меняю символы как мне надо
4. то, что получилось, передаю назад в то же самое окно
5. и последняя задача, которую я считал простой, чтобы некоторые символы не доходили бы до программы в которой набираеться текст.

Первые 4 реализованны и работают нормально, последняя никак...

Видимо придёться искать другой путь... Но как такое сделать?

P.S. Простите за возможные ошибки - русский не родной мне язык.

[rem37]

Ещё вопрос появился...

Передаю символы в чужое окно. Нужно стереть символ который стоит перед курсором. Думал будет работать так:

PostMessage(handle, WM_KEYDOWN, VK_BACK, 0);
PostMessage(handle, WM_KEYUP, VK_BACK, 0);
PostMessage(handle, WM_CHAR, Word(tmp[1]), 0);

Однако стирает мой последний символ:
Тогда попытался так:

PostMessage(handle, WM_CHAR, Word(tmp[1]), 0);
PostMessage(handle, WM_KEYDOWN, VK_LEFT, 0);
PostMessage(handle, WM_KEYUP, VK_LEFT, 0);
PostMessage(handle, WM_KEYDOWN, VK_BACK, 0);
PostMessage(handle, WM_KEYUP, VK_BACK, 0);
PostMessage(handle, WM_KEYDOWN, VK_RIGHT, 0);
PostMessage(handle, WM_KEYUP, VK_RIGHT, 0);

Стирает символ перед курсором, но и мой тоже.
Что я делаю не так? Этот код находиться в процедуре которая обрабатывает хук на клаву.