[hardc Oo re :: MYCAJIuHu]

Доброго времени суток. Сабж. Я упростил код(создал приложение и добавил неработающий в вин7 код).

Вот код:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72

unit main;   interface   uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls;   type   TForm1 = class(TForm)     Memo1: TMemo;     Button1: TButton;     procedure Button1Click(Sender: TObject);  private     FHookStarted : Boolean;  //переменая что отвечает включен перехватчик или нет     record1,play :boolean; // переменые что отвечает за проигрывание или запись     old:integer;     f:file;  //наш временый файл   public     { Public declarations }   end;   var   Form1: TForm1;   JHook: THandle;   implementation   {$R *.dfm}   function JournalProc(Code, wParam: Integer; var EventStrut: TEventMsg): Integer; stdcall; var   x,y,ev,t: integer; begin   Result := CallNextHookEx(JHook, Code, wParam, Longint(@EventStrut));   if Code < 0 then Exit;   if Code = HC_SYSMODALON then Exit;   if Code = HC_ACTION then     begin       t:=GetCurrentTime-Form1.old;       Form1.old:=GetCurrentTime;       case EventStrut.message of         WM_LBUTTONUP  : ev:=1;         WM_LBUTTONDOWN: ev:=2;         WM_RBUTTONDOWN: ev:=3;         WM_RBUTTONUP  : ev:=4;         WM_MOUSEMOVE  : ev:=5;         else ev:=0; end;       if (ev>=0) and (ev<=5) then         begin           x:=EventStrut.paramL;           y:=EventStrut.paramH;           Form1.Memo1.Lines.Add(IntToStr(ev));           Form1.Memo1.Lines.Add(IntToStr(x));           Form1.Memo1.Lines.Add(IntToStr(y));           Form1.Memo1.Lines.Add(IntToStr(t));         end;       end; end;   procedure TForm1.Button1Click(Sender: TObject); begin JHook := SetWindowsHookEx(WH_JOURNALRECORD, @JournalProc, hInstance, 0);   record1:=true;   if SetWindowsHook(WH_JOURNALRECORD, @JournalProc) > 0     then         FHookStarted := True     else       begin         ShowMessage('Невозможно включить запись');       end; end;

Должно быть так: все движения и щелчки мыши перекидываются в мемо. В WinXp так и есть, в Win7 пишет ShowMessage('Невозможно включить запись');


Googleние ничего мне не дало. Зарегистрировался здесь ради этого... Я уже не знаю что думать. Помогите пожалуйста.

Заранее спасибо за потраченное на меня время.

----------------------------------------------
Возможно есть другой подход, который позволит записывать все действия мыши. Если вдруг кто подумает что это для трояна и/или другого вредоносного ПО, то это не так. Просто хочу написать для своего клана программку, которая будет автоматизировать некоторые действия в игре... Она, точнее уже почти написана.... Просто с моим переходом на вин7 она перестала работать.

P.S.: Windows 7 x86 (32 bit)