delphi 如何模拟鼠标中键滚动?(100分)

如何模拟像系统发送鼠标滚动的消息呢 ??<br><br>不是截取滚动的消息,是发送滚动的消息..

SendMessage(Handle,WM_MOUSEWHEEL,0,0);

var l_Handle:THandle;<br>&nbsp; &nbsp; nPos:LongWord;<br>&nbsp; &nbsp; Point:TPoint;<br>begin<br>&nbsp; GetCursorPos(Point); // 获取鼠标Point<br>&nbsp; l_Handle := FindWindow(nil,pChar(Edit1.Text)); // 找到外部要接收鼠标滚动的窗口句柄。<br>&nbsp; Windows.ScreenToClient(l_Handle,Point); // 转换屏幕鼠标坐标到窗口坐标。<br>&nbsp; nPos := Point.X or (Point.Y shl 16); // 组合鼠标坐标<br>&nbsp; SendMessage(l_Handle,WM_MOUSEWHEEL,$ffe00000,nPos); // 向其他窗口发送鼠标向前滚动消息。<br>end;

多人接受答案了。