Hallo,
Delphi-Quellcode:
// Maus an Position x,y setzen:
SetCursorPos(x, y);
und
Delphi-Quellcode:
// Linke Maustaste simulieren
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
Bei dir könnte das dann so aussehen
Das mit der Taste würde aber nicht funzen da ja die Schleife ausgeführt wird am besten du setzt vorher die Anzahl der Klicks
Delphi-Quellcode:
var
klcks : integer ;
procedure TForm1.Button1Click(Sender: TObject);
var i :integer ;
begin
SetCursorPos(x, y); //Werte setzen
For i := 0 to strtoint(edit1.text) do
begin
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
end;
end;
PS : Am besten du machst einen Timer der die Mausposition ausliest und in x,y Variablen speichert und über nen button ausgeschaltet wird damit kannst du betimmen wo er klicken soll.
Quelle :
http://www.swissdelphicenter.ch/de/showcode.php?id=360