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;