unit Unit1;
interface
uses
? Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
? Dialogs, StdCtrls;
type
? TForm1 = class(TForm)
? ? Button1: TButton;
? ? procedure Button1Click(Sender: TObject);
? ? procedure mouseclick;
? private
? ? { Private declarations }
? public
? ? { Public declarations }
? end;
var
? Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.mouseclick;
var
? ? point:TPoint;
begin
? ? point.x:=800;
? ? point.y:=600;
? ? setcursorpos(point.x,point.y);
? ? mouse_event(MOUSEEVENTF_LEFTDOWN,point.x,point.y,0,0);
? ? Sleep(1000);
? ? mouse_event(MOUSEEVENTF_LEFTUP,point.x,point.y,0,0);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
? ? mouseclick;
end;
end.
