AriasCreations/NBTEditor
3
0
Fork 0
mirror of https://github.com/zontreck/NBTEditor synced 2024-11-21 05:25:54 -07:00
Code Issues Projects Releases Packages Wiki Activity Actions

Ensure bin path gets added to path on windows

Browse source
This commit is contained in:
zontreck 2024-07-22 04:12:25 -07:00
parent 5e647f6f32
commit 495d750f6d
1 changed files with 49 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

50
wininst.iss
View file

@ -10,6 +10,51 @@
#define MyAppAssocExt ".nbt"
#define MyAppAssocKey StringChange(MyAppAssocName, " ", "") + MyAppAssocExt
[Code]
procedure UpdatePathWithAppBin();
var
PathVar: string;
BinPath: string;
begin
// Retrieve current PATH environment variable
PathVar := GetEnv('PATH');
// Construct the full path to the bin directory
BinPath := ExpandConstant('{app}\bin');
// Check if the bin directory is not already in PATH
if Pos(BinPath, PathVar) = 0 then
begin
// Append bin directory to PATH
if PathVar <> '' then
PathVar := PathVar + ';';
PathVar := PathVar + BinPath;
// Update the PATH environment variable
SetEnv('PATH', PathVar);
end;
end;
procedure RemovePathWithAppBin();
var
PathVar: string;
BinPath: string;
begin
// Retrieve current PATH environment variable
PathVar := GetEnv('PATH');
// Construct the full path to the bin directory
BinPath := ExpandConstant('{app}\bin');
// Remove bin directory from PATH
PathVar := StringReplace(PathVar, BinPath + ';', '', [rfReplaceAll, rfIgnoreCase]);
PathVar := StringReplace(PathVar, BinPath, '', [rfReplaceAll, rfIgnoreCase]);
// Update the PATH environment variable
SetEnv('PATH', PathVar);
end;
[Setup]
; NOTE: The value of AppId uniquely identifies this application. Do not use the same AppId value in installers for other applications.
; (To generate a new GUID, click Tools | Generate GUID inside the IDE.)
@ -68,5 +113,8 @@ Name: "{autoprograms}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"
Name: "{autodesktop}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"; Tasks: desktopicon
[Run]
Filename: "{app}\{#MyAppExeName}"; Description: "{cm:LaunchProgram,{#StringChange(MyAppName, '&', '&&')}}"; Flags: nowait postinstall skipifsilent
Filename: "{app}\{#MyAppExeName}"; Description: "{cm:LaunchProgram,{#StringChange(MyAppName, '&', '&&')}}"; Flags: nowait postinstall skipifsilent; AfterInstall: UpdatePathWithAppBin
[UninstallRun]
Filename: "{code:RemovePathWithAppBin}"; Flags: runhidden