public/TiltTeamsPresence
Watch
1
0
Fork
You've already forked TiltTeamsPresence
 0
Code Issues Releases 1 Activity

Source cleanup

Browse source
This commit is contained in:
Steve Jordi 2026-10-02 16:03:31 +02:00
commit 0e467bcaed
1 changed files with 5 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

12
main.pas
View file

@ -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