From 0404950693549032e846b7ded05b7d6db30be39b Mon Sep 17 00:00:00 2001
From: "Scott E. Graves" <scott.e.graves@protonmail.com>
Date: Wed, 30 Jul 2025 12:12:18 -0500
Subject: [PATCH] Create Windows installer #53

---
 repertory.iss.in | 29 ++++++++---------------------
 1 file changed, 8 insertions(+), 21 deletions(-)

diff --git a/repertory.iss.in b/repertory.iss.in
index fa4240f5..4aeb9993 100644
--- a/repertory.iss.in
+++ b/repertory.iss.in
@@ -54,19 +54,6 @@ begin
   Result := S;
 end;
 
-function CheckAddPath(NewPath: string): Boolean;
-var
-  OldPath: string;
-begin
-  if not RegQueryStringValue(HKLM,
-    'SYSTEM\CurrentControlSet\Control\Session Manager\Environment',
-    'Path', OldPath)
-  then
-    OldPath := '';
-
-  Result := Pos(LowerCase(NewPath), LowerCase(OldPath)) = 0;
-end;
-
 procedure AddAppToPath();
 var
   OldPath, NewPath, FinalPath: string;
@@ -92,14 +79,6 @@ begin
   end;
 end;
 
-procedure CurStepChanged(CurStep: TSetupStep);
-begin
-  if CurStep = ssPostInstall then
-  begin
-    AddAppToPath();
-  end;
-end;
-
 procedure RemoveAppFromPath();
 var
   OldPath, NewPath, Token, Remainder, FinalPath: string;
@@ -149,6 +128,14 @@ begin
   RefreshEnvironment();
 end;
 
+procedure CurStepChanged(CurStep: TSetupStep);
+begin
+  if CurStep = ssPostInstall then
+  begin
+    AddAppToPath();
+  end;
+end;
+
 procedure DeinitializeUninstall();
 begin
   RemoveAppFromPath();