Crear componente "Hook de ratón a nivel de sistema"

[[seoane]]

Empezado por DarkMan

-Saber si existe otra forma de obtener coordenadas de ratón a nivel de sistema y sus pulsaciones sin utilizar un DLL para poder implementarlo en un componente.

Si existe un forma de hacerlo. Y seguro que es muy similar a la que estas utilizando ahora, solo que en vez de utilizar un hook del tipo WH_KEYBOARD debes de utilizar un hook del tipo WH_KEYBOARD_LL. Este ultimo se diferencia del primero en que no es inyectado en los otros procesos, si no que es llamado dentro del contexto del proceso que instala el hook. Esto simplifica mucho el código del hook y elimina la necesidad de utilizar una dll.

Si quieres un poco de código echale un vistazo a este otro hilo, ahí utilizo el hook para detectar el click del ratón, pero supongo que no tendrás dificultar en obtener las coordenadas.

http://www.clubdelphi.com/foros/showthread.php?t=36672

[DarkMan]

Valla Seoane muchas gracias por tu respuesta me pondré a echar un vistazo a ese código que tan amablemente me has dejado en el post y ya te comentaré si consigo solucionarlo.

[DarkMan]

Por cierto, WH_KEYBOARD? es un hook para el ratón por lo que en el ejemplo tuyo no tengo que cambiar nada (WH_MOUSE_LL)
Y bueno, probando pues si parece que funciona, pero veo algo curioso que no me gusta y es que en tu función, añadi una variable de tipo PMouseHookStruct con la cual obtengo las coordenadas del ratón, básicamente lo que hacía con la DLL (lo que me decias tu) :

Código Delphi [-]
function MouseProc(Code: Integer; WParam:WPARAM ; LParam: LPARAM): LRESULT; stdcall;
var
   DatosMouse     : PMouseHookStruct;
begin
  if Code = HC_ACTION then
  begin
    DatosMouse:=Pointer(lparam);
      Form1.Label1.caption:=IntToStr(DatosMouse.pt.x);
      Form1.Label2.caption:=IntToStr(DatosMouse.pt.y);
  end;
  Result := CallNextHookEx(Hook, Code, WParam, LParam);
end;

El problema está en que al obtener las coordenadas, cuando coges velocidad con el ratón y llegas al límite (yo tengo una resolucion de pantalla de 800x600 asi que pongamos como ejemplo 800 en el eje X) el valor que devuelve es superior a 800 (a veces si cojo mucha velocidad me devuelve 900 y a continuación se corrige él solo a 800, supongo que es al mover el ratón en sentido Y) y en sentido contrario comienza con números negativos (al llegar a 0 comienza con -1,-2...-100)
Probé tambien usando

Código Delphi [-]
if WParam = WM_MOUSEMOVE then

para ver si se corregía el error pero parece que no, ¿Por qué cuando usaba la DLL ésto no ocurría? ¿Qué cambia? ¿Debo corregirlo yo con una subrutina que detecte si supera ese valor o estoy haciendo algo mal ?
De nuevo gracias por tu código Seoane

[[seoane]]

Empezado por DarkMan

Por cierto, WH_KEYBOARD?

Es evidente que me equivoque, pero ya veo que me entendiste.

Empezado por DarkMan

¿Por qué cuando usaba la DLL ésto no ocurría? ¿Qué cambia?

Pues parece que la cosa es así, con los movimientos bruscos parece que el ratón "sale" de la pantalla, y nosotros recibimos el mensaje antes de que windows pueda corregir su posición. Puede que esto sea debido a que este hook actúa a un nivel mas bajo que el otro (LL significa Low Level) antes de que se que se corrija el error, seguramente debido a la aceleración del ratón. De todas formas, esto no debería de ser un problema, y de serlo siempre podemos comparar las coordenadas con las del monitor (TScreen).

Por cierto aunque el comienzo de la estructura es igual, deberías de usar la estructura TMSLLHOOKSTRUCT en vez de TMouseHookStruct.

Código Delphi [-]
type
  TMSLLHOOKSTRUCT = packed record
    pt: TPoint;
    mouseData: DWORD;
    flags: DWORD;
    time: DWORD;
    dwExtraInfo: int64;
  end;
  PMSLLHOOKSTRUCT = ^TMSLLHOOKSTRUCT;

[DarkMan]

Al final lo conseguí , tuve que comparar las coordenadas del ratón con TScreen para hacerlo y si al final lo conseguí, muchas gracias por tu atención Seoane