如何实现鼠标自动单击。

Question

findwindow
sendmessage || postmessage

Answer 1

模拟鼠标单双击procedure TForm1.Button1Click(Sender: TObject);
var
  pt: TPoint;
begin
  pt:= edit1.ClientToScreen( Point( 4,4 ));
  SetCursorPos( pt.x, pt.y );
  mouse_event( MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0 );
  mouse_event( MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 );
  mouse_event( MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0 );
  mouse_event( MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 );
end;
//////////////////////////////
SendMessage(Form1.Handle,WM_LBUTTONDBLCLK,0,0);