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();