source: sasview/sansview/installer_new.iss @ 28c9e5a

ESS_GUIESS_GUI_DocsESS_GUI_batch_fittingESS_GUI_bumps_abstractionESS_GUI_iss1116ESS_GUI_iss879ESS_GUI_iss959ESS_GUI_openclESS_GUI_orderingESS_GUI_sync_sascalccostrafo411magnetic_scattrelease-4.1.1release-4.1.2release-4.2.2release_4.0.1ticket-1009ticket-1094-headlessticket-1242-2d-resolutionticket-1243ticket-1249ticket885unittest-saveload
Last change on this file since 28c9e5a was c648414, checked in by Jae Cho <jhjcho@…>, 13 years ago

used a key HKCU for openwith for user account

  • Property mode set to 100644
File size: 5.6 KB
Line 
1
2; Script generated by the Inno Setup Script Wizard
3
4; and local_config.py located in this directory.
5 ; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES!
6[Setup]
7
8ChangesAssociations=yes
9AppName=SansView
10AppVerName=SansView-1.9.2dev_AUG
11AppPublisher=(c) 2009, University of Tennessee
12AppPublisherURL=http://danse.chem.utk.edu
13AppSupportURL=http://danse.chem.utk.edu
14AppUpdatesURL=http://danse.chem.utk.edu
15ChangesEnvironment=true
16DefaultDirName={pf}\SansView-Dev
17DefaultGroupName=DANSE\SansView-1.9.2dev_AUG
18DisableProgramGroupPage=yes
19LicenseFile=license.txt
20OutputBaseFilename=setupSansView
21SetupIconFile=images\ball.ico
22Compression=lzma
23SolidCompression=yes
24PrivilegesRequired=none
25
26
27[Registry]
28Root: HKCR;     Subkey: ".xml\OpenWithList\SansView.exe";        Flags: uninsdeletekey noerror
29Root: HKCR;     Subkey: ".txt\OpenWithList\SansView.exe";        Flags: uninsdeletekey noerror
30Root: HKCR;     Subkey: ".asc\OpenWithList\SansView.exe";        Flags: uninsdeletekey noerror
31Root: HKCR;     Subkey: ".dat\OpenWithList\SansView.exe";        Flags: uninsdeletekey noerror
32Root: HKCR;     Subkey: ".tif\OpenWithList\SansView.exe";        Flags: uninsdeletekey noerror
33Root: HKCR;     Subkey: ".abs\OpenWithList\SansView.exe";        Flags: uninsdeletekey noerror
34Root: HKCR;     Subkey: ".d1d\OpenWithList\SansView.exe";        Flags: uninsdeletekey noerror
35Root: HKCR;     Subkey: ".sans\OpenWithList\SansView.exe";       Flags: uninsdeletekey noerror
36Root: HKCR; Subkey: "applications\SansView.exe\shell\open\command";     ValueType: string; ValueName: "";       ValueData: """{app}\SansView.exe""  ""%1""";     Flags: uninsdeletevalue noerror
37Root: HKCU;     Subkey: "Software\Classes\.xml\OpenWithList\SansView.exe";       Flags: uninsdeletekey noerror
38Root: HKCU;     Subkey: "Software\Classes\.txt\OpenWithList\SansView.exe";       Flags: uninsdeletekey noerror
39Root: HKCU;     Subkey: "Software\Classes\.asc\OpenWithList\SansView.exe";       Flags: uninsdeletekey noerror
40Root: HKCU;     Subkey: "Software\Classes\.dat\OpenWithList\SansView.exe";       Flags: uninsdeletekey noerror
41Root: HKCU;     Subkey: "Software\Classes\.tif\OpenWithList\SansView.exe";       Flags: uninsdeletekey noerror
42Root: HKCU;     Subkey: "Software\Classes\.abs\OpenWithList\SansView.exe";       Flags: uninsdeletekey noerror
43Root: HKCU;     Subkey: "Software\Classes\.d1d\OpenWithList\SansView.exe";       Flags: uninsdeletekey noerror
44Root: HKCU;     Subkey: "Software\Classes\.sans\OpenWithList\SansView.exe";      Flags: uninsdeletekey noerror
45Root: HKCU; Subkey: "Software\Classes\applications\SansView.exe\shell\open\command";    ValueType: string; ValueName: "";       ValueData: """{app}\SansView.exe""  ""%1""";     Flags: uninsdeletevalue noerror
46Root: HKCR;     Subkey: ".svs"; ValueType: string;      ValueName: "";  ValueData: "{app}\SansView.exe";         Flags: uninsdeletevalue
47Root: HKCR;     Subkey: ".fitv";        ValueType: string;      ValueName: "";  ValueData: "{app}\SansView.exe";         Flags: uninsdeletevalue
48Root: HKCR;     Subkey: ".inv"; ValueType: string;      ValueName: "";  ValueData: "{app}\SansView.exe";         Flags: uninsdeletevalue
49Root: HKCR;     Subkey: ".prv"; ValueType: string;      ValueName: "";  ValueData: "{app}\SansView.exe";         Flags: uninsdeletevalue
50Root: HKCR; Subkey: "{app}\SansView.exe";       ValueType: string; ValueName: "";       ValueData: "{app}\SansView File";        Flags: uninsdeletekey 
51Root: HKCR; Subkey: "{app}\SansView.exe\shell\open\command";    ValueType: string; ValueName: "";       ValueData: """{app}\SansView.exe""  ""%1""";     Flags: uninsdeletevalue noerror       
52Root: HKCR; Subkey: "{app}\images\ball.ico";    ValueType: string; ValueName: "";       ValueData: "{app}\SansView.exe,0"
53Root: HKLM; Subkey: "SYSTEM\CurrentControlSet\Control\Session Manager\Environment";     ValueType: expandsz; ValueName: "SANSVIEWPATH"; ValueData: "{app}";      Flags: uninsdeletevalue
54; Write to PATH (below) is disabled; need more tests
55;Root: HKCU; Subkey: "Environment";     ValueType: expandsz; ValueName: "PATH"; ValueData: "%SANSVIEWPATH%;{olddata}";   Check: NeedsAddPath()
56
57
58[Languages]
59Name: "english";        MessagesFile: "compiler:Default.isl"
60
61
62[Tasks]
63Name: "desktopicon";    Description: "{cm:CreateDesktopIcon}";  GroupDescription: "{cm:AdditionalIcons}";       Flags: unchecked
64
65
66[Files]
67Source: "dist\SansView.exe";    DestDir: "{app}";       Flags: ignoreversion
68Source: "dist\*";       DestDir: "{app}";       Flags: ignoreversion recursesubdirs createallsubdirs
69Source: "images\*";     DestDir: "{app}\images";        Flags: ignoreversion recursesubdirs createallsubdirs
70Source: "test\*";       DestDir: "{app}\test";  Flags: ignoreversion recursesubdirs createallsubdirs
71Source: "media\*";      DestDir: "{app}\media"; Flags: ignoreversion recursesubdirs createallsubdirs
72;       NOTE: Don't use "Flags: ignoreversion" on any shared system files
73
74[Icons]
75Name: "{group}\SansView";       Filename: "{app}\SansView.exe"; WorkingDir: "{app}"
76Name: "{group}\{cm:UninstallProgram, SansView}";         Filename: "{uninstallexe}"
77Name: "{commondesktop}\SansView-1.9.2dev_AUG";  Filename: "{app}\SansView.exe"; Tasks: desktopicon; WorkingDir: "{app}"
78
79
80[Run]
81Filename: "{app}\SansView.exe"; Description: "{cm:LaunchProgram, SansView}";    Flags: nowait postinstall skipifsilent
82
83
84[Code]
85function NeedsAddPath(): boolean;
86var
87  oldpath: string;
88  newpath: string;
89  pathArr:    TArrayOfString;
90  i:        Integer;
91begin
92  RegQueryStringValue(HKEY_CURRENT_USER,'Environment','PATH', oldpath)
93  oldpath := oldpath + ';';
94  newpath := '%SANSVIEWPATH%';
95  i := 0;
96  while (Pos(';', oldpath) > 0) do begin
97    SetArrayLength(pathArr, i+1);
98    pathArr[i] := Copy(oldpath, 0, Pos(';', oldpath)-1);
99    oldpath := Copy(oldpath, Pos(';', oldpath)+1, Length(oldpath));
100    i := i + 1;
101    // Check if current directory matches app dir
102    if newpath = pathArr[i-1]
103    then begin
104      Result := False;
105      exit;
106    end;
107  end;
108  Result := True;
109end;
110
Note: See TracBrowser for help on using the repository browser.