怎么模拟向其他程界面发送鼠标滚动作

如何模拟向其他程界面发送鼠标滚动作
在Delphi中如何模拟向其程序界面发送鼠标滚轮动作，比如模拟滚轮向上滚动一次。

我用api向其他程序界面发送消息的话，最多只能模拟点击一下滚动条的箭头

谢谢。

[解决办法]
一定要用滚轮吗？
WM_mousewheel
[解决办法]
尝试下:

sendmessage 句柄用"程序界面"的窗体句柄,消息参数 就用WM_mousewheel