Synnefo » Pithos MS Client

; Script generated by the Inno Setup Script Wizard.

; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES!

#define MyAppName "Pithos+"

#define SrcApp "PSourcex64\Pithos.Client.WPF.exe"

#define MyAppPublisher "GRNET"

#define MyAppURL "http://pithos.grnet.gr/"

#define MyAppExeName "Pithos.Client.WPF.exe"

#define MyAppVersion GetFileVersion(SrcApp)

#define MyURL "http://www.grnet.gr/"

[Setup]

;WARNING: DO NOT CHANGE THE APP ID (AppId) or the update will not work correctly.

;AppId is used to check if we are installed using this isntaller and not by other means.

AppId={{926354B2-04D2-47CF-8FAA-04AB3682008B}

AppName={#MyAppName}

AppVersion={#MyAppVersion}

AppVerName={#MyAppName} {#MyAppVersion}

UninstallDisplayName={#MyAppName} {#MyAppVersion}

AppPublisher={#MyAppPublisher}

AppPublisherURL={#MyAppURL}

AppSupportURL={#MyAppURL}

AppUpdatesURL={#MyAppURL}

DefaultDirName={pf}\PithosPlus

DefaultGroupName={#MyAppName}

AllowNoIcons=yes

LicenseFile=Licenses\GRNET License.txt

OutputBaseFilename=PithosPlus_Setupv{#MyAppVersion}

SolidCompression=True

UsePreviousSetupType=False

UsePreviousTasks=False

UsePreviousLanguage=False

ShowTasksTreeLines=True

AppCopyright=(c) 2011 - 2012 GRNET

PrivilegesRequired=none

EnableDirDoesntExistWarning=True

DirExistsWarning=yes

AppContact=okeanos@grnet.gr

AppSupportPhone=+30 210 0000000

AppReadmeFile=My Readme

UninstallDisplayIcon={app}\Pithos.Client.WPF.exe

WizardImageFile=Images\ppWZDImage.bmp

WizardSmallImageFile=Images\ppWZDSmall.bmp

VersionInfoVersion={#MyAppVersion}

MinVersion=0,5.01sp3

[Languages]

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

Name: "greek"; MessagesFile: "compiler:Languages\Greek.isl"

Name: "german"; MessagesFile: "compiler:Languages\German.isl"

Name: "french"; MessagesFile: "compiler:Languages\French.isl"

Name: "spanish"; MessagesFile: "compiler:Languages\Spanish.isl"

[CustomMessages]

Web=You can visit our web site for more info

[Tasks]

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

;Name: "quicklaunchicon"; Description: "{cm:CreateQuickLaunchIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked; OnlyBelowVersion: 0,6.1; Components: Manual RequiredFiles Source

Name: "visitweb"; Description: "{cm:Web}"; GroupDescription: "{cm:Web}"; Flags: unchecked; Components: Documentation RequiredFiles; Languages: english french german greek spanish

[Files]

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

Source: "PSourcex64\Pithos.Client.WPF.exe"; DestDir: "{app}"; Flags: ignoreversion; Components: RequiredFiles; Languages: english french german spanish greek; Check: Is64BitInstallMode

Source: "PSource\Pithos.Client.WPF.exe"; DestDir: "{app}"; Flags: ignoreversion; Components: RequiredFiles; Languages: english french german spanish greek; Check: not Is64BitInstallMode

Source: "PSourcex64\AsyncCtpLibrary.dll"; DestDir: "{app}"; Flags: ignoreversion; Components: RequiredFiles; Tasks: desktopicon; Languages: english french german spanish greek

Source: "PSourcex64\Castle.ActiveRecord.dll"; DestDir: "{app}"; Flags: ignoreversion; Components: RequiredFiles; Languages: english french german spanish greek

Source: "PSourcex64\Caliburn.Micro.dll"; DestDir: "{app}"; Flags: ignoreversion; Components: RequiredFiles; Languages: english french german spanish greek

Source: "PSourcex64\Castle.ActiveRecord.dll"; DestDir: "{app}"; Flags: ignoreversion; Components: RequiredFiles; Languages: english french german spanish greek

Source: "PSourcex64\Castle.Components.Validator.dll"; DestDir: "{app}"; Flags: ignoreversion; Components: RequiredFiles; Languages: english french german spanish greek

Source: "PSourcex64\Castle.Core.dll"; DestDir: "{app}"; Flags: ignoreversion; Components: RequiredFiles; Languages: english french german spanish greek

Source: "PSourcex64\Hardcodet.Wpf.TaskbarNotification.dll"; DestDir: "{app}"; Flags: ignoreversion; Components: RequiredFiles; Languages: english french german spanish greek

Source: "PSourcex64\Iesi.Collections.dll"; DestDir: "{app}"; Flags: ignoreversion; Components: RequiredFiles; Languages: english french german spanish greek

Source: "PSourcex64\log4net.dll"; DestDir: "{app}"; Flags: ignoreversion; Components: RequiredFiles; Languages: english french german spanish greek

Source: "PSourcex64\Newtonsoft.Json.dll"; DestDir: "{app}"; Flags: ignoreversion; Components: RequiredFiles; Languages: english french german spanish greek

Source: "PSourcex64\NHibernate.ByteCode.Castle.dll"; DestDir: "{app}"; Flags: ignoreversion; Components: RequiredFiles; Languages: english french german spanish greek

Source: "PSourcex64\NHibernate.dll"; DestDir: "{app}"; Flags: ignoreversion; Components: RequiredFiles; Languages: english french german spanish greek

Source: "PSourcex64\NHibernate.Search.dll"; DestDir: "{app}"; Flags: ignoreversion; Components: RequiredFiles; Languages: english french german spanish greek

Source: "PSourcex64\ParallelExtensionsExtras.dll"; DestDir: "{app}"; Flags: ignoreversion; Components: RequiredFiles; Languages: english french german spanish greek

Source: "PSourcex64\Pithos.Client.WPF.exe.config"; DestDir: "{app}"; Flags: ignoreversion; Components: RequiredFiles; Languages: english french german spanish greek

Source: "PSourcex64\Pithos.Core.dll"; DestDir: "{app}"; Flags: ignoreversion; Components: RequiredFiles; Languages: english french german spanish greek

Source: "PSourcex64\Pithos.Interfaces.dll"; DestDir: "{app}"; Flags: ignoreversion; Components: RequiredFiles; Languages: english french german spanish greek

Source: "PSourcex64\Pithos.Network.dll"; DestDir: "{app}"; Flags: ignoreversion; Components: RequiredFiles; Languages: english french german spanish greek

Source: "PSourcex64\Pithos.ShellExtensions.dll"; DestDir: "{app}"; Flags: ignoreversion; Components: RequiredFiles; Languages: english french german spanish greek

;Source: "PSourcex64\Pithos.ShellExtensions.tlb"; DestDir: "{app}"; Flags: ignoreversion; Components: RequiredFiles; Languages: english french german spanish greek

Source: "PSourcex64\System.Data.SQLite.dll"; DestDir: "{app}"; Flags: ignoreversion; Components: RequiredFiles; Languages: english french german spanish greek

Source: "PSourcex64\System.Threading.Tasks.Dataflow.dll"; DestDir: "{app}"; Flags: ignoreversion; Components: RequiredFiles; Languages: english french german spanish greek

Source: "PSourcex64\System.Windows.Interactivity.dll"; DestDir: "{app}"; Flags: ignoreversion; Components: RequiredFiles; Languages: english french german spanish greek

Source: "PSourcex64\WPFToolkit.Extended.dll"; DestDir: "{app}"; Flags: ignoreversion; Components: RequiredFiles; Languages: english french german spanish greek

Source: "TortoiseOverlays\License.txt"; DestDir: "{cf}/\TortoiseOverlays"; Flags: ignoreversion; Components: RequiredFiles; Languages: english french german spanish greek

Source: "TortoiseOverlays\TortoiseOverlays.dll"; DestDir: "{cf}/\TortoiseOverlays"; Flags: ignoreversion; Components: RequiredFiles; Languages: english french german spanish greek

Source: "TortoiseOverlays\icons\XPStyle\AddedIcon.ico"; DestDir: "{cf}/\TortoiseOverlays/icons/\XPStyle"; Flags: ignoreversion; Components: RequiredFiles; Languages: english french german spanish greek

Source: "TortoiseOverlays\icons\XPStyle\ConflictIcon.ico"; DestDir: "{cf}/TortoiseOverlays/icons/\XPStyle"; Flags: ignoreversion; Components: RequiredFiles; Languages: english french german spanish greek

Source: "TortoiseOverlays\icons\XPStyle\DeletedIcon.ico"; DestDir: "{cf}/\TortoiseOverlays/icons/\XPStyle"; Flags: ignoreversion; Components: RequiredFiles; Languages: english french german spanish greek

Source: "TortoiseOverlays\icons\XPStyle\IgnoredIcon.ico"; DestDir: "{cf}/\TortoiseOverlays/icons/\XPStyle"; Flags: ignoreversion; Components: RequiredFiles; Languages: english french german spanish greek

Source: "TortoiseOverlays\icons\XPStyle\LockedIcon.ico"; DestDir: "{cf}/\TortoiseOverlays/icons/\XPStyle"; Flags: ignoreversion; Components: RequiredFiles; Languages: english french german spanish greek

Source: "TortoiseOverlays\icons\XPStyle\ModifiedIcon.ico"; DestDir: "{cf}/\TortoiseOverlays/icons/\XPStyle"; Flags: ignoreversion; Components: RequiredFiles; Languages: english french german spanish greek

Source: "TortoiseOverlays\icons\XPStyle\NormalIcon.ico"; DestDir: "{cf}/\TortoiseOverlays/icons/\XPStyle"; Flags: ignoreversion; Components: RequiredFiles; Languages: english french german spanish greek

Source: "TortoiseOverlays\icons\XPStyle\ReadOnlyIcon.ico"; DestDir: "{cf}/\TortoiseOverlays/icons/\XPStyle"; Flags: ignoreversion; Components: RequiredFiles; Languages: english french german spanish greek

Source: "TortoiseOverlays\icons\XPStyle\UnversionedIcon.ico"; DestDir: "{cf}/\TortoiseOverlays/icons/\XPStyle"; Flags: ignoreversion; Components: RequiredFiles; Languages: english french german spanish greek

;32 & 64 Bit

;Source: "PSourcex64\Pithos.Client.WPF.exe"; DestDir: "{app}"; DestName: "MyProg.exe"; Check: Is64BitInstallMode

;Source: "PSource\Pithos.Client.WPF.exe"; DestDir: "{app}"; Check: not Is64BitInstallMode

;Redistributables

Source: "Redistributables\*"; DestDir: "{tmp}"; Flags: ignoreversion deleteafterinstall

Source: "Images\grnet-logo.bmp"; Flags: dontcopy

Source: "Images\account.bmp"; Flags: dontcopy

[Icons]

Name: "{group}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"

Name: "{group}\{cm:ProgramOnTheWeb,{#MyAppName}}"; Filename: "{#MyAppURL}"

Name: "{group}\{cm:ProgramOnTheWeb,GRNET}"; Filename: "{#MyURL}"

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

Name: "{commonstartup}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"

Name: "{commondesktop}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"; Tasks: desktopicon

;Name: "{userappdata}\Microsoft\Internet Explorer\Quick Launch\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"; Tasks: quicklaunchicon

[Run]

Filename: "{app}\{#MyAppExeName}"; Description: "{cm:LaunchProgram,{#StringChange(MyAppName, '&', '&&')}}"; Flags: nowait postinstall skipifsilent

[Registry]

;Startup 

;Root: HKLM; Subkey: "SOFTWARE\Microsoft\Windows\CurrentVersion\Run"; ValueType: string; ValueName: "Pithos+"; ValueData: """{app}\{#MyAppExeName}"""; Flags: createvalueifdoesntexist uninsdeletevalue

Root: "HKCR"; Subkey: "*\shellex\ContextMenuHandlers\Pithos.FileContextMenu"; ValueData: "b1f1405d-94a1-4692-b72f-fc8caf8b8700"; Flags: createvalueifdoesntexist uninsdeletekey

Root: "HKCR"; Subkey: "CLSID\0CFB4119-DABE-4E32-AB2D-2D41873BC599"; ValueData: "PithosContextMenu Class"; Flags: createvalueifdoesntexist uninsdeletekey

[Components]

Name: "RequiredFiles"; Description: "Required Files"; Types: Advanced Default; Flags: checkablealone fixed; Languages: english french german greek spanish

Name: "Documentation"; Description: "Documentation"; Types: Default Advanced; Flags: dontinheritcheck; Languages: english french german greek spanish

[Types]

Name: "Default"; Description: "Default Installation"; Languages: english french german greek spanish

Name: "Advanced"; Description: "Custom Installation"; Flags: iscustom; Languages: english german french greek spanish

[Dirs]

Name: "{cf}/\TortoiseOverlays"; Components: RequiredFiles; Tasks: desktopicon; Languages: english french german greek spanish

Name: "{cf}/\TortoiseOverlays/\icons"

Name: "{cf}/\TortoiseOverlays/icons/\XPStyle"

[Code]

const 

  WM_QUIT = 18;

  MyAppMutex = 'MYAPPMUTEX';

var 

dotNET40Missing: Boolean;

       IsUpdate: boolean;

      UsagePage: TOutputMsgWizardPage;

      Wz1, Wz2 : TOutputMsgWizardPage;

function IsDotNetDetected(version: string; service: cardinal): boolean;

//    'v1.1.4322'     .NET Framework 1.1

//    'v2.0.50727'    .NET Framework 2.0

//    'v3.0'          .NET Framework 3.0

//    'v3.5'          .NET Framework 3.5

//    'v4\Client'     .NET Framework 4.0 Client Profile

//    'v4\Full'       .NET Framework 4.0 Full Installation

// service pack

//    0               No service packs required

//    1, 2, etc.      Service pack 1, 2, etc. required

//    if not IsDotNetDetected('v4\Client', 0) then begin

var

    key: string;

    install, serviceCount: cardinal;

    success: boolean;

begin

    key := 'SOFTWARE\Microsoft\NET Framework Setup\NDP\' + version;

    // .NET 3.0 uses value InstallSuccess in subkey Setup

    if Pos('v3.0', version) = 1 then begin

        success := RegQueryDWordValue(HKLM, key + '\Setup', 'InstallSuccess', install);

    end else begin

        success := RegQueryDWordValue(HKLM, key, 'Install', install);

    end;

    // .NET 4.0 uses value Servicing instead of SP

    if Pos('v4', version) = 1 then begin

        success := success and RegQueryDWordValue(HKLM, key, 'Servicing', serviceCount);

    end else begin

        success := success and RegQueryDWordValue(HKLM, key, 'SP', serviceCount);

    end;

    result := success and (install = 1) and (serviceCount >= service);

end;

function InitializeSetup(): Boolean;

begin

    // Test the presence of .NET 4.0

    if (not(RegKeyExists(HKLM, 'SOFTWARE\Microsoft\NET Framework Setup\NDP\v4'))) then

        dotNET40Missing := True;

    Result := True;

end;

function ShouldInstalldotNET40(): Boolean;

begin

    Result := dotNET40Missing;

end;

procedure CurPageChanged(CurPageID: Integer);

begin

  if CurPageID = wpInstalling then

    IsUpdate := FileExists(ExpandConstant('{app}\{#MyAppExeName}'));

end;

function NotAnUpdate: Boolean;

begin

  result := not IsUpdate;

end;

procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);

var

mRes : integer;

begin

  case CurUninstallStep of

    usUninstall:

      begin

        mRes := MsgBox('Do you want to remove your settings?', mbConfirmation, MB_YESNO or MB_DEFBUTTON2)

        if mRes = IDYES then

          begin

            DelTree(ExpandConstant('{localappdata}')+'\GRNET',true,true,true);

          End

        else

          MsgBox ('Settings will not be removed', mbInformation, MB_OK);        

      end;

  end;

end;

procedure BitmapImageOnClick(Sender: TObject);

var

  ErrCode: integer;

begin

  ShellExec('open', 'http://pithos.grnet.gr','', '', SW_SHOW, ewNoWait, ErrCode);

end;

procedure CreateTheWizardPages;

var

  Page: TWizardPage;

  Button, FormButton: TNewButton;

  BitmapImage,BitmapImage1: TBitmapImage;

  BitmapFileName: String;

  Memo: TMemo;

  LabelWz: TLabel;

begin

  Page := CreateCustomPage(wpWelcome, 'GRNET Pithos+ Dev Build {#MyAppVersion}', 'Software License');

  BitmapFileName := ExpandConstant('{tmp}\grnet-logo.bmp');

  ExtractTemporaryFile(ExtractFileName(BitmapFileName));

  Page.Surface.Color := clWhite;

  BitmapImage := TBitmapImage.Create(Page);

  BitmapImage.AutoSize := True;

  BitmapImage.Bitmap.LoadFromFile(BitmapFileName);

  BitmapImage.Cursor := crHand;

  BitmapImage.Left := (Page.Surfacewidth - BitmapImage.Width) / 2;

  BitmapImage.Top := Page.Surface.Top;

  BitmapImage.OnClick := @BitmapImageOnClick;

  BitmapImage.Parent := Page.Surface;

  Memo := TMemo.Create(Page);

  Memo.Top := BitmapImage.Height;

  Memo.Width := Page.SurfaceWidth;

  Memo.Height := Page.SurfaceHeight - (BitmapImage.Height)

  Memo.ScrollBars := ssVertical;

  Memo.Text := 'This software is provided by GRNET S.A. "as is" and any express or implied warranties, including, but not limited to, the implied warranties of merchantability and fitness for a particular purpose are disclaimed. In no event shall GRNET S.A. or contributors be liable for any direct, indirect, incidental, special, exemplary, or consequential damages (including, but not limited to, procurement of substitute goods or services; loss of use, data, or profits; or business interruption) however caused and on any theory of liability, whether in contract, strict liability, or tort (including negligence or otherwise) arising in any way out of the use of this software, even if advised of the possibility of such damage.';

  Memo.Parent := Page.Surface;

  Page := CreateCustomPage(wpInfoAfter, 'First Steps', 'Setup your account');

  BitmapFileName := ExpandConstant('{tmp}\account.bmp');

  ExtractTemporaryFile(ExtractFileName(BitmapFileName));

  Page.Surface.Color := clWhite;

  BitmapImage1 := TBitmapImage.Create(Page);

  BitmapImage1.width := Page.SurfaceWidth;

  BitmapImage1.height := PAge.SurfaceHeight;

  BitmapImage1.Bitmap.LoadFromFile(BitmapFileName);

  //BitmapImage1.Cursor := crHand;

  BitmapImage1.Left := 0 //(Page.Surfacewidth - BitmapImage.Width) / 2;

  BitmapImage1.Top := Page.Surface.Top;

  //BitmapImage1.OnClick := @BitmapImageOnClick;

  BitmapImage1.Parent := Page.Surface;

  LabelWz := Tlabel.Create(Page);

  LabelWz.Top := 0;

  LabelWz.Caption := 'To setup your account right click on the Pithos+ icon in the taskbar.';

  LabelWz.Parent := Page.Surface;

end;

procedure InitializeWizard;

var

winHwnd: longint;

retVal : boolean;

strProg: string;

begin

  winHwnd := FindWindowByClassName('{#MyAppExeName}');

  if winHwnd<>0 then begin { no module found or ignored pressed}

      postmessage(winHwnd,WM_QUIT,0,0);

   //abort();  

  end;   

  CreateTheWizardPages;

end;

[Run]

Filename: {tmp}\dotNetFx40_Client_setup.exe; Description: Install Microsoft .Net Framework 4.0;    Parameters: /q /noreboot; Flags: skipifdoesntexist; Check: ShouldInstalldotNET40

====================================================================

Copyright (c) 2007-2008 The TortoiseSVN Project.  All rights reserved.

Preamble:

The TortoiseOverlays handler was written to reduce the problems with

the limited available icon overlay handler slots in Windows. The goal

is to have all clients use it equally. The purpose of this license is

to allow all clients to use the TortoiseOverlays handler, no matter 

what license the client itself has. And to state some rules for all 

clients to avoid compatibility problems and for users to know where

the TortoiseOverlays handler comes from.

Redistribution and use of the TortoiseOverlays handler and the overlay 

icons in it are permitted provided that the following conditions are met:

1. Clients using the TortoiseOverlay handler must provide an

   acknowlegdement that it was taken from the TortoiseSVN project, with

   a link to the project website (tortoisesvn.net)

   in one or more of the following places:

   a) an "about" box.

   b) the product user manual.

   c) a textfile in the installation folder of the application.

   d) a contributors page on the product web page.

2. The name "TortoiseSVN" must not be used to endorse or

   promote products using this overlay handler without prior written

   permission. For written permission, please contact

   dev@tortoisesvn.tigris.org.