正式会员享受无限制浏览网站功能和高速网盘下载,赶快加入本站吧!
您需要 登录 才可以下载或查看,没有账号?立即注册
x
- [Setup]
- AppName=XP
- AppVerName=XP
- AppPublisher=XP
- AppPublisherURL=http://www.imseb.cn/
- AppSupportURL=http://www.imseb.cn/
- AppUpdatesURL=http://www.imseb.cn/
- CreateAppDir=false
- LicenseFile=D:\xp\xp.txt
- OutputDir=D:\
- OutputBaseFilename=setup
- Compression=lzma
- SolidCompression=true
- VersionInfoVersion=1.0.0.0
- VersionInfoTextVersion=1.0.0.0
- Uninstallable=false
- [Languages]
- Name: chinesesimp; MessagesFile: compiler:Default.isl
- [Files]
- Source: D:\xp\WindowsXP-KB935708-x86-CHS.exe; DestDir: {tmp}; Flags: ignoreversion; Components: xp
- Source: D:\xp\WindowsXP-KB933360-x86-CHS.exe; DestDir: {tmp}; Flags: ignoreversion; Components: nt
-
- [Components]
- Name: xp; Description: xp; Flags: checkablealone; Types: full
- Name: nt; Description: nt; Flags: checkablealone; Types: custom compact
- [Run]
- Filename: {tmp}\WindowsXP-KB935708-x86-CHS.exe; Parameters: /passive /quiet /norestart /nobackup; Flags: runminimized; Components: xp
- Filename: {tmp}\WindowsXP-KB933360-x86-CHS.exe; Parameters: /passive /quiet /norestart /nobackup; Flags: runminimized; Components: nt
- [Code]
- procedure AboutButtonOnClick(Sender: TObject);
- begin
- MsgBox('欢迎使用aaplayboy制作的程序,该程序来自霏凡论坛。', mbInformation, mb_Ok);
- end;
- procedure URLLabelOnClick(Sender: TObject);
- var
- ErrorCode: Integer;
- begin
- ShellExec('open', 'http://bbs.crsky.com', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);
- end;
- procedure InitializeWizard();
- var
- AboutButton, CancelButton: TButton;
- URLLabel: TNewStaticText;
- BackgroundBitmapImage: TBitmapImage;
- BackgroundBitmapText: TNewStaticText;
- begin
- CancelButton := WizardForm.CancelButton;
- AboutButton := TButton.Create(WizardForm);
- AboutButton.Left := WizardForm.ClientWidth - CancelButton.Left - CancelButton.Width;
- AboutButton.Top := CancelButton.Top;
- AboutButton.Width := CancelButton.Width;
- AboutButton.Height := CancelButton.Height;
- AboutButton.Caption := '关于(&A)';
- AboutButton.OnClick := @AboutButtonOnClick;
- AboutButton.Parent := WizardForm;
- URLLabel := TNewStaticText.Create(WizardForm);
- URLLabel.Top := AboutButton.Top + AboutButton.Height - URLLabel.Height - 2;
- URLLabel.Left := AboutButton.Left + AboutButton.Width + 20;
- URLLabel.Caption := '霏凡论坛';
- URLLabel.Font.Style := URLLabel.Font.Style + [fsUnderLine];
- URLLabel.Font.Color := clBlue;
- URLLabel.Cursor := crHand;
- URLLabel.OnClick := @URLLabelOnClick;
- URLLabel.Parent := WizardForm;
- BackgroundBitmapImage := TBitmapImage.Create(MainForm);
- BackgroundBitmapImage.AutoSize := True;
- BackgroundBitmapImage.Bitmap := WizardForm.WizardBitmapImage.Bitmap;
- BackgroundBitmapImage.Left := 50;
- BackgroundBitmapImage.Top := 100;
- BackgroundBitmapImage.Parent := MainForm;
- BackgroundBitmapText := TNewStaticText.Create(MainForm);
- BackgroundBitmapText.Caption := 'TBitmapImage';
- BackgroundBitmapText.Left := BackGroundBitmapImage.Left;
- BackgroundBitmapText.Top := BackGroundBitmapImage.Top + BackGroundBitmapImage.Height + 8;
- BackgroundBitmapText.Parent := MainForm;
- //许可协议
- WizardForm.LicenseAcceptedRadio.Checked := True;
- //注册表判断组件
- if RegValueExists(HKEY_CURRENT_USER, 'Software\liatro', 'ScreenCY') then
- begin
- WizardForm.ComponentsList.ITEMENABLED[1]:= false; //组件(第二个)不可选
- WizardForm.ComponentsList.CHECKED[1]:= false; //默认不选中组件
- end
- else
- begin
- WizardForm.ComponentsList.ITEMENABLED[1]:= true; //组件可选
- WizardForm.ComponentsList.CHECKED[1]:= true; //默认选中组件
- end;
- end;
复制代码
|