github.com/asifdxtreme/cli@v6.1.3-0.20150123051144-9ead8700b4ae+incompatible/ci/scripts/windows-installer.iss (about)

     1  [Setup]
     2  ChangesEnvironment=yes
     3  AppName=Cloud Foundry CLI
     4  AppVersion=VERSION
     5  AppVerName=VERSION
     6  DefaultDirName={pf}\CloudFoundry
     7  
     8  [Registry]
     9  Root: HKLM; Subkey: "SYSTEM\CurrentControlSet\Control\Session Manager\Environment"; ValueType: expandsz; ValueName: "Path"; ValueData: "{olddata};{app}"; Check: NeedsAddPath(ExpandConstant('{app}'))
    10  
    11  [Files]
    12  Source: CF_SOURCE; DestDir: "{app}"
    13  
    14  [Code]
    15  
    16  function NeedsAddPath(Param: string): boolean;
    17  var
    18    OrigPath: string;
    19  begin
    20    if not RegQueryStringValue(HKEY_LOCAL_MACHINE,
    21      'SYSTEM\CurrentControlSet\Control\Session Manager\Environment',
    22      'Path', OrigPath)
    23    then begin
    24      Result := True;
    25      exit;
    26    end;
    27    // look for the path with leading and trailing semicolon
    28    // Pos() returns 0 if not found
    29    Result := Pos(';' + Param + ';', ';' + OrigPath + ';') = 0;
    30  end;