Thema: Delphi Mausrad simulieren

Einzelnen Beitrag anzeigen

Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
40.025 Beiträge
 
Delphi 11 Alexandria
 
#5

AW: Mausrad simulieren

  Alt 8. Apr 2016, 15:15
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;
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
Delphi-Tage 2005-2014
  Mit Zitat antworten Zitat