Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.28;
Скачать: [xml.tar.bz2];




Вниз

Клавиатурныйшпион 


ThaDrot   (2001-12-24 19:09) [0]

Как написать прогу, которая будет отслеживать любое нажатие
на клаву ? Помогите, добро за добро !



Вадим   (2001-12-24 21:41) [1]

см. кладовку



Anatoly Podgoretsky   (2001-12-25 16:54) [2]

Ну я вижу только одно добро за добро - отследить мою клавиатуру :-)



naked   (2001-12-25 17:27) [3]

Есть работоспособная прога типа Dks, на www.xaker.ru,
там кстати даже 3 статьи есть "Как самому написать клав. шпиона"
с исходниками и комментариями.



YUS   (2001-12-26 18:27) [4]

Этот кусочек я выдернул откуда-то, проверял.Работает
<<Чтобы отслеживать события во всей Windows используют ловушку (hook). Для этого нужно создать функцию, обрабатывающую сообщения. Адрес этой функции нужно передать Windows при установке ловушки.
Эта программа определяет, нажата ли левая или правая кнопка мыши, при движении мыши определяет ее координаты. При нажатии на клавишу клавиатуры определяется, что это за клавиша.
var
HookHandle: hHook;

function HookProc(Code: integer; WParam: word; LParam: Longint): Longint; stdcall;
var
msg: PEVENTMSG;
key: integer;
begin
if Code >= 0 then begin
result := 0;
msg := Pointer(LParam);
with Form1 do
case msg.message of
WM_MOUSEMOVE: Caption := IntToStr(msg.ParamL) + #32 + IntToStr(msg.ParamH);
WM_LBUTTONDOWN: CheckBox1.Checked := true;
WM_LBUTTONUP: CheckBox1.Checked := false;
WM_RBUTTONDOWN: CheckBox2.Checked := true;
WM_RBUTTONUP: CheckBox2.Checked := false;
WM_KEYUP: CheckBox3.Checked := false;
WM_KEYDOWN: begin
CheckBox3.Checked := true;
key := msg.paramL and 255;
if key in [48..57, 65..90]
then Edit1.Text := Edit1.Text + chr(key);
end;
end;
end else
result := CallNextHookEx(HookHandle, code, WParam, LParam);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.FormStyle := fsStayOnTop;
CheckBox1.Enabled := false;
CheckBox1.Caption := "left button";
CheckBox2.Enabled := false;
CheckBox2.Caption := "right button";
CheckBox3.Enabled := false;
CheckBox3.Caption := "keyboard";
HookHandle := SetWindowsHookEx(WH_JOURNALRECORD, @HookProc, HInstance, 0);
Edit1.Text := "";
Edit1.Enabled := false;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
if HookHandle > 0 then
UnhookWindowsHookEx(HookHandle);
end;



ThaDrot   (2001-12-27 23:36) [5]

Спасибо всем за ценную инфорацию.




Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.28;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.73 MB
Время: 0.014 c
3-90461           Rad                   2002-01-31 19:15  2002.02.28  
Как выяснить размерность поля Numeric?


4-90696           Dimzel                2001-12-27 17:13  2002.02.28  
Как Дебаггерить DLL В Delphi?


7-90688           Dimonf                2001-11-20 17:48  2002.02.28  
Как написать прогу для посылки SMS с компьютера через мобильный телефон.


4-90693           Flash X               2001-12-26 18:56  2002.02.28  
КАК ОТКЛЮЧИТЬ В WIN9x МЕНЮ ЗАГРУЗКИ


3-90456           Ura                   2002-02-01 15:43  2002.02.28  
Получение разницы во времени в IB