mirror of
https://github.com/fosrl/olm.git
synced 2026-02-27 23:36:46 +00:00
Compare commits
1 Commits
dependabot
...
v1.4.3
| Author | SHA1 | Date | |
|---|---|---|---|
|
|
21b66fbb34 |
14
olm.iss
14
olm.iss
@@ -32,7 +32,7 @@ DefaultGroupName={#MyAppName}
|
|||||||
DisableProgramGroupPage=yes
|
DisableProgramGroupPage=yes
|
||||||
; Uncomment the following line to run in non administrative install mode (install for current user only).
|
; Uncomment the following line to run in non administrative install mode (install for current user only).
|
||||||
;PrivilegesRequired=lowest
|
;PrivilegesRequired=lowest
|
||||||
OutputBaseFilename=mysetup
|
OutputBaseFilename=olm_windows_installer
|
||||||
SolidCompression=yes
|
SolidCompression=yes
|
||||||
WizardStyle=modern
|
WizardStyle=modern
|
||||||
; Add this to ensure PATH changes are applied and the system is prompted for a restart if needed
|
; Add this to ensure PATH changes are applied and the system is prompted for a restart if needed
|
||||||
@@ -78,7 +78,7 @@ begin
|
|||||||
Result := True;
|
Result := True;
|
||||||
exit;
|
exit;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
// Perform a case-insensitive check to see if the path is already present.
|
// Perform a case-insensitive check to see if the path is already present.
|
||||||
// We add semicolons to prevent partial matches (e.g., matching C:\App in C:\App2).
|
// We add semicolons to prevent partial matches (e.g., matching C:\App in C:\App2).
|
||||||
if Pos(';' + UpperCase(Path) + ';', ';' + UpperCase(OrigPath) + ';') > 0 then
|
if Pos(';' + UpperCase(Path) + ';', ';' + UpperCase(OrigPath) + ';') > 0 then
|
||||||
@@ -109,7 +109,7 @@ begin
|
|||||||
PathList.Delimiter := ';';
|
PathList.Delimiter := ';';
|
||||||
PathList.StrictDelimiter := True;
|
PathList.StrictDelimiter := True;
|
||||||
PathList.DelimitedText := OrigPath;
|
PathList.DelimitedText := OrigPath;
|
||||||
|
|
||||||
// Find and remove the matching entry (case-insensitive)
|
// Find and remove the matching entry (case-insensitive)
|
||||||
for I := PathList.Count - 1 downto 0 do
|
for I := PathList.Count - 1 downto 0 do
|
||||||
begin
|
begin
|
||||||
@@ -119,10 +119,10 @@ begin
|
|||||||
PathList.Delete(I);
|
PathList.Delete(I);
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
// Reconstruct the PATH
|
// Reconstruct the PATH
|
||||||
NewPath := PathList.DelimitedText;
|
NewPath := PathList.DelimitedText;
|
||||||
|
|
||||||
// Write the new PATH back to the registry
|
// Write the new PATH back to the registry
|
||||||
if RegWriteExpandStringValue(HKEY_LOCAL_MACHINE,
|
if RegWriteExpandStringValue(HKEY_LOCAL_MACHINE,
|
||||||
'SYSTEM\CurrentControlSet\Control\Session Manager\Environment',
|
'SYSTEM\CurrentControlSet\Control\Session Manager\Environment',
|
||||||
@@ -145,8 +145,8 @@ begin
|
|||||||
// Get the application installation path
|
// Get the application installation path
|
||||||
AppPath := ExpandConstant('{app}');
|
AppPath := ExpandConstant('{app}');
|
||||||
Log('Removing PATH entry for: ' + AppPath);
|
Log('Removing PATH entry for: ' + AppPath);
|
||||||
|
|
||||||
// Remove only our path entry from the system PATH
|
// Remove only our path entry from the system PATH
|
||||||
RemovePathEntry(AppPath);
|
RemovePathEntry(AppPath);
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
Reference in New Issue
Block a user