Changeset 7f291a3 in sasview for sansview/installer_new.iss

Timestamp:

Jul 14, 2011 2:26:17 PM (13 years ago)

Author:

Jae Cho <jhjcho@…>

Branches:

master, ESS_GUI, ESS_GUI_Docs, ESS_GUI_batch_fitting, ESS_GUI_bumps_abstraction, ESS_GUI_iss1116, ESS_GUI_iss879, ESS_GUI_iss959, ESS_GUI_opencl, ESS_GUI_ordering, ESS_GUI_sync_sascalc, costrafo411, magnetic_scatt, release-4.1.1, release-4.1.2, release-4.2.2, release_4.0.1, ticket-1009, ticket-1094-headless, ticket-1242-2d-resolution, ticket-1243, ticket-1249, ticket885, unittest-saveload

Children:

19b5c5c9

Parents:

e5df560

Message:

implemented SANSVIEWPATH env.

File:

• sansview/installer_new.iss (modified) (3 diffs)

sansview/installer_new.iss

@@ -7 +7 @@
 
 ChangesAssociations=yes
-AppName=SansView-1.9.1
-AppVerName=SansView-1.9.1
+AppName=SansView
+AppVerName=SansView-1.9.2dev_JUN
 AppPublisher=(c) 2009, University of Tennessee
 AppPublisherURL=http://danse.chem.utk.edu
 AppSupportURL=http://danse.chem.utk.edu
 AppUpdatesURL=http://danse.chem.utk.edu 
-DefaultDirName={pf}\SansView-1.9.1
-DefaultGroupName=DANSE\SansView-1.9.1
+ChangesEnvironment=true 
+DefaultDirName={pf}\SansView-Dev
+DefaultGroupName=DANSE\SansView-1.9.2dev_JUN
 DisableProgramGroupPage=yes
 LicenseFile=license.txt
@@ -37 +38 @@
 Root: HKCR; Subkey: "{app}\images\ball.ico";    ValueType: string; ValueName: "";       ValueData: "{app}\SansView.exe,0"
 Root: HKCR; Subkey: "{app}\SansView.exe\shell\open\command";    ValueType: string; ValueName: "";       ValueData: """{app}\SansView.exe""  ""%1"""
+Root: HKCU; Subkey: "Environment";      ValueType: expandsz; ValueName: "SANSVIEWPATH"; ValueData: "{app}";      Flags: uninsdeletevalue
+; Write to PATH (below) is disabled; need more work
+;Root: HKCU; Subkey: "Environment";     ValueType: expandsz; ValueName: "PATH"; ValueData: "%SANSVIEWPATH%;{olddata}";   Check: NeedsAddPath()
 
 
@@ -55 +59 @@
 
 [Icons]
-Name: "{group}\SansView-1.9.1"; Filename: "{app}\SansView.exe"; WorkingDir: "{app}" 
-Name: "{group}\{cm:UninstallProgram, SansView-1.9.1}";   Filename: "{uninstallexe}" 
-Name: "{commondesktop}\SansView-1.9.1"; Filename: "{app}\SansView.exe"; Tasks: desktopicon; WorkingDir: "{app}" 
+Name: "{group}\SansView";       Filename: "{app}\SansView.exe"; WorkingDir: "{app}" 
+Name: "{group}\{cm:UninstallProgram, SansView}";         Filename: "{uninstallexe}" 
+Name: "{commondesktop}\SansView-1.9.2dev_JUN";  Filename: "{app}\SansView.exe"; Tasks: desktopicon; WorkingDir: "{app}" 
 
 
 [Run]
-Filename: "{app}\SansView.exe"; Description: "{cm:LaunchProgram, SansView-1.9.1}";      Flags: nowait postinstall skipifsilent
+Filename: "{app}\SansView.exe"; Description: "{cm:LaunchProgram, SansView}";    Flags: nowait postinstall skipifsilent
+
+
+[Code]
+function NeedsAddPath(): boolean;
+var
+  oldpath: string;
+  newpath: string;
+  pathArr:    TArrayOfString;
+  i:        Integer;
+begin
+  RegQueryStringValue(HKEY_CURRENT_USER,'Environment','PATH', oldpath)
+  oldpath := oldpath + ';';
+  newpath := '%SANSVIEWPATH%';
+  i := 0;
+  while (Pos(';', oldpath) > 0) do begin
+    SetArrayLength(pathArr, i+1);
+    pathArr[i] := Copy(oldpath, 0, Pos(';', oldpath)-1);
+    oldpath := Copy(oldpath, Pos(';', oldpath)+1, Length(oldpath));
+    i := i + 1;
+    // Check if current directory matches app dir
+    if newpath = pathArr[i-1] 
+    then begin
+      Result := False;
+      exit;
+    end;
+  end;
+  Result := True;
+end;
+