6 replies to this topic

[escafandra]

Para conseguir realizar un Click de ratón deberemos utilizar la API SendInput. Esa misma API sirve para enviar eventos de teclado.
Desde la aparición de Windows NT la API mouse_event se ha suprimido en favor de SendInput.

Aquí­ expongo una función que simula un Click en unas coordenadas absolutas de la pantalla:

cpp

int MouseClick(int x, int y)
{
   TPoint P;
   GetCursorPos(&P); // Guardo las coordenadas del mouse
 
   SetCursorPos(x, y);
 
   INPUT Input[2];
    ::ZeroMemory(Input, sizeof(Input));
   Input[0].type = INPUT_MOUSE;
   Input[0].mi.dx = x;
   Input[0].mi.dy = y;
   Input[0].mi.dwFlags = MOUSEEVENTF_LEFTDOWN;
 
   Input[1].type = INPUT_MOUSE;
   Input[1].mi.dx = x;
   Input[1].mi.dy = y;
   Input[1].mi.dwFlags = MOUSEEVENTF_LEFTUP;
   int a = SendInput(2, Input, sizeof(INPUT));
 
   SetCursorPos(P.x, P.y); // Restauro las coordenadas del Mouse
 
   return a;   // Retorno el número de eventos enviados
}

Saludos.

[escafandra]

Vista la necesidad, traduzco a delphi el código anterior:

delphi

// No he encontrado la estructura INPUT tagINPUT de Windows.h en mi delphi 6 por lo que la defino
// en caso de que la tengáis definida, usar la del delphi.
type
  TINPUT = record
  Tipo: DWORD;
  case integer of
    0:(mi: TMOUSEINPUT;);
    1:(ki: TKEYBDINPUT;);
    2:(hi: THARDWAREINPUT;);
  end;  PTINPUT = ^TINPUT;
 
function MouseClick(x: DWORD; y: DWORD): DWORD;
var
   P: TPoint;
   VInput: array [0..1] of TINPUT;
begin
   GetCursorPos(P); // Guardo las coordenadas del mouse
 
   SetCursorPos(x, y);
 
   ZeroMemory(@VInput, sizeof(VInput));
   VInput[0].tipo:= INPUT_MOUSE;
   VInput[0].mi.dx:= x;
   VInput[0].mi.dy:= y;
   VInput[0].mi.dwFlags:= MOUSEEVENTF_LEFTDOWN;
 
   VInput[1].tipo:= INPUT_MOUSE;
   VInput[1].mi.dx:= x;
   VInput[1].mi.dy:= y;
   VInput[1].mi.dwFlags:= MOUSEEVENTF_LEFTUP;
 
   // Retorno el número de eventos enviados
   Result:= windows.SendInput(2, tagINPUT(VInput[0]), sizeof(TINPUT));
 
   SetCursorPos(P.x, P.y); // Restauro las coordenadas del Mouse
end;

Y esto es una forma de usarlo:

delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
  // Hacemos click en las coordenadas (0, 0) de la pantalla 
  MouseClick(0,0);
end;

Saludos.

[rgstuamigo]

Y por que no usar mouse_event? http://msdn.microsof...260(VS.85).aspx
Saludos...

[escafandra]

Y por que no usar mouse_event? http://msdn.microsof...260(VS.85).aspx
Saludos...

Pues porque:

mouse_event Function

The mouse_event function synthesizes mouse motion and button clicks.

Windows NT/2000/XP: This function has been superseded. Use SendInput instead.

Syntax

    VOID mouse_event(     
        DWORD dwFlags,
        DWORD dx,
        DWORD dy,
        DWORD dwData,
        ULONG_PTR dwExtraInfo
    );
....................................................

Saludos.

[rgstuamigo]

Hahhh bueno... :-#

[Delphius]

Y por que no usar mouse_event? http://msdn.microsof...260(VS.85).aspx
Saludos...

Pues porque:

mouse_event Function

The mouse_event function synthesizes mouse motion and button clicks.

Windows NT/2000/XP: This function has been superseded. Use SendInput instead.

Syntax

    VOID mouse_event(     
        DWORD dwFlags,
        DWORD dx,
        DWORD dy,
        DWORD dwData,
        ULONG_PTR dwExtraInfo
    );
....................................................

Saludos.

Vaya... yo también voy a tener que tomar nota... más de una vez he estado usando esa API

[sir.dev.a.lot]

Hola, Perdon por llegar tarde.

 

Una informacion adicional.... tambien puedes usar un Mouse Hook.

 

 

Hooking into the Windows API is a complicated process and there are several techniques to achieve this. Microsoft recommends that the callback procedure for most hooks should reside within a DLL, this is the method used by the TCPMouseHook Component. This Component encapsulates the procedures and functions within a separate DLL and uses Memory Mapped File (MMF) to send a custom message with the information to the calling application or process. The result is a system wide hook into all global mouse events generated by the user mouse input.

Features:

• Supports Windows 95/98/ME/NT/2000/XP.
• Ultra small DLL with almost no overhead or impact on system resources.
• Simple component with one Event passing mouse position and button states.
• True Global, System Wide Mouse Hook on all running Threads/Applications.
• Disable Pointer or Individual Mouse Buttons from being processed by windows.
• Swap the Left and Right Mouse Buttons.
• Invert/Mirror or Wrap the Mouse Pointer Cursor.
• Event Returns X and Y absolute and relative positions of Mouse Cursor.
• Event Returns State of Buttons and Scroll Wheel.
• Event Returns Hit Point Codes of the current Mouse Cursor.
• Indication if Mouse Cursor is within certain areas of a Window.
• Custom message can be set for communication with the DLL.
• Install as a Component or use Unit and Functions directly.

 

http://torry.net/vcl...e/mousehook.zip

 

Saludos!