让电脑自动触发鼠标事件(BCB6)[原创]

//让电脑自动触发鼠标事件
//首先初始化窗口位置
void __fastcall TForm1::FormShow(TObject *Sender)
{
this->Top=0;
this->Left=0;

}
//发关鼠标事件
void __fastcall TForm1::FormPaint(TObject *Sender)
{
SetCursorPos(80,60);//注意:这个坐标是屏幕的绝对坐标
//本操作是触发一个按钮的单击事件,因为单击是由左键按下-松开组成的
mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);
}
//mouse_event的第一个参数中如果包括MOUSEEVENTF_ABSOLUTE，则移动鼠标的操
//作是按照绝对坐标，否则就是按照相对指标。