Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

dll с хуком клавы - печатается 2 символа [D6, XP]


Mr tray ©   (2006-05-14 15:36:00) 

У меня есть dll с хуком клавы. Приложение использующее этот dll при запуске делает sethook, при закрытии remhook. вот dll
library hookL;

uses
 windows, messages;

var
 H : THandle;
 
function hook(code, wParam, lParam : integer): Lresult; stdcall;
begin
 if code>=0 then begin
   if ((lParam shr 16) and KF_UP)=0 then
     sendmessage(getfocus,WM_CHAR,wparam,0);
 end else begin
   result:=CallNextHookEx(H, code, wparam, lParam);
   exit;
 end;
End;

procedure sethook;
begin
 H:=SetWindowsHookEx(WH_KEYBOARD, @hook, hInstance, 0);
end;

procedure remhook;
begin
 UnhookWindowsHookEx(H);
end;

exports
 sethook index 1 name 'sethook',
 remhook index 2 name 'remhook';
end.

только почему то иногда (очень часто) у меня печатается 2 символа при одном нажатии кнопки.


Leonid Troyanovsky   (2006-05-15 08:16:00) [1]


> Германн ©   (15.05.06 01:33) [3]

> > В печь.

> Весьма оригинальный "перевод" стандартного и-нет ответа!
>  :-)


Не. Это не совсем точная цитата проф. Преображенского.

--
Regards, LVT.


Германн   (2006-05-15 01:33:00) [2]


> Leonid Troyanovsky ©   (14.05.06 22:57) [2]
>
> В печь.

Весьма оригинальный "перевод" стандартного и-нет ответа! :-)
Хотя я бы сказал: "В огонь"


Leonid Troyanovsky   (2006-05-14 22:57:00) [3]


> Mr tray   (14.05.06 15:36)  

> У меня есть dll с хуком клавы.


В печь.

--
Regards, LVT.


Mr tray   (2006-05-14 16:47:00) [4]

может ли быть такое, чтобы время выполнения функции перехвата влияло на то, будет ли перехвачен сигнал, или успеет дойти до цели.


Наверх

Титульная страница Поиск, карта сайта Написать письмо