[Setup]
SourceDir=.
OutputDir=Setup
AppName=Need for Speed 3 Vista Edition
AppVerName=Need for Speed 3 Vista Edition
AppVersion=Need for Speed 3 Vista Edition
DefaultDirName={pf}\Need for Speed 3 Vista Edition
DefaultGroupName=Need for Speed 3 Vista Edition
AllowNoIcons=yes
OutputBaseFilename=setup
WizardImageFile=D:\nfs3\big2.bmp
WizardSmallImageFile=D:\nfs3\es.bmp
SetupIconFile=D:\nfs3\NFS3.ICO
WindowVisible=no
WindowShowCaption=no
WindowResizable=no
Compression=lzma/max
DiskSpanning=no
DiskSliceSize=2100000000
SlicesPerDisk=1
[Languages]
Name: russian; MessagesFile: compiler:Languages\Russian.isl
[Tasks]
Name: desktopicon; Description: {cm:CreateDesktopIcon}; GroupDescription: {cm:AdditionalIcons}
[Files]
Source: papka2.bmp; DestDir: {tmp}; Flags: dontcopy
Source: logo1.bmp; DestDir: {tmp}; Flags: dontcopy
[Icons]
Name: {group}\Need for Speed 3 Vista Edition; Filename: {app}\Affinity.exe; WorkingDir: {app}; Parameters: D:\games\nfs 3\nfs3.exe
Name: {userdesktop}\Need for Speed 3 Vista Edition; Filename: {app}\Affinity.exe; WorkingDir: {app}; Tasks: desktopicon; Parameters: D:\games\nfs 3\nfs3.exe
Name: {group}\{cm:UninstallProgram,Need for Speed 3 Vista Edition}; Filename: {uninstallexe}
[Run]
Description: {cm:LaunchProgram, Need for Speed 3 Vista Edition}; Filename: {app}\Affinity.exe; WorkingDir: {app}; Parameters: D:\games\nfs 3\nfs3.exe; Flags: nowait postinstall skipifsilent unchecked
[UninstallDelete]
Type: filesandordirs; Name: {app}
[Code]
const
Color = clblack;
procedure InitializeWizard1();
begin
WizardForm.Font.Color:=clWhite;
WizardForm.Color:=clblack;
WizardForm.WelcomeLabel1.Font.Color:=clWhite;
WizardForm.WelcomeLabel1.Color:=Color;
WizardForm.WelcomePage.Color:=Color;
WizardForm.InnerPage.Color:=Color;
WizardForm.FinishedPage.Color:=Color;
WizardForm.LicensePage.Color:=clblack;
WizardForm.PasswordPage.Color:=Color;
WizardForm.InfoBeforePage.Color:=Color;
WizardForm.UserInfoPage.Color:=Color;
WizardForm.SelectDirPage.Color:=Color;
WizardForm.SelectComponentsPage.Color:=Color;
WizardForm.SelectProgramGroupPage.Color:=Color;
WizardForm.SelectTasksPage.Color:=Color;
WizardForm.ReadyPage.Color:=Color;
WizardForm.PreparingPage.Color:=Color;
WizardForm.InstallingPage.Color:=Color;
WizardForm.InfoAfterPage.Color:=Color;
WizardForm.DirEdit.Color:=clGray;
WizardForm.DiskSpaceLabel.Color:=Color;
WizardForm.DirEdit.Color:=clGray;
WizardForm.GroupEdit.Color:=Color;
WizardForm.PasswordLabel.Color:=Color;
WizardForm.PasswordEdit.Color:=Color;
WizardForm.PasswordEditLabel.Color:=Color;
WizardForm.ReadyMemo.Color:=Color;
WizardForm.TypesCombo.Color:=Color;
WizardForm.WelcomeLabel1.Color:=Color;
WizardForm.InfoBeforeClickLabel.Color:=Color;
WizardForm.MainPanel.Color:=Color;
WizardForm.PageNameLabel.Color:=Color;
WizardForm.PageDescriptionLabel.Color:=Color;
WizardForm.ReadyLabel.Color:=Color;
WizardForm.FinishedLabel.Color:=Color;
WizardForm.YesRadio.Color:=Color;
WizardForm.NoRadio.Color:=Color;
WizardForm.WelcomeLabel2.Color:=Color;
WizardForm.LicenseLabel1.Color:=Color;
WizardForm.InfoAfterClickLabel.Color:=Color;
WizardForm.ComponentsList.Color:=Color;
WizardForm.ComponentsDiskSpaceLabel.Color:=Color;
WizardForm.BeveledLabel.Color:=Color;
WizardForm.StatusLabel.Color:=Color;
WizardForm.FilenameLabel.Color:=Color;
WizardForm.SelectDirLabel.Color:=Color;
WizardForm.SelectStartMenuFolderLabel.Color:=Color;
WizardForm.SelectComponentsLabel.Color:=Color;
WizardForm.SelectTasksLabel.Color:=Color;
WizardForm.LicenseAcceptedRadio.Color:=Color;
WizardForm.LicenseNotAcceptedRadio.Color:=Color;
WizardForm.UserInfoNameLabel.Color:=Color;
WizardForm.UserInfoNameEdit.Color:=Color;
WizardForm.UserInfoOrgLabel.Color:=Color;
WizardForm.UserInfoOrgEdit.Color:=Color;
WizardForm.PreparingLabel.Color:=Color;
WizardForm.FinishedHeadingLabel.Color:=Color;
WizardForm.UserInfoSerialLabel.Color:=Color;
WizardForm.UserInfoSerialEdit.Color:=Color;
WizardForm.TasksList.Color:=Color;
WizardForm.RunList.Color:=Color;
WizardForm.SelectDirBrowseLabel.Color:=Color;
WizardForm.SelectStartMenuFolderBrowseLabel.Color:=Color;
ExtractTemporaryFile('papka2.bmp');
WizardForm.SelectDirBitmapImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\papka2.bmp'));
WizardForm.SelectDirBitmapImage.AutoSize:=true;
WizardForm.SelectGroupBitmapImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\papka2.bmp'));
WizardForm.SelectGroupBitmapImage.AutoSize:=true;
end;
procedure TestButtonOnClick(Sender: TObject);
begin
ShellExec('open', 'rustorka.com', '', '', SW_SHOWNORMAL, ewNoWait, ReturnCode)
end;
procedure InitializeWizard2();
var
BtnPanel: TPanel;
BtnImage: TBitmapImage;
begin
BtnPanel:=TPanel.Create(WizardForm)
with BtnPanel do begin
Left:=20
Top:=325
Width:=132
Height:=27
Cursor:=crHand
OnClick:=@TestButtonOnClick
Parent:=WizardForm
end
BtnImage:=TBitmapImage.Create(WizardForm)
with BtnImage do begin
AutoSize:=True
Enabled:=False
ExtractTemporaryFile('logo1.bmp')
Bitmap.LoadFromFile(ExpandConstant('{tmp}')+'\logo1.bmp')
Parent:=BtnPanel
end
end;
