Mausrad simulieren

[markbolten]

Die externe Anweisung hat den Eingabefokus, durch die Zeile in Formvcreate behält die externe Anweisung den Eingabefokus auch dann noch wenn ich einen Button in meinem Program drücke.

Werde den Vorschlag mal in die Tat umsetzen.

[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;

[himitsu]

Zitat von markbolten:

Findwindow und Sendmessage funktionieren ebenfalls nicht.

Ganz Sicher?
Wenn FindWindow nicht geht, dann hast du wohl einen Fehler gemacht.

Es wurde dir doch aber schon ein Grund genannt?

Und das nächste mal bitte selber in der Hilfe nachsehen und prüfen, ob es z.B. Probleme mit der UIPI gibt.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var 
  fenster: HWND;
begin
  fenster := FindWindow('MozillaWindowClass', nil);
  if fenster <> 0 then begin
    SetLastError(ERROR_SUCCESS);
    SendMessage(fenster, WM_MOUSEWHEEL, 120, 0);
    if GetLastError <> ERROR_SUCCESS then  
      RaiseLastOSError;  // ERROR_ACCESS_DENIED 
  end else
    ShowMessage('Pech gehabt');
end;

[markbolten]

Danke

[himitsu]

Und, hat der Rückgabewert etwas gesagt?