Maus- und Tastaturrecorder

[edosoft]

mit nem treiber würds wohl besser gehen aber für dein zweck ist ein hook doch recht gut.

ich hab mir mal da ein maushook gebaut, ne dll halt.
(anhang)
die dll fügst dann so ein:

Delphi-Quellcode:

const
  WM_MOUSE_HOOK = WM_USER + 52013;

function Mouse_CreateHook(hWnd: HWND): Boolean; stdcall; external 'MouseHook.dll';
function Mouse_DeleteHook: Boolean; stdcall; external 'MouseHook.dll';



//init
Mouse_CreateHook(Application.Handle);



//finish
Mouse_DeleteHook;




procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
var
  X, Y: Integer;
begin
if Msg.message = WM_MOUSE_HOOK then
  begin
  X := Msg.wParam; //x-koordinate der maus
  Y := Msg.lParam; //y-koodrinate
  [..]
  end;
end;

achja
diese funktion registriert halt sowas wie ein OnMouseMove event, aber halt global.
du könntest ja dann zum biespiel alle punkte speichern, die da mit dem event oben ausgegeben werden, und nachher halt wieder so abspielen.
(das ist en event von einem tAppEvents.)