用DELPHI如何控制鼠标在路径上运动，并能自动执行双击。

Question

本人想做一个无人监守的程序，用DELPHI如何控制鼠标在路径上运动，并能自动执行双击。请高人指教......最好有例子！！！

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
  for i := 0 to 10 do
  begin
     mouse_event(MOUSEEVENTF_MOVE,i,i,0, 0 );
     if i = 5 then
     begin
      mouse_event(MOUSEEVENTF_LEFTDOWN,i,i,0, 0 );
      mouse_event(MOUSEEVENTF_LEFTUP,i,i,0, 0 );
      mouse_event(MOUSEEVENTF_LEFTDOWN,i,i,0, 0 );
      mouse_event(MOUSEEVENTF_LEFTUP,i,i,0, 0 );
     end;
     sleep(100);
  end;
end;procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Label1.Caption := '当前坐标: '+IntToStr(X)+','+IntToStr(Y);
end;procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Label2.Caption := 'Mouse Down at: '+InttoStr(X)+','+InttoStr(Y);
end;procedure TForm1.FormDblClick(Sender: TObject);
begin
  ShowMessage('mouse double clicked');
end;
模拟鼠标移动和点击用mouse_event或者sendinput都可以