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
{ Private declarations } { Private declarations }
FMyTask : ITask ; FMyTask : ITask ;
currentPos : TPoint ;
counter : Integer ; counter : Integer ;
procedure startTask ; procedure startTask ;
procedure stopTask ; procedure stopTask ;
@ -63,7 +62,6 @@ implementation
procedure TfrmMain.FormCreate(Sender: TObject); procedure TfrmMain.FormCreate(Sender: TObject);
begin begin
runIt := False ; runIt := False ;
currentPos := Point( mouse.CursorPos.X , mouse.CursorPos.Y ) ;
counter := 0 ; counter := 0 ;
end; end;
@ -141,11 +139,11 @@ begin
if counter >= 60 then if counter >= 60 then
begin begin
counter := 0 ; counter := 0 ;
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); Sleep(150);
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(50); 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);
end end
end) end)
end end