pangolin_mirror/olm
1
0
Fork 0
mirror of https://github.com/fosrl/olm.git synced 2026-02-07 21:46:40 +00:00
Code Issues Packages Projects Releases Wiki Activity

Update iss

Browse Source 
Former-commit-id: 5da2198b35
This commit is contained in:
Owen
2025-12-11 12:29:43 -05:00
parent 518bf0e36a
commit 4b269782ea
1 changed files with 8 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
olm.iss
View File

@@ -44,8 +44,8 @@ Name: "english"; MessagesFile: "compiler:Default.isl"
[Files] [Files]
; The 'DestName' flag ensures that 'olm_windows_amd64.exe' is installed as 'olm.exe' ; The 'DestName' flag ensures that 'olm_windows_amd64.exe' is installed as 'olm.exe'
Source: "C:\Users\Administrator\Downloads\olm_windows_amd64.exe"; DestDir: "{app}"; DestName: "{#MyAppExeName}"; Flags: ignoreversion Source: "Z:\olm_windows_amd64.exe"; DestDir: "{app}"; DestName: "{#MyAppExeName}"; Flags: ignoreversion
Source: "C:\Users\Administrator\Downloads\wintun.dll"; DestDir: "{app}"; Flags: ignoreversion Source: "Z:\wintun.dll"; DestDir: "{app}"; Flags: ignoreversion
; NOTE: Don't use "Flags: ignoreversion" on any shared system files ; NOTE: Don't use "Flags: ignoreversion" on any shared system files
[Icons] [Icons]
@@ -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;