SendInput - koordinaten x/y funtionnieren nicht

[smallsmoker]

Ich habe die Lösung nun selbst gefunden:

Delphi-Quellcode:

procedure Tfrmmain.btnMouse_ClickClick(Sender: TObject);
var
  Inp: TInput;
begin

  Inp.Itype := INPUT_MOUSE;
  Inp.mi.dwFlags := MOUSEEVENTF_RIGHTDOWN  or MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_MOVE;
  Inp.mi.dx := round(900 * (65535 / Screen.Width));
  Inp.mi.dy := round(350 * (65535 / Screen.Height));
  Inp.mi.time := 0;
  Inp.mi.dwExtraInfo := 0;
  SendInput(1, Inp, SizeOf(Inp));

  Inp.Itype := INPUT_MOUSE;
  Inp.mi.dwFlags := MOUSEEVENTF_RIGHTUP  or MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_MOVE;
  Inp.mi.dx := round(900 * (65535 / Screen.Width));
  Inp.mi.dy := round(350 * (65535 / Screen.Height));
  Inp.mi.time := 0;
  Inp.mi.dwExtraInfo := 0;
  SendInput(1, Inp, SizeOf(Inp));

end;

dieser Code würde einen click mit der rechten maustaste an den koordinaten (x: 900 | y: 350) ausführen.

mfg smallsmoker

p.s.: sry für den doppelpost