Mausrad simulieren

[markbolten]

Findwindow und Sendmessage funktionieren ebenfalls nicht.
Liegt der Fehler an Windows 10 64Bit?

Habe versucht eine Seite in Firefox zu sctllen

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var fenster : hwnd;
begin
  fenster:=FindWindow('MozillaWindowClass',nil);

  if fenster<>0 then begin
    sendmessage(fenster,wm_mousewheel,120,0);
  end;
end;