diff options
Diffstat (limited to 'installer/opentrack-installer.iss')
| -rw-r--r-- | installer/opentrack-installer.iss | 94 |
1 files changed, 93 insertions, 1 deletions
diff --git a/installer/opentrack-installer.iss b/installer/opentrack-installer.iss index c29bc4a3..cf963bed 100644 --- a/installer/opentrack-installer.iss +++ b/installer/opentrack-installer.iss @@ -8,6 +8,8 @@ #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. @@ -49,4 +51,94 @@ Name: "{group}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}" Name: "{commondesktop}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"; Tasks: desktopicon [Run] -Filename: "{app}\{#MyAppExeName}"; Flags: nowait postinstall skipifsilent; Description: "{cm:LaunchProgram,{#StringChange(MyAppName, '&', '&&')}}" +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}\contrib\intel_rs_sdk_runtime_websetup_8.0.24.6528.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: String; +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;
\ No newline at end of file |