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