Остановить выполнение кода, если подвигать мышкой

[igrok111]

Только есть один момент. Мой код - это и есть движение мышью. Нужно остановить выполнение цикла, если подвигать мышью рукой, тоесть нужно что б прога поняла, когда курсор сошел с заданого пути, изменил координаты и тд.
Мышь движеться по диагонали таки кодом:
(і:integer - глобальная переменная)

procedure TForm1.Timer1Timer(Sender: TObject); 
begin 
i:=i+100; 
Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_MOVE, i, i, 0, 0); 
if i=50000 then 
timer1.Enabled:=false; 
end;

Я пробовал делать так:

procedure TForm1.Timer2Timer(Sender: TObject); 
begin 
GetCursorPos(p); 
if (p.X <>i) or (p.Y<>i) then 
begin 
timer1.Enabled:=false; 
Exit; 
end; 
end;

не работает - он останавливает даже, если я не трогая мышь, сразу останавливает.

и не предлагайте менять в первом таймере на SetCursorPos - это не подходит, только Mouse_Event

[Человек_Борща]

GetCursorPos вас спасет.

[igrok111]

Сообщение от Человек_Борща

GetCursorPos вас спасет.

в обоих случаях надо применять? тоесть и двигать мышь надо геткурсором и проверять ?

[Stilet]

По-моему эта задача немного сложнее чем думается...
Расскажи откуда у нее ноги растут, уверен что есть другой более надежный способ ее решения.

GetCursorPos вас спасет.

В теории можно спрогнозировать где будет курсор, и если он оказывается не там - останавливать таймер:

var mc:TPoint;
...
mc:=Mouse.CursorPos; 
...
procedure TForm1.Timer1Timer(Sender: TObject); 
begin 
i:=i+100;
if (i=50000)or(Mouse.CursorPos.X<>mc.x+i)or(Mouse.CursorPos.Y<>mc.Y+i) then 
timer1.Enabled:=false; 
Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_MOVE, i, i, 0, 0); 
mc:=Mouse.CursorPos; 
end;

Но ИМХО все равно есть шанс на грабли.

По-моему эта задача немного сложнее чем думается...
Расскажи откуда у нее ноги растут, уверен что есть другой более надежный способ ее решения.

[igrok111]

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

На самом деле работает если использовать SetCursorPos вместо Mouse_Event, но по некоторым причинам мне это не подходит(сеткурсор не двигает мышью, он просто ставит курсор в определенное место, а мне надо имитировать движение - вот и есть моя задача, ну и потом остановить надо тоже при нарушении движения)
Вот код который работает, но не подходит:

var
  Form1: TForm1;
  a, b : Integer;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
a := 10;
b := 10;
SetCursorPos(a, b);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
p: tpoint;
begin
getcursorpos(p);
if (p.x <> a) or (p.Y <> b) then
 begin
 Timer1.Enabled :=False;
 Exit;
end;
a := a + Random(30) + 1;
b := b + Random(30) + 1;
setcursorpos(a, b);
end;

initialization
randomize;
end.

var mc:TPoint;
...
mc:=Mouse.CursorPos; 
...
procedure TForm1.Timer1Timer(Sender: TObject); 
begin 
i:=i+100;
if (i=50000)or(Mouse.CursorPos.X<>mc.x+i)or(Mouse.CursorPos.Y<>mc.Y+i) then 
timer1.Enabled:=false; 
Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_MOVE, i, i, 0, 0); 
mc:=Mouse.CursorPos; 
end;

у меня при запуске этого кода курсор через 1 секунду просто уходит в левый верхний угол и все

[IliaIT]

хмм. а может стоит проверить принадлежит ли координата y заданной пользователем функции? если совпала предполагаемая y, то выходим(можно задать границы совпадения +-10 например). если диагональное движение то y=аx+b. где b это начальная позиция курсора, а это коэффициент наклона. с помощью этой функции легко предсказать нужное положение, а двигать курсор маленькими шажками на 1 по x. при необходимости меняя праметры а и b.