Fremdes Fenster scrollen?

[gandime]

Hi,
ich versuche ein fremdes Fenster zu scrollen, blos bis jetzt ohne Erfolg
Meine bisherigen Versuche:

Delphi-Quellcode:

var
  hwnd:cardinal;
begin
  hwnd:=GetForegroundWindow;
//SB_PAGEDOWN
//  PostMessage(hwnd, WM_VSCROLL, SB_BOTTOM, 0);
//  SB_PAGEUP

//  PostMessage(hwnd, WM_MOUSEWHEEL, SB_LINEDOWN, 0);
//  PostMessage(hwnd, WM_VSCROLL, SB_LINEUP, 0);

mfg
gandime

habs hinbekommen:

Delphi-Quellcode:

var
  Inp: TInput;
begin
  Inp.Itype := INPUT_MOUSE;

  Inp.mi.dwFlags := MOUSEEVENTF_WHEEL;// MOUSEEVENTF_WHEEL = 2048  //up

  Inp.mi.dwFlags := 4096;//down

  Inp.mi.dx := x;
  Inp.mi.dy := y;
  Inp.mi.time := 0;
  Inp.mi.mouseDatA := WHEEL_DELTA;
  Inp.mi.dwExtraInfo := 0;
  SendInput(1, Inp, SizeOf(Inp));
end;