Проблема с нажатием кнопки мышки

[Zeraim]

GetCursorPos(p);
GetCursorPos(p1);
While p.X = p1.X do
begin
  mouse_event(MOUSEEVENTF_LEFTDOWN,p.X,p.Y,0,0);
  sleep(100);
  mouse_event(MOUSEEVENTF_LEFTUP,p.X,p.Y,0,0);
  sleep(100);
  mouse_event(MOUSEEVENTF_LEFTDOWN,p.X,p.Y,0,0);
  sleep(100);
  mouse_event(MOUSEEVENTF_LEFTUP,p.X,p.Y,0,0);
  GetCursorPos(p1);
end;

Незнаю где ляп, суть в том что цикл выполняется(проверял при помощи счетчика) но двойной клик не делает, если сдвинуть мышку(по циклу видно что он закроется) то нажатие происходит. Может быть лучше через таймер делать ?

[Terran]

Чтобы получился двойной щелчёк тебе нужно сделать так:

Procedure Delay(Ms : Longint);
Var
TheTime : LongInt;
Begin
TheTime := GetTickCount + Ms;
While GetTickCount < TheTime Do
Application.ProcessMessages;
End;


GetCursorPos(p);
GetCursorPos(p1);
While p.X = p1.X do
begin
mouse_event(MOUSEEVENTF_LEFTDOWN,p. X,p.Y,0,0);
mouse_event(MOUSEEVENTF_LEFTUP,p.X, p.Y,0,0);
Delay(100);
mouse_event(MOUSEEVENTF_LEFTDOWN,p. X,p.Y,0,0);
mouse_event(MOUSEEVENTF_LEFTUP,p.X, p.Y,0,0);
GetCursorPos(p1);
end;


и желательно вместо sleep(100); поставить задержку Delay(100); или Delay(50);

[Zeraim]

Спасибо 8)