Revision 479e9af2 trunk/Pithos.Installer/PithosPlus.iss

b/trunk/Pithos.Installer/PithosPlus.iss
14 14
[Setup]
15 15
;WARNING: DO NOT CHANGE THE APP ID (AppId) or the update will not work correctly.
16 16
;AppId is used to check if we are installed using this isntaller and not by other means.
17
AppId={{926354B2-04D2-47CF-8FAA-04AB3682008B}}
17
AppID={{926354B2-04D2-47CF-8FAA-04AB3682008B}}
18 18
AppName={#MyAppName}
19 19
AppVersion={#MyAppVersion}
20 20
AppVerName={#MyAppName} {#MyAppVersion}
......
25 25
AppUpdatesURL={#MyAppURL}
26 26
DefaultDirName={pf}\PithosPlus
27 27
DefaultGroupName={#MyAppName}
28
AllowNoIcons=yes
28
AllowNoIcons=true
29 29
LicenseFile=Licenses\GRNET License.txt
30 30
OutputBaseFilename=PithosPlus_Setupv{#MyAppVersion}
31
SolidCompression=True  
32
UsePreviousSetupType=True
33
UsePreviousTasks=True
31
SolidCompression=true
32
UsePreviousSetupType=true
33
UsePreviousTasks=true
34 34
UsePreviousLanguage=True
35
ShowTasksTreeLines=True
35
ShowTasksTreeLines=true
36 36
AppCopyright=(c) 2011 - 2012 GRNET
37
PrivilegesRequired=none
38
EnableDirDoesntExistWarning=True
37
PrivilegesRequired=admin
38
EnableDirDoesntExistWarning=true
39 39
DirExistsWarning=yes
40 40
AppContact=support@okeanos.grnet.gr
41 41
AppSupportPhone=+30 210 0000000
42 42
AppReadmeFile=My Readme
43
UninstallDisplayIcon={app}\Pithos.exe
43
UninstallDisplayIcon={app}\PithosPlus.exe
44 44
WizardImageFile=Images\ppWZDImage.bmp
45 45
WizardSmallImageFile=Images\ppWZDSmall.bmp
46 46
VersionInfoVersion={#MyAppVersion}
47 47
MinVersion=0,5.01sp3
48 48
ArchitecturesInstallIn64BitMode=x64
49
AppMutex=PITHOSMUTEX
50
OutputDir={tmp}
51
SetupLogging=true
52
UninstallLogMode=append
53
VersionInfoCompany=GRNET
54
VersionInfoDescription=Pithos Plus
55
VersionInfoCopyright=(c) 2011-2012 GRNET
56
VersionInfoProductName=Pitho Plus
57
VersionInfoProductVersion=1
58
AppModifyPath="{app}\UninsHs.exe" /m0=AppId
49 59

  
50 60
[Languages]
51 61
Name: "english"; MessagesFile: "compiler:Default.isl"
......
65 75
[Files]
66 76
; NOTE: Don't use "Flags: ignoreversion" on any shared system files
67 77
; Executable
68
Source: "..\Pithos.Client.WPF\bin\Debug\PithosPlus.exe"; DestDir: "{app}"; Flags: ignoreversion; Components: RequiredFiles; Languages: english french german spanish greek
69
Source: "..\Pithos.Client.WPF\bin\Debug\PithosPlus.exe.config"; DestDir: "{app}"; Flags: ignoreversion; Components: RequiredFiles; Languages: english french german spanish greek
78
Source: "..\Pithos.Client.WPF\bin\Debug\PithosPlus.exe"; DestDir: "{app}"; Flags: restartreplace ignoreversion; Components: RequiredFiles; Tasks: desktopicon; Languages: english french german spanish greek
79
Source: "..\Pithos.Client.WPF\bin\Debug\PithosPlus.exe.config"; DestDir: "{app}"; Flags: restartreplace ignoreversion; Components: RequiredFiles; Languages: english french german spanish greek
80
; Appearance
81
Source: "Skin\ISSkin.dll"; DestDir: {app}; Flags: dontcopy
82
Source: "Skin\GRNETWhite.cjstyles"; DestDir: {tmp}; Flags: dontcopy
83
; Repair/Modify
84
Source: "Tools\UninsHs.exe"; DestDir: "{app}"; Flags: restartreplace
85
; Running Processes
86
Source: "Tools\IssProc.dll"; DestDir: {tmp}; Flags: dontcopy
70 87
; DLL
71
Source: "..\Pithos.ShellExtensions\bin\x86\Debug\Pithos.ShellExtensions.dll"; DestDir: "{app}"; Flags: ignoreversion; Components: RequiredFiles; Languages: english french german spanish greek; Check: not Is64BitInstallMode
72
Source: "..\Pithos.ShellExtensions\bin\x64\Debug\Pithos.ShellExtensions.dll"; DestDir: "{app}"; Flags: ignoreversion; Components: RequiredFiles; Languages: english french german spanish greek; Check: Is64BitInstallMode
73
Source: "..\Pithos.Client.WPF\bin\Debug\AppLimit.NetSparkle.Net40.dll"; DestDir: "{app}"; Flags: ignoreversion; Components: RequiredFiles; Languages: english french german spanish greek
74
Source: "..\Pithos.Client.WPF\bin\Debug\AsyncCtpLibrary.dll"; DestDir: "{app}"; Flags: ignoreversion; Components: RequiredFiles; Languages: english french german spanish greek
75
Source: "..\Pithos.Client.WPF\bin\Debug\Caliburn.Micro.dll"; DestDir: "{app}"; Flags: ignoreversion; Components: RequiredFiles; Languages: english french german spanish greek
76
Source: "..\Pithos.Client.WPF\bin\Debug\Castle.ActiveRecord.dll"; DestDir: "{app}"; Flags: ignoreversion; Components: RequiredFiles; Languages: english french german spanish greek
77
Source: "..\Pithos.Client.WPF\bin\Debug\Castle.Components.Validator.dll"; DestDir: "{app}"; Flags: ignoreversion; Components: RequiredFiles; Languages: english french german spanish greek
78
Source: "..\Pithos.Client.WPF\bin\Debug\Castle.Core.dll"; DestDir: "{app}"; Flags: ignoreversion; Components: RequiredFiles; Languages: english french german spanish greek
79
Source: "..\Pithos.Client.WPF\bin\Debug\Hardcodet.Wpf.TaskbarNotification.dll"; DestDir: "{app}"; Flags: ignoreversion; Components: RequiredFiles; Languages: english french german spanish greek
80
Source: "..\Pithos.Client.WPF\bin\Debug\Iesi.Collections.dll"; DestDir: "{app}"; Flags: ignoreversion; Components: RequiredFiles; Languages: english french german spanish greek
81
Source: "..\Pithos.Client.WPF\bin\Debug\log4net.dll"; DestDir: "{app}"; Flags: ignoreversion; Components: RequiredFiles; Languages: english french german spanish greek
82
Source: "..\Pithos.Client.WPF\bin\Debug\Newtonsoft.Json.dll"; DestDir: "{app}"; Flags: ignoreversion; Components: RequiredFiles; Languages: english french german spanish greek
83
Source: "..\Pithos.Client.WPF\bin\Debug\NHibernate.ByteCode.Castle.dll"; DestDir: "{app}"; Flags: ignoreversion; Components: RequiredFiles; Languages: english french german spanish greek
84
Source: "..\Pithos.Client.WPF\bin\Debug\NHibernate.dll"; DestDir: "{app}"; Flags: ignoreversion; Components: RequiredFiles; Languages: english french german spanish greek
85
Source: "..\Pithos.Client.WPF\bin\Debug\NHibernate.Search.dll"; DestDir: "{app}"; Flags: ignoreversion; Components: RequiredFiles; Languages: english french german spanish greek
86
Source: "..\Pithos.Client.WPF\bin\Debug\ParallelExtensionsExtras.dll"; DestDir: "{app}"; Flags: ignoreversion; Components: RequiredFiles; Languages: english french german spanish greek
87
Source: "..\Pithos.Client.WPF\bin\Debug\Pithos.Core.dll"; DestDir: "{app}"; Flags: ignoreversion; Components: RequiredFiles; Languages: english french german spanish greek
88
Source: "..\Pithos.Client.WPF\bin\Debug\Pithos.Interfaces.dll"; DestDir: "{app}"; Flags: ignoreversion; Components: RequiredFiles; Languages: english french german spanish greek
89
Source: "..\Pithos.Client.WPF\bin\Debug\Pithos.Network.dll"; DestDir: "{app}"; Flags: ignoreversion; Components: RequiredFiles; Languages: english french german spanish greek
90
Source: "..\Pithos.Client.WPF\bin\Debug\System.Data.SQLite.dll"; DestDir: "{app}"; Flags: ignoreversion; Components: RequiredFiles; Languages: english french german spanish greek
91
Source: "..\Pithos.Client.WPF\bin\Debug\System.Threading.Tasks.Dataflow.dll"; DestDir: "{app}"; Flags: ignoreversion; Components: RequiredFiles; Languages: english french german spanish greek
92
Source: "..\Pithos.Client.WPF\bin\Debug\System.Windows.Interactivity.dll"; DestDir: "{app}"; Flags: ignoreversion; Components: RequiredFiles; Languages: english french german spanish greek
93
Source: "..\Pithos.Client.WPF\bin\Debug\WPFToolkit.Extended.dll"; DestDir: "{app}"; Flags: ignoreversion; Components: RequiredFiles; Languages: english french german spanish greek
88
Source: "..\Pithos.ShellExtensions\bin\x86\Debug\Pithos.ShellExtensions.dll"; DestDir: "{app}"; Flags: restartreplace ignoreversion; Components: RequiredFiles; Languages: english french german spanish greek; Check: not Is64BitInstallMode
89
Source: "..\Pithos.ShellExtensions\bin\x64\Debug\Pithos.ShellExtensions.dll"; DestDir: "{app}"; Flags: restartreplace ignoreversion; Components: RequiredFiles; Languages: english french german spanish greek; Check: Is64BitInstallMode
90
Source: "..\Pithos.Client.WPF\bin\Debug\AppLimit.NetSparkle.Net40.dll"; DestDir: "{app}"; Flags: restartreplace ignoreversion; Components: RequiredFiles; Languages: english french german spanish greek
91
Source: "..\Pithos.Client.WPF\bin\Debug\AsyncCtpLibrary.dll"; DestDir: "{app}"; Flags: restartreplace ignoreversion; Components: RequiredFiles; Languages: english french german spanish greek
92
Source: "..\Pithos.Client.WPF\bin\Debug\Caliburn.Micro.dll"; DestDir: "{app}"; Flags: restartreplace ignoreversion; Components: RequiredFiles; Languages: english french german spanish greek
93
Source: "..\Pithos.Client.WPF\bin\Debug\Castle.ActiveRecord.dll"; DestDir: "{app}"; Flags: restartreplace ignoreversion; Components: RequiredFiles; Languages: english french german spanish greek
94
Source: "..\Pithos.Client.WPF\bin\Debug\Castle.Components.Validator.dll"; DestDir: "{app}"; Flags: restartreplace ignoreversion; Components: RequiredFiles; Languages: english french german spanish greek
95
Source: "..\Pithos.Client.WPF\bin\Debug\Castle.Core.dll"; DestDir: "{app}"; Flags: restartreplace ignoreversion; Components: RequiredFiles; Languages: english french german spanish greek
96
Source: "..\Pithos.Client.WPF\bin\Debug\Hardcodet.Wpf.TaskbarNotification.dll"; DestDir: "{app}"; Flags: restartreplace ignoreversion; Components: RequiredFiles; Languages: english french german spanish greek
97
Source: "..\Pithos.Client.WPF\bin\Debug\Iesi.Collections.dll"; DestDir: "{app}"; Flags: restartreplace ignoreversion; Components: RequiredFiles; Languages: english french german spanish greek
98
Source: "..\Pithos.Client.WPF\bin\Debug\log4net.dll"; DestDir: "{app}"; Flags: restartreplace ignoreversion; Components: RequiredFiles; Languages: english french german spanish greek
99
Source: "..\Pithos.Client.WPF\bin\Debug\Newtonsoft.Json.dll"; DestDir: "{app}"; Flags: restartreplace ignoreversion; Components: RequiredFiles; Languages: english french german spanish greek
100
Source: "..\Pithos.Client.WPF\bin\Debug\NHibernate.ByteCode.Castle.dll"; DestDir: "{app}"; Flags: restartreplace ignoreversion; Components: RequiredFiles; Languages: english french german spanish greek
101
Source: "..\Pithos.Client.WPF\bin\Debug\NHibernate.dll"; DestDir: "{app}"; Flags: restartreplace ignoreversion; Components: RequiredFiles; Languages: english french german spanish greek
102
Source: "..\Pithos.Client.WPF\bin\Debug\NHibernate.Search.dll"; DestDir: "{app}"; Flags: restartreplace ignoreversion; Components: RequiredFiles; Languages: english french german spanish greek
103
Source: "..\Pithos.Client.WPF\bin\Debug\ParallelExtensionsExtras.dll"; DestDir: "{app}"; Flags: restartreplace ignoreversion; Components: RequiredFiles; Languages: english french german spanish greek
104
Source: "..\Pithos.Client.WPF\bin\Debug\Pithos.Core.dll"; DestDir: "{app}"; Flags: restartreplace ignoreversion; Components: RequiredFiles; Languages: english french german spanish greek
105
Source: "..\Pithos.Client.WPF\bin\Debug\Pithos.Interfaces.dll"; DestDir: "{app}"; Flags: restartreplace ignoreversion; Components: RequiredFiles; Languages: english french german spanish greek
106
Source: "..\Pithos.Client.WPF\bin\Debug\Pithos.Network.dll"; DestDir: "{app}"; Flags: restartreplace ignoreversion; Components: RequiredFiles; Languages: english french german spanish greek
107
Source: "..\Pithos.Client.WPF\bin\Debug\System.Data.SQLite.dll"; DestDir: "{app}"; Flags: restartreplace ignoreversion; Components: RequiredFiles; Languages: english french german spanish greek
108
Source: "..\Pithos.Client.WPF\bin\Debug\System.Threading.Tasks.Dataflow.dll"; DestDir: "{app}"; Flags: restartreplace ignoreversion; Components: RequiredFiles; Languages: english french german spanish greek
109
Source: "..\Pithos.Client.WPF\bin\Debug\System.Windows.Interactivity.dll"; DestDir: "{app}"; Flags: restartreplace ignoreversion; Components: RequiredFiles; Languages: english french german spanish greek
110
Source: "..\Pithos.Client.WPF\bin\Debug\WPFToolkit.Extended.dll"; DestDir: "{app}"; Flags: restartreplace ignoreversion; Components: RequiredFiles; Languages: english french german spanish greek
94 111
; Tortoise
95 112
Source: "TortoiseOverlays\License.txt"; DestDir: "{cf}/\TortoiseOverlays"; Flags: ignoreversion; Components: RequiredFiles; Languages: english french german spanish greek
96
Source: "TortoiseOverlays\x86\TortoiseOverlays.dll"; DestDir: "{cf}/\TortoiseOverlays"; Components: RequiredFiles; Languages: english french german spanish greek; Check: not Is64BitInstallMode
97
Source: "TortoiseOverlays\x64\TortoiseOverlays.dll"; DestDir: "{cf}/\TortoiseOverlays"; Components: RequiredFiles; Languages: english french german spanish greek; Check: Is64BitInstallMode
113
Source: "TortoiseOverlays\x86\TortoiseOverlays.dll"; DestDir: "{cf}/\TortoiseOverlays"; Flags: restartreplace; Components: RequiredFiles; Languages: english french german spanish greek; Check: not Is64BitInstallMode
114
Source: "TortoiseOverlays\x64\TortoiseOverlays.dll"; DestDir: "{cf}/\TortoiseOverlays"; Flags: restartreplace; Components: RequiredFiles; Languages: english french german spanish greek; Check: Is64BitInstallMode
98 115
Source: "TortoiseOverlays\icons\XPStyle\*"; DestDir: "{cf}/\TortoiseOverlays/icons/\XPStyle"; Flags: ignoreversion; Components: RequiredFiles; Languages: english french german spanish greek
99 116
;Redistributables
100 117
Source: "Redistributables\*"; DestDir: "{tmp}"; Flags: ignoreversion deleteafterinstall
......
110 127
Name: "{group}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"
111 128
Name: "{group}\{cm:ProgramOnTheWeb,{#MyAppName}}"; Filename: "{#MyAppURL}"
112 129
Name: "{group}\{cm:ProgramOnTheWeb,GRNET}"; Filename: "{#MyURL}"
113
Name: "{group}\{cm:UninstallProgram,{#MyAppName}}"; Filename: "{uninstallexe}"
130
;Name: "{group}\{cm:UninstallProgram,{#MyAppName}}"; Filename: "{uninstallexe}"
131
Name: "{group}\Uninstall {#MyAppName}"; Filename: "{app}\UninsHs.exe"; Parameters: /u0=AppId
114 132
Name: "{commonstartup}\{#MyStartupName}"; Filename: "{app}\{#MyAppExeName}"; Parameters: "startup"
115 133
Name: "{commondesktop}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"; Tasks: desktopicon
116 134
;Name: "{userappdata}\Microsoft\Internet Explorer\Quick Launch\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"; Tasks: quicklaunchicon
......
231 249
Root: "HKCR"; Subkey: "CLSID\{{EAD1663B-9A03-4E92-80D3-B01B981CD828}\InprocServer32\1.0.0.0"; ValueType: String; ValueName: "CodeBase"; ValueData: "{app}\Pithos.ShellExtensions.dll";  
232 250
Root: "HKCR"; Subkey: "CLSID\{{EAD1663B-9A03-4E92-80D3-B01B981CD828}\InprocServer32\1.0.0.0"; ValueType: String; ValueName: "RuntimeVersion"; ValueData: "v4.0.30319"; Components: RequiredFiles
233 251
Root: "HKCR"; Subkey: "CLSID\{{EAD1663B-9A03-4E92-80D3-B01B981CD828}\ProgId"; ValueType: String; ValueName: "(Default)"; ValueData: "Pithos.ShellExtensions.Overlays.AddedIcodOverlay";  
234
;Root: "HKCR"; Subkey: "Software\Classes\CLSID\{{C5994560-53D9-4125-87C9-F193FC689CB2}"; ValueType: "String"; ValueData: "*";  
235
;Root: "HKCR"; Subkey: "Software\Classes\CLSID\{{C5994560-53D9-4125-87C9-F193FC689CB2}"; ValueType: "String"; ValueData: "TortoiseSVN";  
236
;Root: "HKCR"; Subkey: "Software\Classes\CLSID\{{C5994560-53D9-4125-87C9-F193FC689CB2}\InProcServer32"; ValueType: "String"; ValueData: "ThreadingModel";  
237
;Root: "HKCR"; Subkey: "Software\Classes\CLSID\{{C5994560-53D9-4125-87C9-F193FC689CB2}\InProcServer32"; ValueType: "String"; ValueData: "[CommonFilesFolder.9D3DBC93_494B_45A8_88D7_430AB5568B0F]TortoiseOverlays\TortoiseOverlays.dll";  
252
  
238 253
Root: "HKCR"; Subkey: "Directory\Background\shellex\ContextMenuHandlers\Pithos.FileContextMenu"; ValueType: String; ValueData: "{{b1f1405d-94a1-4692-b72f-fc8caf8b8700}";  
239 254
Root: "HKCR"; Subkey: "Directory\shellex\ContextMenuHandlers\Pithos.FileContextMenu"; ValueType: String; ValueData: "{{b1f1405d-94a1-4692-b72f-fc8caf8b8700}";  
240 255
Root: "HKCR"; Subkey: "Pithos.ShellExtensions.FileContextMenu"; ValueType: String; ValueData: "Pithos.ShellExtensions.Menus.FileContextMenu";  
......
297 312
         ChkBox: TCheckBox;
298 313
        LicenseID: Integer;      
299 314

  
315
// IssFindModule called on in/uninstall
316
function IssFindModule(hWnd: Integer; Modulename: String; Language: PAnsiChar; Silent: Boolean; CanIgnore: Boolean ): Integer;
317
external 'IssFindModuleW@files:IssProc.dll stdcall setuponly';
318

  
319
function IssFindModuleU(hWnd: Integer; Modulename: String; Language: PAnsiChar; Silent: Boolean; CanIgnore: Boolean ): Integer;
320
external 'IssFindModuleW@{app}\IssProc.dll stdcall uninstallonly';
321

  
322
//Call this to enable search for any in use file type
323
function IssEnableAnyFileInUseCheck(Folder: String): Integer;
324
external 'IssEnableAnyFileInUseCheckW@files:IssProc.dll stdcall setuponly';
325

  
326
//IssEnableAnyFileInUseCheck called on uninstall
327
function IssEnableAnyFileInUseCheckU(Folder: String): Integer;
328
external 'IssEnableAnyFileInUseCheckW@{app}\IssProc.dll stdcall uninstallonly';
329

  
330
//Register for commercial use on install
331
function IssRegister(rName: PAnsiChar; rKey: PAnsiChar): Integer;
332
external 'IssRegister@files:IssProc.dll stdcall setuponly';
333

  
334
//Register for commercial use on uninstall
335
function IssRegisterU(rName: PAnsiChar; rKey: PAnsiChar): Integer;
336
external 'IssRegister@{app}\IssProc.dll stdcall uninstallonly';
337

  
338
// Importing LoadSkin API from ISSkin.DLL
339
procedure LoadSkin(lpszPath: String; lpszIniFileName: String);
340
external 'LoadSkin@files:isskin.dll stdcall';
341

  
342
procedure UnloadSkin();
343
external 'UnloadSkin@files:isskin.dll stdcall';
344

  
345
// Importing ShowWindow Windows API from User32.DLL
346
function ShowWindow(hWnd: Integer; uType: Integer): Integer;
347
external 'ShowWindow@user32.dll stdcall';
348

  
300 349
function IsDotNetDetected(version: string; service: cardinal): boolean;
301 350
//    'v1.1.4322'     .NET Framework 1.1
302 351
//    'v2.0.50727'    .NET Framework 2.0
......
330 379
    result := success and (install = 1) and (serviceCount >= service);
331 380
end;
332 381

  
382
function NextButtonClick(CurPage: Integer): Boolean;
383
var
384
  hWnd: Integer;
385
  sModuleName: String;
386
  nCode: Integer;  {IssFindModule returns: 0 if no module found; 1 if cancel pressed; 2 if ignore pressed; -1 if an error occured }
387
begin
388
  Result := true;
389

  
390
 if CurPage = wpReady then
391
   begin
392
      Result := false;
393
            
394
      hWnd := StrToInt(ExpandConstant('{wizardhwnd}'));                     { get main wizard handle }
395
      IssEnableAnyFileInUseCheck(ExpandConstant('{app}'));
396
      sModuleName :=ExpandConstant('{app}*;pithos*.exe;PithosPlus.exe');      
397
      
398
      nCode:=IssFindModule(hWnd,sModuleName,'en',false,true);                { search for module and display files-in-use window if found  }
399

  
400
     if nCode=1 then  begin                                                 { cancel pressed or files-in-use window closed }
401
          PostMessage (WizardForm.Handle, $0010, 0, 0);                     { quit setup, $0010=WM_CLOSE }
402
     end else if (nCode=0) or (nCode=2) then begin                          { no module found or ignored pressed}
403
          Result := true;                                                   { continue setup  }
404
     end;
405

  
406
  end;
407

  
408
end;
409

  
333 410
function InitializeSetup(): Boolean;
334 411
begin
335
    // Test the presence of .NET 4.0
336
    if (not(RegKeyExists(HKLM, 'SOFTWARE\Microsoft\NET Framework Setup\NDP\v4'))) then
337
        dotNET40Missing := True;
412
  //Unpack The Skin
413
  ExtractTemporaryFile('GRNETWhite.msstyles');
414
  LoadSkin(ExpandConstant('{tmp}\GRNETWhite.msstyles'), '');
415
    
416
  // Test the presence of .NET 4.0
417
  if (not(RegKeyExists(HKLM, 'SOFTWARE\Microsoft\NET Framework Setup\NDP\v4'))) then
418
      dotNET40Missing := True;
419
    
420
  Result := True;
421
end;
338 422

  
339
    Result := True;
423
procedure DeinitializeSetup();
424
begin
425
  //Hide Window widget
426
  ShowWindow(StrToInt(ExpandConstant('{wizardhwnd}')), 0);
427
  UnloadSkin();
340 428
end;
341 429

  
342 430
function ShouldInstalldotNET40(): Boolean;
......
350 438
    IsUpdate := FileExists(ExpandConstant('{app}\{#MyAppExeName}'));
351 439
  if CurPageID = LicenseID then
352 440
    Wizardform.NextButton.Enabled := False;
353

  
441
  if (Pos('/SP-', UpperCase(GetCmdTail)) > 0) and (CurPageID = wpSelectComponents) then
442
    WizardForm.BackButton.Visible := False;
354 443
end;
355 444

  
356 445
function NotAnUpdate: Boolean;
......
427 516
  ChkBox := TCheckBox.Create(Page);
428 517
  ChkBox.Top := BitmapImage.Height + Memo.Height;
429 518
  ChkBox.Width := Page.SurfaceWidth;
430
  ChkBox.Caption := 'I Agree with the GRNET licese';
519
  ChkBox.Caption := 'I agree with the licese agreement';
431 520
  ChkBox.Checked := cbUnChecked;
432 521
  chkBox.OnClick := @LicenseOnClick;
433 522
  ChkBox.Parent := Page.Surface;
......
467 556
  CreateTheWizardPages; 
468 557
end;
469 558

  
559
function ShouldSkipPage(CurPage: Integer): Boolean;
560
    begin
561
      if Pos('/SP-', UpperCase(GetCmdTail)) > 0 then
562
        case CurPage of
563
          wpLicense, wpPassword, wpInfoBefore, wpUserInfo,
564
          wpSelectDir, wpSelectProgramGroup, wpInfoAfter:
565
            Result := True;
566
        end;
567
    end;
568
    
470 569
[Run]
471 570
;Kill Running Task
472 571
Filename: cmd; parameters: /c taskkill /f /im pithos.exe;Flags: runhidden
473 572
Filename: cmd; parameters: /c taskkill /f /im pithos.client.WPF.exe;Flags: runhidden
474 573
;Launch Redist
475
Filename: {tmp}\dotNetFx40_Client_setup.exe; Description: Install Microsoft .Net Framework 4.0; Parameters: /q /noreboot; Flags: skipifdoesntexist; Check: ShouldInstalldotNET40
574
Filename: {tmp}\dotNetFx40_Client_setup.exe; Description: Install Microsoft .Net Framework 4.0; Parameters: /q /noreboot; Flags: skipifdoesntexist; Check: ShouldInstalldotNET40
575
Filename: {app}\UninsHs.exe; Parameters: /r0=AppId,{language},{srcexe}; Flags: runminimized

Also available in: Unified diff