--------------------

die Mausposition verändern kannste ganz einfach mit "SetCursorPos(x,y);"

wenn du's etwas schöner willst, mach's z.B. so:

Code :

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32

procedure MoveMouse (X,Y,Speed: Integer); var   wd, hh : integer;   mm : TPoint; begin  if Speed < 1 then Speed := 1;  wd := X;  hh := Y;    Repeat    sleep(speed);    Application.Processmessages;    GetCursorPos(mm);    with mm do    begin      If x > wd then       dec(x)      else      If x < wd then       inc(x);      If y > hh then       dec(y)      else      If y < hh then       inc(y);    end;    SetCursorPos(mm.x,mm.y);  until (GetAsyncKeystate(Vk_Return) <> 0) or        (GetAsyncKeystate(Vk_Escape) <> 0) or        (GetAsyncKeystate(Vk_Space ) <> 0) or        ((mm.X=X) and (mm.Y=Y)); end;

Wenn du das Klicken auch einbauen willst:

Code :

1 2 3 4 5 6

procedure MouseClick(x,y : integer); //simuliert Klick an angegebener Bildschirmposition begin Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_MOVE, x, y, 0,0); Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN, x, y, 0,0); Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP, x, y, 0,0); end;

--------------------