Thema: Delphi Mausrad simulieren

Einzelnen Beitrag anzeigen

Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.184 Beiträge
 
Delphi 12 Athens
 
#5

AW: Mausrad simulieren

  Alt 8. Apr 2016, 16: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;
$2B or not $2B
  Mit Zitat antworten Zitat