diff --git a/main.pas b/main.pas index 3674b44..74d355c 100644 --- a/main.pas +++ b/main.pas @@ -37,7 +37,6 @@ type private { Private declarations } FMyTask : ITask ; - currentPos : TPoint ; counter : Integer ; procedure startTask ; procedure stopTask ; @@ -63,7 +62,6 @@ implementation procedure TfrmMain.FormCreate(Sender: TObject); begin runIt := False ; - currentPos := Point( mouse.CursorPos.X , mouse.CursorPos.Y ) ; counter := 0 ; end; @@ -141,11 +139,11 @@ begin if counter >= 60 then begin counter := 0 ; - mouse_event(MOUSEEVENTF_LEFTUP, 0, mouse.CursorPos.X, mouse.CursorPos.Y, 0); - Sleep(150); - mouse_event(MOUSEEVENTF_LEFTUP, 0, mouse.CursorPos.X, mouse.CursorPos.Y, 0); - Sleep(50); - mouse_event(MOUSEEVENTF_LEFTUP, 0, mouse.CursorPos.X, mouse.CursorPos.Y, 0); + mouse_event(MOUSEEVENTF_LEFTUP, 0, mouse.CursorPos.X, mouse.CursorPos.Y, 0); + Sleep(150); + mouse_event(MOUSEEVENTF_LEFTUP, 0, mouse.CursorPos.X, mouse.CursorPos.Y, 0); + Sleep(50); + mouse_event(MOUSEEVENTF_LEFTUP, 0, mouse.CursorPos.X, mouse.CursorPos.Y, 0); end end) end