#define MyAppName "Gito AI Code Reviewer"

; NOTE: Keep version in sync with pyproject.toml

#define MyAppVersion "4.0.4"

#define MyAppPublisher "Vitalii Stepanenko"

#define MyAppURL "https://github.com/Nayjest/Gito"

#define MyAppExeName "gito.exe"

[Setup]

; NOTE: The value of AppId uniquely identifies this application.

AppId={{B8E3F2A1-5C7D-4E9F-A2B1-3D6E8F0C9A4B}}

AppName={#MyAppName}

AppVersion={#MyAppVersion}

AppPublisher={#MyAppPublisher}

AppPublisherURL={#MyAppURL}

AppSupportURL={#MyAppURL}

AppUpdatesURL={#MyAppURL}

DefaultDirName={autopf}\Gito

DefaultGroupName=Gito

AllowNoIcons=yes

LicenseFile=LICENSE

OutputDir=installer_output

OutputBaseFilename=gito-setup-{#MyAppVersion}

Compression=lzma

SolidCompression=yes

WizardStyle=modern

ArchitecturesInstallIn64BitMode=x64compatible

ChangesEnvironment=yes

[Languages]

Name: "english"; MessagesFile: "compiler:Default.isl"

[Tasks]

Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked

Name: "addtopath"; Description: "Add to PATH environment variable"; GroupDescription: "Additional options:"; Flags: checkedonce

[Files]

Source: "dist\gito.exe"; DestDir: "{app}"; Flags: ignoreversion

Source: "README.md"; DestDir: "{app}"; Flags: ignoreversion

Source: "LICENSE"; DestDir: "{app}"; Flags: ignoreversion

; NOTE: Don't use "Flags: ignoreversion" on any shared system files

[Icons]

Name: "{group}\Gito AI Code Reviewer"; Filename: "{app}\{#MyAppExeName}"

Name: "{group}\{cm:UninstallProgram,{#MyAppName}}"; Filename: "{uninstallexe}"

Name: "{autodesktop}\Gito AI Code Reviewer"; Filename: "{app}\{#MyAppExeName}"; Tasks: desktopicon

[Run]

Filename: "{app}\{#MyAppExeName}"; Parameters: "--help"; Description: "Show help"; Flags: postinstall shellexec skipifsilent

[Code]

const EnvironmentKey = 'SYSTEM\CurrentControlSet\Control\Session Manager\Environment';

procedure EnvAddPath(Path: string);

var

Paths: string;

begin

{ Retrieve current path (use empty string if entry not exists) }

if not RegQueryStringValue(HKEY_LOCAL_MACHINE, EnvironmentKey, 'Path', Paths)

then Paths := '';

{ Skip if string already found in path }

if Pos(';' + Uppercase(Path) + ';', ';' + Uppercase(Paths) + ';') > 0 then exit;

{ Append string to the end of the path variable }

Paths := Paths + ';'+ Path;

{ Overwrite (or create if missing) path environment variable }

if RegWriteStringValue(HKEY_LOCAL_MACHINE, EnvironmentKey, 'Path', Paths)

then Log(Format('The [%s] added to PATH: [%s]', [Path, Paths]))

else Log(Format('Error while adding the [%s] to PATH: [%s]', [Path, Paths]));

end;

procedure EnvRemovePath(Path: string);

var

Paths: string;

P: Integer;

begin

{ Skip if registry entry not exists }

if not RegQueryStringValue(HKEY_LOCAL_MACHINE, EnvironmentKey, 'Path', Paths) then

exit;

{ Skip if string not found in path }

P := Pos(';' + Uppercase(Path) + ';', ';' + Uppercase(Paths) + ';');

if P = 0 then exit;

{ Update path variable }

Delete(Paths, P - 1, Length(Path) + 1);

{ Overwrite path environment variable }

if RegWriteStringValue(HKEY_LOCAL_MACHINE, EnvironmentKey, 'Path', Paths)

then Log(Format('The [%s] removed from PATH: [%s]', [Path, Paths]))

else Log(Format('Error while removing the [%s] from PATH: [%s]', [Path, Paths]));

end;

procedure CurStepChanged(CurStep: TSetupStep);

begin

if (CurStep = ssPostInstall) and WizardIsTaskSelected('addtopath')

then EnvAddPath(ExpandConstant('{app}'));

end;

procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);

begin

if CurUninstallStep = usPostUninstall

then EnvRemovePath(ExpandConstant('{app}'));

end;