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

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

Не работает перехват сообщения [D6, WinXP]

faith ©   (2004-05-05 14:40:00) 

После записи в файл перестают перехватываться сообщения, кстати и файл сам не записывается. Странно как-то, если кто знает подкажите, пожалуйста.


function KeyboardProc(nCode:integer; wParam, lParam: Longint):Longint;
 stdcall;
var wrkStr: ShortString;
   tfile : textfile;
begin
 if nCode <0 then begin
   Result := CallNextHookEx(wrkHook, nCode, wParam, lParam);
   exit;
 end;

   case wParam of
     VK_ESCAPE : wrkStr := '"ESC"';
     VK_RETURN : wrkStr := '"ENTER"';
   else
     wrkStr := Chr(MapVirtualKey(wParam,2));
   end;

   AssignFile(tfile,'spylog.txt');
   Rewrite(tFile);
   writeln(tFile,wrkStr);
   CloseFile(tFile);

 Result := CallNextHookEx(wrkHook, nCode, wParam, lParam);
end;

---

faith   (2004-05-08 18:15:00) [1]

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

---

faith   (2004-05-05 23:44:00) [2]

Класно, что-то умное и интересное. Сейчас прочту. Спасибо, ссылка хорошая.

---

VMcL   (2004-05-05 17:41:00) [3]

>>faith  (05.05.04 14:40)

http://www.delphimaster.ru/articles/hooks/index.html
?

---

Наверх