README.md

@@ -1,56 +1,35 @@
 # TiltTeamPresence
 
-## Why this utility?
-There are many cases when you are working but you appear as not being active.
-You may be reading documents, writing a project on paper, be on a cellular phone call with a customer. Teams will turn your activity icon to orange meaning you're not working.
-
-Being away from the keyboard doesn't mean you're idle and lazy.
-Some companies monitor your "activity" by checking your Teams status.
-This little utility helps you show you're present in cases you're working away from your computer.
-
-
 ## What it does
 
 This Windows application simulates a fake activity on your computer by sending fake Mouse UP signals to Windows to keep the Teams session active.
 
-This Delphi application sends three MOUSE UP signals at the current position, every minute making Teams think you're active.
+
+This delphi application sends three MOUSE UP signals at the current position, every minute making Teams think you're active.
 This helps make you always appear with a green icon in Teams.
 
-It has not been tested with other solutions, like Zoom, but it should have the same effect on them since Windows is handling the activity.
+It has not been tested with other solutions, but it should have the same effect on them since Windows is handling the activity.
 
 
 ## Warning
 Use it accordingly to your company's policy.
-Some companies may forbid such tools. But they should inform you first.
-
-
-### How to use it
-- Download the `BatteryHealth.zip` file from the Releases section of this repository and unzip it
-- Launch the app
-- Click Start Monitoring and it will start sending mouse activities for you.
-- You can minimize the window while working.
-- Click Stop Monitoring to stop faking your activity. Remember to disable it, say, if you leave for lunch.
 
 
 ## Disclaimer
 In no way could Tiltsoft or anybody related to it may be responsible for any damage, harm or any kind of loss.
 This software is provided as-is with no responsabilities or guarantees whatsoever.
 
-
 ## The name
 To make the app less suspicious, it has been named BatteryHealth so the users can prentend they are monitoring the battery health of their computer.
 
-
 ## Info for developers
 The app has been written with Delphi 13.n but should work with most lower versions.
 It only uses default VCL components, no third parties.
 
 The app uses a thread in order not to steal the resources and also lets the user still click the Stop button to regain control and stop the fake activity.
 
-
 ## License
 Creative Commons Attribution-NonCommercial-ShareAlike (CC BY-NC-SA 4.0)
-This application is free and always will be.
 
 If you use this code you have to follow the following:
 * BY (Attribution): You must give credit to this original.

main.pas

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