Question

请教delphi高手!

想制作一个小程序,功能:点击程序button1后,鼠标自动移动到屏幕中央,每过5秒自动按右键,点击程序button2后,程序结束.
请高手写出代码,谢谢!

Answer 1

button1 button2 timer1三个控件
timer1.enabled设为false ，inteval为5000

procedure TForm1.Button1Click(Sender: TObject);
var x,y:integer;
begin
x:=round(screen.Width/2);
y:=round(screen.Height/2);
SetCursorPos(x,y);
timer1.Enabled:=true;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
timer1.Enabled:=false;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
mouse_event(MOUSEEVENTF_RIGHTDOWN,0,0,0,0);
mouse_event(MOUSEEVENTF_RIGHTUP,0,0,0,0);
end;