diff options
Diffstat (limited to 'installer/opentrack-installer.iss')
| -rw-r--r-- | installer/opentrack-installer.iss | 90 | 
1 files changed, 0 insertions, 90 deletions
| diff --git a/installer/opentrack-installer.iss b/installer/opentrack-installer.iss index d87cafd7..e8a20b6c 100644 --- a/installer/opentrack-installer.iss +++ b/installer/opentrack-installer.iss @@ -8,8 +8,6 @@  #define MyAppURL "http://github.com/opentrack/opentrack"  #define MyAppExeName "opentrack.exe" -#include "non-ui-blocking-exec.iss" -  [Setup]  ; NOTE: The value of AppId uniquely identifies this application.  ; Do not use the same AppId value in installers for other applications. @@ -52,94 +50,6 @@ Name: "{group}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"  Name: "{commondesktop}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"; Tasks: desktopicon  [Run] -Filename: "timeout.exe"; Parameters: "/t 0"; Flags: runhidden; StatusMsg: Installing RealSense Runtime. This may take several minutes.; Check: RSCameraDriverDetectedAndEulaAccepted  Filename: "{app}\{#MyAppExeName}"; Flags: nowait postinstall skipifsilent; Description: "{cm:LaunchProgram,{#StringChange(MyAppName, '&', '&&')}}";   [Code] -var -  EulaAccepted:Boolean; -  RSCameraDriverDetected:Boolean; -  EULAPage: TOutputMsgMemoWizardPage; -  EULAAcceptRadioButton: TNewRadioButton; -  EULARefuseRadioButton: TNewRadioButton; - -function IsRSCameraDriverPresent():Boolean; -var -    Version:String; -begin -      result := RegQueryStringValue(HKEY_LOCAL_MACHINE, 'Software\Intel\RSSDK\Components\ivcam', -     'Version', Version) or RegQueryStringValue(HKEY_LOCAL_MACHINE, 'Software\Wow6432Node\Intel\RSDCM\SR300', -     'Version', Version) -end; - -procedure EULAAcceptRefuseButtonStateUpdated(Sender: TObject); -begin -  EulaAccepted := EULAAcceptRadioButton.Checked -end; - - -function RSCameraDriverDetectedAndEulaAccepted():Boolean; -begin -result := RSCameraDriverDetected and EulaAccepted; -end; - -procedure DoPostInstall(); -var -  Version: String;                -  ExecInfo: TShellExecuteInfo; -begin -if RSCameraDriverDetectedAndEulaAccepted then -  begin -    NonUiBlockingExec(ExpandConstant('{app}\doc\contrib\intel_rs_sdk_runtime_websetup_10.0.26.0396.exe'),  -    '--silent --no-progress --acceptlicense=yes --front --finstall=core,face3d --fnone=all'); -  end -end; - -procedure CurStepChanged(CurStep: TSetupStep); - begin - if CurStep = ssPostInstall then - begin -   DoPostInstall() - end -end; - -procedure InitializeWizard(); -var -  EULAText: AnsiString; -begin - -EulaAccepted := false -RSCameraDriverDetected := IsRSCameraDriverPresent() - -if RSCameraDriverDetected then -  begin -  ExtractTemporaryFile('RS_EULA.rtf'); -    if LoadStringFromFile(ExpandConstant('{tmp}\RS_EULA.rtf'), EULAText) then -    begin -    EULAPage := CreateOutputMsgMemoPage(wpLicense, -      'Information', 'Intel RealSense End-User License agreement', -      'Opentrack may use the Intel RealSense SDK Runtime on your compatible system. To get it installed, please accept its EULA:', -      EULAText);  -      EULAPage.RichEditViewer.Height := ScaleY(148); -      EULAAcceptRadioButton := TNewRadioButton.Create(EULAPage); -      EULAAcceptRadioButton.Left := EULAPage.RichEditViewer.Left; -      EULAAcceptRadioButton.Top := EULAPage.Surface.ClientHeight - ScaleY(41); -      EULAAcceptRadioButton.Width := EULAPage.RichEditViewer.Width; -      EULAAcceptRadioButton.Parent := EULAPage.Surface; -      EULAAcceptRadioButton.Caption := SetupMessage(msgLicenseAccepted); -      EULARefuseRadioButton := TNewRadioButton.Create(EULAPage); -      EULARefuseRadioButton.Left := EULAPage.RichEditViewer.Left; -      EULARefuseRadioButton.Top := EULAPage.Surface.ClientHeight - ScaleY(21); -      EULARefuseRadioButton.Width := EULAPage.RichEditViewer.Width; -      EULARefuseRadioButton.Parent := EULAPage.Surface; -      EULARefuseRadioButton.Caption := SetupMessage(msgLicenseNotAccepted); - -      // Set the states and event handlers -      EULAAcceptRadioButton.OnClick := @EULAAcceptRefuseButtonStateUpdated; -      EULARefuseRadioButton.OnClick := @EULAAcceptRefuseButtonStateUpdated; -      EULARefuseRadioButton.Checked := true; -      EulaAccepted := EULAAcceptRadioButton.Checked -    //TODO: if camera is detected, activate RS EULA page and RSSDK install, save if it was accepted or not.  -    end -  end -end; | 
