只用 mouse_event就可以
procedure TForm1.Timer1Timer(Sender: TObject);
begin
mouse_event( MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0 );
mouse_event( MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 );
end;//这样就是单击
procedure TForm1.Timer1Timer(Sender: TObject);
begin
mouse_event( MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0 );
mouse_event( MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 );
mouse_event( MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0 );
mouse_event( MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 );
end;//这样就是双击了!
posted on 2009-02-05 02:30
小叶子 阅读(632)
评论(0) 编辑 收藏 引用 所属分类:
笔记