Случайное смещение мыши с переодичностью

[denisbrain]

Сообщение от shadowgm

procedure TForm1.Timer1Timer(Sender: TObject);
var
  posX, posY: Integer;
  foo: TPoint;
begin
 posX:= Random (10)+2;
 posY:= Random (10)+1;
   GetCursorPos(foo);
 SetCursorPos(foo.X+posx, foo.Y+posy);

end;

procedure TForm1.btn1Click(Sender: TObject);
begin
  Timer1.Interval:=(1000);
Timer1.Enabled:=(true);
end;

Сам допер, сам написал. Всем спасибо, все могут быть свободны!

сам тоже тусуйся с миром

[Stilet]

Сам допер, сам написал

Ну что ж. Опыт чтука полезная. Надеюсь твои потуги не пропадут даром.