Пытаюсь добиться скролинга активного окна. Пока не получается. Вот код:
var
   Wnd : HWND;
   si : ScrollInfo;
begin
 sleep (1500);
 Wnd := GetForeGroundWindow;
 GetScrollInfo (Wnd, SB_VERT, si);
 si.nPos := si.nPos + 10;
 SetScrollInfo(Wnd, SB_VERT, si, TRUE);
 SendMessage(Wnd, WM_VSCROLL, MAKEWPARAM(SB_THUMBPOSITION, si.nPos), 0);
end;

читай про поля ScrollInfo
WM_VSCROLL здесь не нужно