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

Temporarily remove the add/remove path options

Browse source
This commit is contained in:
zontreck 2024-07-22 05:04:25 -07:00
parent 35d0c0c526
commit fce126ac75
1 changed files with 1 additions and 49 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

50
wininst.iss
View file

@ -11,50 +11,6 @@
#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.)
@ -113,8 +69,4 @@ 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; AfterInstall: UpdatePathWithAppBin
[UninstallRun]
Filename: "{code:RemovePathWithAppBin}"; Flags: runhidden
Filename: "{app}\{#MyAppExeName}"; Description: "{cm:LaunchProgram,{#StringChange(MyAppName, '&', '&&')}}"; Flags: nowait postinstall skipifsilent