Simula que se ha pulsado un botón del ratón, sea el izquierdo, el central (la rueda del ratón) o el derecho:
Código Delphi
[-]
uses
Windows;
type
TBotonesRaton = (brIzquierdo, brCentral, brDerecho);
procedure ClicBotonRaton(boton: TBotonesRaton);
begin
case boton of
brIzquierdo: begin
mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);
end;
brCentral: begin
mouse_event(MOUSEEVENTF_MIDDLEDOWN,0,0,0,0);
mouse_event(MOUSEEVENTF_MIDDLEUP,0,0,0,0);
end;
brDerecho: begin
mouse_event(MOUSEEVENTF_RIGHTDOWN,0,0,0,0);
mouse_event(MOUSEEVENTF_RIGHTUP,0,0,0,0);
end;
end;
end;