1,183
社区成员
发帖
与我相关
我的任务
分享
procedure TForm1.Button1Click(Sender: TObject);
var
rec : TRect ;
gp : TPoint;
begin
GetWindowRect(Button2.Handle,rec);
Mouse.CursorPos := rec.TopLeft;
mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
mouse_event(MOUSEEVENTF_LEFTUP ,0,0,0,0);
end;