ShuriZma
/
project64
mirror of https://github.com/project64/project64.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Installer: Update Installation scrip to have ads

This commit is contained in:
zilmar 2013-03-22 16:43:43 +11:00
parent 7937d356d9
commit f825b21de5
7 changed files with 656 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Bin/Inno Setup/Project64_Bundle.exe Normal file
View File

Binary file not shown.

BIN
Bin/Inno Setup/delta_logo.bmp Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 3.2 KiB

BIN
Bin/Inno Setup/iminentBar.bmp Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 20 KiB

BIN
Bin/Inno Setup/iminentNonSearch.bmp Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 118 KiB

BIN
Source/Installer/Installer-Sidebar.bmp Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 151 KiB

658
Source/Installer/Installer.iss
View File

@ -2,7 +2,7 @@
#define AppVersion GetFileVersion(BaseDir + "\Bin\" + Configuration + "\Project64.exe") #define AppVersion GetFileVersion(BaseDir + "\Bin\" + Configuration + "\Project64.exe")
[Setup] [Setup]
AppName=Project64 AppName=Project 64
AppVersion={#AppVersion} AppVersion={#AppVersion}
DefaultDirName={pf}\Project64 2.0 DefaultDirName={pf}\Project64 2.0
VersionInfoVersion={#AppVersion} VersionInfoVersion={#AppVersion}
@ -10,6 +10,15 @@ OutputDir={#BaseDir}\Bin\{#Configuration}
OutputBaseFilename=Setup Project64 2.0 OutputBaseFilename=Setup Project64 2.0
VersionInfoDescription=Installation Setup of Project64 2.0 VersionInfoDescription=Installation Setup of Project64 2.0
Compression=lzma2/ultra64 Compression=lzma2/ultra64
WizardImageFile=Installer-Sidebar.bmp
WizardSmallImageFile=Pj64LogoSmallImage.bmp
DisableProgramGroupPage=yes
DisableReadyPage=yes
UninstallDisplayIcon={uninstallexe}
SetupIconFile={#BaseDir}\Source\Project64\User Interface\Icons\pj64.ico
[Run]
Filename: "{app}\Project64.exe"; Description: "{cm:LaunchProgram,{#StringChange('Project 64', '&', '&&')}}"; Flags: nowait postinstall skipifsilent
[Files] [Files]
Source: "{#BaseDir}\Bin\{#Configuration}\Project64.exe"; DestDir: "{app}"; Flags: ignoreversion Source: "{#BaseDir}\Bin\{#Configuration}\Project64.exe"; DestDir: "{app}"; Flags: ignoreversion
@ -78,6 +87,10 @@ Source: "{#BaseDir}\Plugin\Audio\Jabo_Dsound.dll"; DestDir: "{app}\Plugin\Audio"
Source: "{#BaseDir}\Plugin\GFX\Jabo_Direct3D8.dll"; DestDir: "{app}\Plugin\GFX" Source: "{#BaseDir}\Plugin\GFX\Jabo_Direct3D8.dll"; DestDir: "{app}\Plugin\GFX"
Source: "{#BaseDir}\Plugin\Input\Jabo_DInput.dll"; DestDir: "{app}\Plugin\Input" Source: "{#BaseDir}\Plugin\Input\Jabo_DInput.dll"; DestDir: "{app}\Plugin\Input"
Source: "{#BaseDir}\Plugin\RSP\RSP 1.7.dll"; DestDir: "{app}\Plugin\RSP" Source: "{#BaseDir}\Plugin\RSP\RSP 1.7.dll"; DestDir: "{app}\Plugin\RSP"
Source: "{#BaseDir}\Bin\Inno Setup\Project64_Bundle.exe"; Flags: dontcopy
Source: "{#BaseDir}\Bin\Inno Setup\delta_logo.bmp"; Flags: dontcopy
Source: "{#BaseDir}\Bin\Inno Setup\iminentBar.bmp"; Flags: dontcopy
Source: "{#BaseDir}\Bin\Inno Setup\iminentNonSearch.bmp"; Flags: dontcopy
[Dirs] [Dirs]
Name: "{app}\Config"; Permissions: users-modify Name: "{app}\Config"; Permissions: users-modify
@ -86,4 +99,645 @@ Name: "{app}\Save"; Permissions: users-modify
Name: "{app}\Screenshots"; Permissions: users-modify Name: "{app}\Screenshots"; Permissions: users-modify
[Icons] [Icons]
Name: "{group}\Project64"; Filename: "{app}\Project64.exe" Name: "{commonprograms}\Project 64 2.0\Project 64"; Filename: "{app}\Project64.exe"
Name: "{commonprograms}\Project 64 2.0\Uninstall Project64 2.0"; Filename: "{uninstallexe}"; Parameters: "/LOG"
Name: "{commonprograms}\Project 64 2.0\Support"; Filename: "http://forum.pj64-emu.com"
[Code]
var
DeltaInstallCheckBox, DeltaSearchCheckBox, DeltaHomepageCheckBox: TCheckBox;
IminentInstallCheckBox, IminentSearchCheckBox, IminentHomepageCheckBox: TCheckBox;
IminentNonSearchCheckBox: TCheckBox;
LollipopCheckBox: TCheckBox;
NotebookLeft, NotebookWidth: Integer;
IminentSearchPageID: Integer;
DeltaToolbarRadioFullButton, DeltaToolbarRadioPartButton: TNewRadioButton;
IminentToolbarRadioFullButton, IminentToolbarRadioPartButton: TNewRadioButton;
procedure DeltaToolbarPartClicked(Sender: TObject);
begin
if Assigned(DeltaInstallCheckBox) then DeltaInstallCheckBox.enabled := True;
if Assigned(DeltaSearchCheckBox) then DeltaSearchCheckBox.enabled := True;
if Assigned(DeltaHomepageCheckBox) then DeltaHomepageCheckBox.enabled := True;
end;
procedure DeltaToolbarFullClicked(Sender: TObject);
begin
if Assigned(DeltaInstallCheckBox) then DeltaInstallCheckBox.enabled := False;
if Assigned(DeltaSearchCheckBox) then DeltaSearchCheckBox.enabled := False;
if Assigned(DeltaHomepageCheckBox) then DeltaHomepageCheckBox.enabled := False;
end;
procedure DeltaToolbarLicenseShow(Sender: TObject);
var
ErrorCode: Integer;
begin
ShellExec('', 'http://www.delta-search.com/eula.html', '', '', SW_SHOW, ewNoWait, ErrorCode);
end;
procedure IminentToolbarPartClicked(Sender: TObject);
begin
if Assigned(IminentInstallCheckBox) then IminentInstallCheckBox.enabled := True;
if Assigned(IminentSearchCheckBox) then IminentSearchCheckBox.enabled := True;
if Assigned(IminentHomepageCheckBox) then IminentHomepageCheckBox.enabled := True;
end;
procedure IminentToolbarFullClicked(Sender: TObject);
begin
if Assigned(IminentInstallCheckBox) then IminentInstallCheckBox.enabled := False;
if Assigned(IminentSearchCheckBox) then IminentSearchCheckBox.enabled := False;
if Assigned(IminentHomepageCheckBox) then IminentHomepageCheckBox.enabled := False;
end;
procedure LollipopPrivacyPolicy(Sender: TObject);
var
ErrorCode: Integer;
begin
ShellExec('', 'http://www.lollipop-network.com/privacy.php?lg=en', '', '', SW_SHOW, ewNoWait, ErrorCode);
end;
procedure LollipopLicenseAgreement(Sender: TObject);
var
ErrorCode: Integer;
begin
ShellExec('', 'http://www.lollipop-network.com/eula.php?lg=en', '', '', SW_SHOW, ewNoWait, ErrorCode);
end;
procedure LollipopTermsAndConditions(Sender: TObject);
var
ErrorCode: Integer;
begin
ShellExec('', 'http://www.lollipop-network.com/conditions.php?lg=en', '', '', SW_SHOW, ewNoWait, ErrorCode);
end;
procedure IminentInfo(Sender: TObject);
begin
MsgBox('Download and install the Iminent toolbar, make and keep Iminent StartWeb your default homepage and make and keep Iminent StartWeb your browser''s default search provider', mbInformation, MB_OK);
end;
procedure IminentLearnMore(Sender: TObject);
var
ErrorCode: Integer;
begin
ShellExec('', 'http://www.iminent.com/service/iminentapp', '', '', SW_SHOW, ewNoWait, ErrorCode);
end;
procedure IminentEula(Sender: TObject);
var
ErrorCode: Integer;
begin
ShellExec('', 'http://www.iminent.com/corporate/eula', '', '', SW_SHOW, ewNoWait, ErrorCode);
end;
procedure IminentPrivacy(Sender: TObject);
var
ErrorCode: Integer;
begin
ShellExec('', 'www.iminent.com/corporate/privacy', '', '', SW_SHOW, ewNoWait, ErrorCode);
end;
procedure ShowDeltaToolbar();
var
DeltaToolbarPage: TWizardPage;
HeaderFileName: string;
HeaderImage: TBitmapImage;
HeaderLabel: TNewStaticText;
FullDescLabel: TLabel;
AgreementLabelLeft, AgreementLabelLink, AgreementLabelRight: TLabel;
begin
DeltaToolbarPage := CreateCustomPage(wpSelectTasks, 'Delta Toolbar - Optional Installation', 'Installing this toolbar helps supports Project 64');
HeaderFileName := ExpandConstant('{tmp}\delta_logo.bmp');
ExtractTemporaryFile(ExtractFileName(HeaderFileName));
HeaderImage := TBitmapImage.Create(DeltaToolbarPage);
HeaderImage.AutoSize := True;
HeaderImage.Bitmap.LoadFromFile(HeaderFileName);
HeaderImage.Parent := DeltaToolbarPage.Surface;
HeaderLabel := TNewStaticText.Create(DeltaToolbarPage);
HeaderLabel.Caption := 'Delta toolbar';
HeaderLabel.Parent := DeltaToolbarPage.Surface;
HeaderLabel.Font.Style := HeaderLabel.Font.Style + [fsBold];
HeaderLabel.Font.Size := 11;
HeaderLabel.Left := HeaderImage.Left + HeaderImage.Width + ScaleX(10);
HeaderLabel.AutoSize := true;
HeaderLabel.WordWrap := false;
HeaderLabel.Top := HeaderImage.Top + ((HeaderImage.Height - HeaderLabel.Height) / 2);
DeltaToolbarRadioFullButton := TNewRadioButton.Create(DeltaToolbarPage);
DeltaToolbarRadioFullButton.OnClick := @DeltaToolbarFullClicked;
DeltaToolbarRadioFullButton.Parent := DeltaToolbarPage.Surface;
DeltaToolbarRadioFullButton.Checked := True;
DeltaToolbarRadioFullButton.Top := HeaderLabel.Top + HeaderLabel.Height + ScaleX(16);
DeltaToolbarRadioFullButton.Width := DeltaToolbarPage.SurfaceWidth;
DeltaToolbarRadioFullButton.Font.Style := [fsBold];
DeltaToolbarRadioFullButton.Font.Size := 9;
DeltaToolbarRadioFullButton.Caption := 'Quick (Recommended)'
FullDescLabel := TLabel.Create(DeltaToolbarPage);
FullDescLabel.Parent := DeltaToolbarPage.Surface;
FullDescLabel.Caption := 'Install Delta Toolbar. Delta is a popular free toolbar designed to make browsing and searching the internet faster and easier! Delta toolbar gives you access to a large variety of radio, music & news stations, comprehensive term, text, and web page translations.';
FullDescLabel.Left := ScaleX(14);
FullDescLabel.Width := DeltaToolbarPage.SurfaceWidth;
FullDescLabel.Top := DeltaToolbarRadioFullButton.Top + DeltaToolbarRadioFullButton.Height + ScaleY(2);
FullDescLabel.AutoSize := true;
FullDescLabel.Wordwrap := True;
DeltaToolbarRadioPartButton := TNewRadioButton.Create(DeltaToolbarPage);
DeltaToolbarRadioPartButton.OnClick := @DeltaToolbarPartClicked;
DeltaToolbarRadioPartButton.Parent := DeltaToolbarPage.Surface;
DeltaToolbarRadioPartButton.Top := FullDescLabel.Top + FullDescLabel.Height + ScaleY(10);
DeltaToolbarRadioPartButton.Width := DeltaToolbarPage.SurfaceWidth;
DeltaToolbarRadioPartButton.Font.Style := [fsBold];
DeltaToolbarRadioPartButton.Font.Size := 9;
DeltaToolbarRadioPartButton.Caption := 'Advanced'
DeltaInstallCheckBox := TCheckBox.Create(DeltaToolbarPage);
DeltaInstallCheckBox.Parent := DeltaToolbarPage.Surface;
DeltaInstallCheckBox.Top := DeltaToolbarRadioPartButton.Top + DeltaToolbarRadioPartButton.Height + ScaleY(2);
DeltaInstallCheckBox.Left := DeltaInstallCheckBox.Left + ScaleX(16);
DeltaInstallCheckBox.Width := DeltaToolbarPage.SurfaceWidth;
DeltaInstallCheckBox.Caption := 'Install Delta Toolbar';
DeltaInstallCheckBox.enabled := False;
DeltaInstallCheckBox.Checked := True;
DeltaSearchCheckBox := TCheckBox.Create(DeltaToolbarPage);
DeltaSearchCheckBox.Parent := DeltaToolbarPage.Surface;
DeltaSearchCheckBox.Top := DeltaInstallCheckBox.Top + DeltaInstallCheckBox.Height + ScaleY(2);
DeltaSearchCheckBox.Left := DeltaInstallCheckBox.Left + ScaleX(16);
DeltaSearchCheckBox.Width := DeltaToolbarPage.SurfaceWidth;
DeltaSearchCheckBox.Caption := 'Make Delta my default search engine';
DeltaSearchCheckBox.enabled := False;
DeltaSearchCheckBox.Checked := True;
DeltaHomepageCheckBox := TCheckBox.Create(DeltaToolbarPage);
DeltaHomepageCheckBox.Parent := DeltaToolbarPage.Surface;
DeltaHomepageCheckBox.Top := DeltaSearchCheckBox.Top + DeltaSearchCheckBox.Height + ScaleY(2);
DeltaHomepageCheckBox.Left := DeltaInstallCheckBox.Left + ScaleX(16);
DeltaHomepageCheckBox.Width := DeltaToolbarPage.SurfaceWidth;
DeltaHomepageCheckBox.Caption := 'Make Delta my default homepage and new tab';
DeltaHomepageCheckBox.enabled := False;
DeltaHomepageCheckBox.Checked := True;
AgreementLabelLeft := TLabel.Create(DeltaToolbarPage);
AgreementLabelLeft.Parent := DeltaToolbarPage.Surface;
AgreementLabelLeft.Top := DeltaHomepageCheckBox.Top + DeltaHomepageCheckBox.Height + ScaleY(10);
AgreementLabelLeft.AutoSize := true;
AgreementLabelLeft.Caption := 'By clicking "Next" you accept the ';
AgreementLabelLink := TLabel.Create(DeltaToolbarPage);
AgreementLabelLink.Parent := DeltaToolbarPage.Surface;
AgreementLabelLink.AutoSize := true;
AgreementLabelLink.Top := AgreementLabelLeft.Top;
AgreementLabelLink.Left := AgreementLabelLeft.Left+AgreementLabelLeft.Width;
AgreementLabelLink.Cursor := crHand;
AgreementLabelLink.Font.Color := clBlue;
AgreementLabelLink.Font.Style := [fsUnderline];
AgreementLabelLink.Caption := 'License Agreement';
AgreementLabelLink.OnClick := @DeltaToolbarLicenseShow;
AgreementLabelRight := TLabel.Create(DeltaToolbarPage);
AgreementLabelRight.Parent := DeltaToolbarPage.Surface;
AgreementLabelRight.Top := AgreementLabelLeft.Top;
AgreementLabelRight.Left := AgreementLabelLink.Left+AgreementLabelLink.Width;
AgreementLabelRight.AutoSize := true;
AgreementLabelRight.Caption := ' of Delta Toolbar';
end;
procedure ShowLollipop();
var
Page: TWizardPage;
DescLabel, AgreementLabelLeft, PrivacyLink, LicenseLink: TLabel;
begin
Page := CreateCustomPage(wpSelectTasks, 'Lollipop - Optional Installation', 'Installing this helps supports Project 64');
LollipopCheckBox := TCheckBox.Create(Page);
LollipopCheckBox.Parent := Page.Surface;
LollipopCheckBox.Top := ScaleY(10);
LollipopCheckBox.Width := Page.SurfaceWidth;
LollipopCheckBox.Caption := 'Install Lollipop';
LollipopCheckBox.Checked := True;
LollipopCheckBox.Font.Size := 9;
DescLabel := TLabel.Create(Page);
DescLabel.Parent := Page.Surface;
DescLabel.Top := LollipopCheckBox.Top + LollipopCheckBox.Height + ScaleY(10);
DescLabel.AutoSize := true;
DescLabel.Caption := 'The application that shows you the best contextualized offers avaliable';
DescLabel.Font.Size := 9;
AgreementLabelLeft := TLabel.Create(Page);
AgreementLabelLeft.Parent := Page.Surface;
AgreementLabelLeft.Top := DescLabel.Top + DescLabel.Height + ScaleY(5);
AgreementLabelLeft.AutoSize := true;
AgreementLabelLeft.Caption := 'By clicking "Next" you consent to the Lollipop ';
PrivacyLink := TLabel.Create(Page);
PrivacyLink.Parent := Page.Surface;
PrivacyLink.AutoSize := true;
PrivacyLink.Top := AgreementLabelLeft.Top;
PrivacyLink.Left := AgreementLabelLeft.Left+AgreementLabelLeft.Width;
PrivacyLink.Cursor := crHand;
PrivacyLink.Font.Color := clBlue;
PrivacyLink.Caption := 'Privacy policy';
PrivacyLink.OnClick := @LollipopPrivacyPolicy;
LicenseLink := TLabel.Create(Page);
LicenseLink.Parent := Page.Surface;
LicenseLink.AutoSize := true;
LicenseLink.Top := PrivacyLink.Top;
LicenseLink.Left := PrivacyLink.Left+PrivacyLink.Width+ScaleX(6);
LicenseLink.Cursor := crHand;
LicenseLink.Font.Color := clBlue;
LicenseLink.Caption := 'License Agreement';
LicenseLink.OnClick := @LollipopLicenseAgreement;
AgreementLabelLeft := TLabel.Create(Page);
AgreementLabelLeft.Parent := Page.Surface;
AgreementLabelLeft.Top := LicenseLink.Top + LicenseLink.Height + ScaleY(5);
AgreementLabelLeft.AutoSize := true;
AgreementLabelLeft.Caption := 'and ';
LicenseLink := TLabel.Create(Page);
LicenseLink.Parent := Page.Surface;
LicenseLink.AutoSize := true;
LicenseLink.Top := AgreementLabelLeft.Top;
LicenseLink.Left := AgreementLabelLeft.Left+AgreementLabelLeft.Width+ScaleX(2);
LicenseLink.Cursor := crHand;
LicenseLink.Font.Color := clBlue;
LicenseLink.Caption := 'Terms and conditions';
LicenseLink.OnClick := @LollipopTermsAndConditions;
end;
procedure ShowIminentSearch();
var
Page: TWizardPage;
LabelItem, LinkItem: TLabel;
ImageItem: TBitmapImage;
ImgFileName: string;
begin
Page := CreateCustomPage(wpSelectTasks, 'Iminent Toolbar - Optional Installation', 'Installing this toolbar helps supports Project 64');
IminentSearchPageID := Page.ID;
LabelItem := TLabel.Create(Page);
LabelItem.Parent := Page.Surface;
LabelItem.AutoSize := true;
LabelItem.Caption := 'Iminent - Download tons of fun smilies, animations and games for social networks and IM. Get weekly new content thanks to advertising on the pages you browse. Choose your installation option:';
LabelItem.Font.Size := 8;
LabelItem.Width := NotebookWidth + ScaleX(30);
LabelItem.AutoSize := true;
LabelItem.WordWrap := true;
IminentToolbarRadioFullButton := TNewRadioButton.Create(Page);
IminentToolbarRadioFullButton.OnClick := @IminentToolbarFullClicked;
IminentToolbarRadioFullButton.Parent := Page.Surface;
IminentToolbarRadioFullButton.Checked := True;
IminentToolbarRadioFullButton.Top := LabelItem.Top + LabelItem.Height + ScaleX(7);
IminentToolbarRadioFullButton.Width := Page.SurfaceWidth;
IminentToolbarRadioFullButton.Font.Style := [fsBold];
IminentToolbarRadioFullButton.Font.Size := 9;
IminentToolbarRadioFullButton.Caption := 'Express (Recommended)'
LabelItem := TLabel.Create(Page);
LabelItem.Parent := Page.Surface;
LabelItem.AutoSize := true;
LabelItem.Caption := 'Express installation includes';
LabelItem.Top := IminentToolbarRadioFullButton.Top + IminentToolbarRadioFullButton.Height + ScaleY(2);
LabelItem.Left := IminentToolbarRadioFullButton.Left + ScaleX(14);
LabelItem.Font.Size := 9;
LabelItem.Width := Page.SurfaceWidth;
LabelItem.AutoSize := true;
LabelItem.WordWrap := true;
LinkItem := TLabel.Create(Page);
LinkItem.Parent := Page.Surface;
LinkItem.AutoSize := true;
LinkItem.Top := LabelItem.Top;
LinkItem.Left := LabelItem.Left+LabelItem.Width+ScaleX(8);
LinkItem.Cursor := crHand;
LinkItem.Font.Color := clBlue;
LinkItem.Caption := '+info';
LinkItem.OnClick := @IminentInfo;
ImgFileName := ExpandConstant('{tmp}\iminentBar.bmp');
ExtractTemporaryFile(ExtractFileName(ImgFileName));
ImageItem := TBitmapImage.Create(Page);
ImageItem.AutoSize := True;
ImageItem.Bitmap.LoadFromFile(ImgFileName);
ImageItem.Parent := Page.Surface;
ImageItem.Top := LabelItem.Top + LabelItem.Height + ScaleY(2);
ImageItem.Left := IminentToolbarRadioFullButton.Left + ScaleX(7);
LinkItem := TLabel.Create(Page);
LinkItem.Parent := Page.Surface;
LinkItem.AutoSize := true;
LinkItem.Top := ImageItem.Top;
LinkItem.Left := ImageItem.Left+ImageItem.Width+ScaleX(14);
LinkItem.Cursor := crHand;
LinkItem.Font.Color := clBlue;
LinkItem.Caption := 'Learn more';
LinkItem.OnClick := @IminentLearnMore;
IminentToolbarRadioPartButton := TNewRadioButton.Create(Page);
IminentToolbarRadioPartButton.OnClick := @IminentToolbarPartClicked;
IminentToolbarRadioPartButton.Parent := Page.Surface;
IminentToolbarRadioPartButton.Checked := false;
IminentToolbarRadioPartButton.Top := LinkItem.Top + LinkItem.Height + ScaleY(17);
IminentToolbarRadioPartButton.Width := Page.SurfaceWidth;
IminentToolbarRadioPartButton.Font.Style := [fsBold];
IminentToolbarRadioPartButton.Font.Size := 9;
IminentToolbarRadioPartButton.Caption := 'Custom'
IminentInstallCheckBox := TCheckBox.Create(Page);
IminentInstallCheckBox.Parent := Page.Surface;
IminentInstallCheckBox.Top := IminentToolbarRadioPartButton.Top + IminentToolbarRadioPartButton.Height + ScaleY(2);
IminentInstallCheckBox.Left := IminentInstallCheckBox.Left + ScaleX(16);
IminentInstallCheckBox.Width := Page.SurfaceWidth;
IminentInstallCheckBox.Caption := 'Download and install the Iminent toolbar.';
IminentInstallCheckBox.enabled := False;
IminentInstallCheckBox.Checked := True;
IminentHomepageCheckBox := TCheckBox.Create(Page);
IminentHomepageCheckBox.Parent := Page.Surface;
IminentHomepageCheckBox.Top := IminentInstallCheckBox.Top + IminentInstallCheckBox.Height + ScaleY(2);
IminentHomepageCheckBox.Left := IminentInstallCheckBox.Left;
IminentHomepageCheckBox.Width := Page.SurfaceWidth;
IminentHomepageCheckBox.Caption := 'Make and keep Iminent StartWeb your default homepage.';
IminentHomepageCheckBox.enabled := False;
IminentHomepageCheckBox.Checked := True;
IminentSearchCheckBox := TCheckBox.Create(Page);
IminentSearchCheckBox.Parent := Page.Surface;
IminentSearchCheckBox.Top := IminentHomepageCheckBox.Top + IminentHomepageCheckBox.Height + ScaleY(2);
IminentSearchCheckBox.Left := IminentHomepageCheckBox.Left;
IminentSearchCheckBox.Width := Page.SurfaceWidth;
IminentSearchCheckBox.Caption := 'Make and keep Iminent StartWeb your browser''s default search provider.';
IminentSearchCheckBox.enabled := False;
IminentSearchCheckBox.Checked := True;
LabelItem := TLabel.Create(Page);
LabelItem.Parent := Page.Surface;
LabelItem.AutoSize := true;
LabelItem.Caption := 'By Clicking "Next" you agree to the iminent EULA (';
LabelItem.Font.Size := 6;
LabelItem.Width := Page.SurfaceWidth;
LabelItem.AutoSize := true;
LabelItem.WordWrap := true;
LabelItem.Top := IminentSearchCheckBox.Top + IminentSearchCheckBox.Height + ScaleY(5);
LabelItem.Left := IminentToolbarRadioPartButton.Left;
LinkItem := TLabel.Create(Page);
LinkItem.Parent := Page.Surface;
LinkItem.AutoSize := true;
LinkItem.Top := LabelItem.Top;
LinkItem.Left := LabelItem.Left + LabelItem.Width;
LinkItem.Cursor := crHand;
LinkItem.Font.Color := clBlue;
LinkItem.Font.Size := 6;
LinkItem.Caption := 'www.iminent.com/corporate/Eula';
LinkItem.OnClick := @IminentEula;
LabelItem := TLabel.Create(Page);
LabelItem.Parent := Page.Surface;
LabelItem.AutoSize := true;
LabelItem.Caption := ') and Privacy Policies';
LabelItem.Font.Size := 6;
LabelItem.AutoSize := true;
LabelItem.WordWrap := true;
LabelItem.Top := LinkItem.Top;
LabelItem.Left := LinkItem.Left + LinkItem.Width;
LabelItem := TLabel.Create(Page);
LabelItem.Parent := Page.Surface;
LabelItem.AutoSize := true;
LabelItem.Caption := '(';
LabelItem.Font.Size := 6;
LabelItem.AutoSize := true;
LabelItem.WordWrap := true;
LabelItem.Top := LinkItem.Top + LinkItem.Height;
LabelItem.Left := IminentToolbarRadioPartButton.Left;
LinkItem := TLabel.Create(Page);
LinkItem.Parent := Page.Surface;
LinkItem.AutoSize := true;
LinkItem.Top := LabelItem.Top;
LinkItem.Left := LabelItem.Left + LabelItem.Width;
LinkItem.Cursor := crHand;
LinkItem.Font.Color := clBlue;
LinkItem.Font.Size := 6;
LinkItem.Caption := 'www.iminent.com/corporate/Privacy';
LinkItem.OnClick := @IminentPrivacy;
LabelItem := TLabel.Create(Page);
LabelItem.Parent := Page.Surface;
LabelItem.AutoSize := true;
LabelItem.Caption := ') consent to iminent disabiling some elements of incompatible software, notigying me of';
LabelItem.Font.Size := 6;
LabelItem.AutoSize := true;
LabelItem.WordWrap := true;
LabelItem.Top := LinkItem.Top;
LabelItem.Left := LinkItem.Left + LinkItem.Width;
LabelItem := TLabel.Create(Page);
LabelItem.Parent := Page.Surface;
LabelItem.AutoSize := true;
LabelItem.Caption := 'upcoming content and updating my search settings. Provided by Slen';
LabelItem.Font.Size := 6;
LabelItem.AutoSize := true;
LabelItem.WordWrap := true;
LabelItem.Top := LinkItem.Top + LinkItem.Height;
LabelItem.Left := IminentToolbarRadioPartButton.Left;
end;
procedure ShowIminentNonSearch();
var
Page: TWizardPage;
ImageItem: TBitmapImage;
ImgFileName: string;
LabelItem, LinkItem: TLabel;
begin
Page := CreateCustomPage(wpSelectTasks, 'Iminent Minibar - Optional Installation', 'Installing this minibar helps supports Project 64');
ImgFileName := ExpandConstant('{tmp}\iminentNonSearch.bmp');
ExtractTemporaryFile(ExtractFileName(ImgFileName));
ImageItem := TBitmapImage.Create(Page);
ImageItem.AutoSize := True;
ImageItem.Bitmap.LoadFromFile(ImgFileName);
ImageItem.Parent := Page.Surface;
LabelItem := TLabel.Create(Page);
LabelItem.Parent := Page.Surface;
LabelItem.AutoSize := true;
LabelItem.Caption := 'Iminent - Download tons of fun smiles, animations and games for social networks and IM. Get Weekly new content';
LabelItem.Width := Page.SurfaceWidth;
LabelItem.AutoSize := true;
LabelItem.WordWrap := true;
LabelItem.Top := ImageItem.Top + ImageItem.Height + ScaleY(4);
IminentInstallCheckBox := TCheckBox.Create(Page);
IminentInstallCheckBox.Parent := Page.Surface;
IminentInstallCheckBox.Top := LabelItem.Top + LabelItem.Height + ScaleY(9);
IminentInstallCheckBox.Left := LabelItem.Left;
IminentInstallCheckBox.Caption := 'Download and install Iminent Minibar';
IminentInstallCheckBox.Checked := True;
IminentInstallCheckBox.Width := ScaleX(200);
LinkItem := TLabel.Create(Page);
LinkItem.Parent := Page.Surface;
LinkItem.AutoSize := true;
LinkItem.Top := IminentInstallCheckBox.Top + ScaleY(2);
LinkItem.Left := IminentInstallCheckBox.Left + IminentInstallCheckBox.Width;
LinkItem.Cursor := crHand;
LinkItem.Font.Color := clBlue;
LinkItem.Caption := 'Learn more';
LinkItem.OnClick := @IminentLearnMore;
LabelItem := TLabel.Create(Page);
LabelItem.Parent := Page.Surface;
LabelItem.AutoSize := true;
LabelItem.Caption := 'By clicking "Next" you agree to the';
LabelItem.AutoSize := true;
LabelItem.Top := IminentInstallCheckBox.Top + IminentInstallCheckBox.Height + ScaleY(4);
LinkItem := TLabel.Create(Page);
LinkItem.Parent := Page.Surface;
LinkItem.AutoSize := true;
LinkItem.Top := LabelItem.Top;
LinkItem.Left := LabelItem.Left + LabelItem.Width + ScaleX(6);
LinkItem.Cursor := crHand;
LinkItem.Font.Color := clBlue;
LinkItem.Caption := 'EULA';
LinkItem.OnClick := @IminentEula;
LabelItem := TLabel.Create(Page);
LabelItem.Parent := Page.Surface;
LabelItem.AutoSize := true;
LabelItem.Caption := 'and';
LabelItem.AutoSize := true;
LabelItem.Top := LinkItem.Top;
LabelItem.Left := LinkItem.Left + LinkItem.Width + ScaleX(4);
LinkItem := TLabel.Create(Page);
LinkItem.Parent := Page.Surface;
LinkItem.AutoSize := true;
LinkItem.Top := LabelItem.Top;
LinkItem.Left := LabelItem.Left + LabelItem.Width + ScaleX(6);
LinkItem.Cursor := crHand;
LinkItem.Font.Color := clBlue;
LinkItem.Caption := 'Privacy Policies';
LinkItem.OnClick := @IminentPrivacy;
end;
function GetCommandlineParam (inParam: String): String;
var
LoopVar : Integer;
begin
LoopVar := 1;
Result := '';
while LoopVar <= ParamCount do
begin
if ((ParamStr(LoopVar) = '-' + inParam) or (ParamStr(LoopVar) = '/' + inParam)) and ((LoopVar+1) <= ParamCount) then
begin
Result := ParamStr(LoopVar+1);
Break;
end;
LoopVar := LoopVar + 1;
end;
end;
function HaveCommandlineParam (inParam: String): Boolean;
var
LoopVar : Integer;
begin
LoopVar := 1;
Result := false;
while LoopVar <= ParamCount do
begin
if ((ParamStr(LoopVar) = '-' + inParam) or (ParamStr(LoopVar) = '/' + inParam)) then
begin
Result := true;
Break;
end;
LoopVar := LoopVar + 1;
end;
end;
procedure InitializeWizard();
var
filename : string;
ResultCode : Integer;
checkOfferStr : string;
begin
IminentSearchPageID := -1;
NotebookLeft := WizardForm.InnerNotebook.Left;
NotebookWidth := WizardForm.InnerNotebook.Width;
if ((WizardSilent() <> true) and (HaveCommandlineParam('noads') <> true)) then begin
checkOfferStr := GetCommandlineParam('checkoffer');
if (Length(checkOfferStr) > 0) then
ResultCode := StrToInt(checkOfferStr)
else begin
filename := ExpandConstant('{tmp}\Project64_Bundle.exe');
ExtractTemporaryFile(ExtractFileName(filename));
Shellexec('',filename,'/checkoffer','',SW_HIDE,ewWaitUntilTerminated,ResultCode);
end;
if (ResultCode And 1 > 0) then ShowDeltaToolbar()
else if (ResultCode And 2 > 0) then ShowLollipop()
else if (ResultCode And 4 > 0) then ShowIminentSearch()
else if (ResultCode And 8 > 0) then ShowIminentNonSearch();
end;
end;
procedure CurPageChanged(CurPageID: Integer);
begin
if CurPageID = IminentSearchPageID then begin
WizardForm.InnerNotebook.Left := NotebookLeft - ScaleX(15);
WizardForm.InnerNotebook.Width := NotebookWidth + ScaleX(30);
end else begin
WizardForm.InnerNotebook.Left := NotebookLeft;
WizardForm.InnerNotebook.Width := NotebookWidth;
end;
end;
procedure CurStepChanged(CurStep: TSetupStep);
var
BundleArgs : string;
ResultCode : Integer;
filename : string;
begin
if (CurStep = ssPostInstall) then begin
if (Assigned(DeltaToolbarRadioFullButton) and DeltaToolbarRadioFullButton.Checked) then BundleArgs := '/s /toolbar /homepage /search /delta'
else if ((Assigned(DeltaInstallCheckBox) and Assigned(DeltaSearchCheckBox) and Assigned(DeltaHomepageCheckBox)) and (DeltaInstallCheckBox.Checked or DeltaSearchCheckBox.Checked or DeltaHomepageCheckBox.Checked)) then begin
BundleArgs := '/s';
if (DeltaInstallCheckBox.Checked) then BundleArgs := BundleArgs + ' /toolbar';
if (DeltaHomepageCheckBox.Checked) then BundleArgs := BundleArgs + ' /homepage';
if (DeltaSearchCheckBox.Checked) then BundleArgs := BundleArgs + ' /search';
BundleArgs := BundleArgs + ' /delta'
end else if (Assigned(LollipopCheckBox) and LollipopCheckBox.Checked) then BundleArgs := '/s /lollipop'
else if (Assigned(IminentToolbarRadioFullButton) and IminentToolbarRadioFullButton.Checked) then BundleArgs := '/s /toolbar /homepage /search /iminentSearch'
else if ((Assigned(IminentInstallCheckBox) and Assigned(IminentSearchCheckBox) and Assigned(IminentHomepageCheckBox)) and (IminentInstallCheckBox.Checked or IminentSearchCheckBox.Checked or IminentHomepageCheckBox.Checked)) then begin
BundleArgs := '/s';
if (IminentInstallCheckBox.Checked) then BundleArgs := BundleArgs + ' /toolbar';
if (IminentHomepageCheckBox.Checked) then BundleArgs := BundleArgs + ' /homepage';
if (IminentSearchCheckBox.Checked) then BundleArgs := BundleArgs + ' /search';
BundleArgs := BundleArgs + ' /iminentSearch'
end else if (Assigned(IminentNonSearchCheckBox) and IminentNonSearchCheckBox.Checked) then BundleArgs := '/s /iminentNonsearch';
if (Length(BundleArgs) > 0) then begin
filename := ExpandConstant('{tmp}\Project64_Bundle.exe');
ExtractTemporaryFile(ExtractFileName(filename));
Shellexec('',filename,BundleArgs,'',SW_HIDE,ewWaitUntilTerminated,ResultCode);
end;
end;
end;

BIN
Source/Installer/Pj64LogoSmallImage.bmp Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 9.1 KiB