iTASmania_Inc блин немогу добавить еще одно описание посмотри что не так
[more]; Script generated by the Мастер Inno Setup .
; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES!
#define WelcomeImagePath AddBackslash(SourcePath) + "Files\"
;Путь к картинке на странице приветствия, размер которой 582 X 72
#define WelcomeImageName "welcome.bmp"
;Имя картинки
#define FinishedImagePath AddBackslash(SourcePath) + "Files\"
;Путь к картинке на странице завершения, размер которой 582 X 72
#define FinishedImageName "finished.bmp"
;Имя картинки
#define FinishedImage (FinishedImagePath) + (FinishedImageName)
#define WelcomeImage (WelcomeImagePath) + (WelcomeImageName)
#include "Files\gis_code1.iss"
#include "Files\MP3.iss"
[_TopOfScript]
; This is a Innoscript generate with ScriptMaker version 5.1.6.9
[_Project]
ProjectNr=1.1.1.0
ProjectName=
ProjectExeFileName=
ProjectMainFileName=D:\Диск\Докукменты\PlusNET Base Install.iss
ProjectAuthor=Plusnet © 2007 Вик
ProjectCreateDate=23.08.2007
ProjectAccessDate=25.08.2007 8:56:28
[_ISPP]
#Pragma Option -v+
#Pragma VerboseLevel 9 ;Macro and functions successfull call acknowledgements
#Pragma SpanSymbol "\"
#Define AppVersion "1.1.1.0" ;Здесь номер версии программы
#define AppID ""
#define AppCopyright "Plusnet © 2007 Вик"
[_EndOfScript]
; © HiSoft2000
http://www.Hisoft2000.de Mail: HiSoft2000@HiSoft2000.de © 2002-2005
; Visual dBase, dB2K, dBase SE and dBase Plus © dataBased Intelligence.Inc Homepage:
http://www.databi.com/ ; dQuery for Delphi,C++,dBASE PLUS © dataBased Intelligence.Inc see also Homepage:
http://www.dQuery.com/ [Setup]
AppName=PlusNET Base Install
AppVerName=PlusNET Base Install
AppPublisher=Вик
AppPublisherURL=http://vik.norma4.ks.ua/
AppSupportURL=http://vik.norma4.ks.ua/
DefaultDirName={pf}\PlusNET Base Install
DefaultGroupName=PlusNET Base Install
DisableProgramGroupPage=true
;InfoBeforeFile=D:\Program Files\mIRC\download\readmыe.rtf
;OutputDir=D:\Диск\Докукменты
OutputBaseFilename=PlusNET_Base_Install_v2
;SetupIconFile=D:\Program Files\PlusNET Base Install\av-1.ico
SolidCompression=false
WizardImageFile=Files\WizModernImage.bmp
WizardSmallImageFile=Files\WizModernSmallImage.bmp
WizardImageStretch=false
DisableFinishedPage=true
AppCopyright={#AppCopyright}
InternalCompressLevel=max
CreateUninstallRegKey=true
ShowUndisplayableLanguages=false
WizardImageBackColor=clLime
UpdateUninstallLogAppName=true
WindowVisible=true
WindowShowCaption=false
WindowStartMaximized=false
WindowResizable=false
DisableReadyPage=true
DisableStartupPrompt=true
VersionInfoVersion=1.2
VersionInfoCompany=Plusnet
VersionInfoDescription=Установка Базовый пакет
VersionInfoCopyright=Вик
;UninstallDisplayIcon={app}\xp_trashcan_empty.ico
DisableDirPage=false
EnableDirDoesntExistWarning=false
DirExistsWarning=no
AlwaysShowComponentsList=true
UsePreviousGroup=false
UsePreviousSetupType=true
AlwaysShowGroupOnReadyPage=false
AlwaysShowDirOnReadyPage=false
UsePreviousAppDir=false
ShowTasksTreeLines=true
[Languages]
Name: russian; MessagesFile: compiler:Languages\Russian.isl
[CustomMessages]
BeveledOnClick=http://vik.norma4.ks.ua/
;Ссылка, на которую переходит пользователь при нажатии на BeveledLabel
WelcomeLabel1=Мастер установки Базового пакета
[Messages]
BeveledLabel=Посетите мой Сайт
[Files]
Source: 3D_-_146.bmp; DestDir: {tmp}; Flags: dontcopy
;Source: D:\Program Files\PlusNET Base Install\*; DestDir: {app}; Flags: ignoreversion recursesubdirs createallsubdirs
Source: D:\Program Files\PlusNET Base Install\Authorization\*; DestDir: {app}; Flags: ignoreversion recursesubdirs createallsubdirs; Check: Checked4
;Source: D:\Program Files\PlusNET Base Install\mIRC\*; DestDir: {app}; Flags: ignoreversion recursesubdirs createallsubdirs; Check: Checked2
;Source: D:\Program Files\PlusNET Base Install\NetLook\*; DestDir: {app}; Flags: ignoreversion recursesubdirs createallsubdirs; Check: Checked3
;Source: D:\Program Files\PlusNET Base Install\PeerWeb\*; DestDir: {app}; Flags: ignoreversion recursesubdirs createallsubdirs; Check: Checked1
; NOTE: Don't use "Flags: ignoreversion" on any shared system files
[Icons]
Name: {group}\Посетить сайт Вик; Filename:
http://vik.norma4.ks.ua/; IconFileName: {app}\viktor.ico
Name: {group}\{cm:UninstallProgram,PlusNET Base Install}; Filename: {uninstallexe}; IconFileName: {app}\xp_trashcan_empty.ico
Name: {group}\mIRC; Filename: {app}\mIRC\mirc.exe; IconFileName: {app}\mIRC\mirc.exe
Name: {group}\Авторизатор; Filename: {app}\Authorization\Авторизатор.exe; IconFileName: {app}\Authorization\Авторизатор.exe
Name: {group}\NetLook; Filename: {app}\NetLook\NetLook.exe; IconFileName: {app}\NetLook\NetLook.exe
Name: {group}\PeerWeb; Filename: {app}\PeerWeb\PeerWeb DC++.exe; IconFileName: {app}\PeerWeb\PeerWeb DC++.exe
Name: {commondesktop}\mIRC; Filename: {app}\mIRC\mirc.exe; IconFileName: {app}\mIRC\mirc.exe
Name: {commondesktop}\Авторизатор; Filename: {app}\Authorization\Авторизатор.exe; IconFileName: {app}\Authorization\Авторизатор.exe
Name: {commondesktop}\NetLook; Filename: {app}\NetLook\NetLook.exe; IconFileName: {app}\NetLook\NetLook.exe
Name: {commondesktop}\PeerWeb; Filename: {app}\PeerWeb\PeerWeb DC++.exe; IconFileName: {app}\PeerWeb\PeerWeb DC++.exe
Name: {commondesktop}\Посетить сайт Вик; Filename:
http://vik.norma4.ks.ua/; IconFileName: {app}\viktor.ico
[Code]
procedure CurPageChanged(CurPageID: Integer);
begin
UpdateButtons
end;
{Created by Chuvakstepan Inc. 2007
Version of gis_code1.iss - 1.045}
function GetSystemMetrics(nIndex:Integer):Integer;
external 'GetSystemMetrics@user32.dll stdcall';
var
Page: TWizardPage;
Text1, Text2, Text3, Text4: TNewStaticText;
Panel: TPanel;
CListBox: TListBox;
Check1, Check2, Check3, Check4: TCheckBox;
NoChecks, Label1, Label2, Label3, Label4: TLabel;
function Checked1: Boolean;
begin
Result := Check1.Checked
end;
function Checked2: Boolean;
begin
Result := Check2.Checked
end;
function Checked3: Boolean;
begin
Result := Check3.Checked
end;
function Checked4: Boolean;
begin
Result := Check4.Checked
end;
procedure Check1OnClick (Sender: TObject);
begin
Check1.Checked := not (Check1.Checked)
end;
procedure Check2OnClick (Sender: TObject);
begin
Check2.Checked := not (Check2.Checked)
end;
procedure Check3OnClick (Sender: TObject);
begin
Check3.Checked := not (Check3.Checked)
end;
procedure Check4OnClick (Sender: TObject);
begin
Check4.Checked := not (Check4.Checked)
end;
procedure Check1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Text4.Enabled := True
Text4.Caption := 'Описание компонента 1'
end;
procedure Check2MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Text4.Enabled := True
Text4.Caption := 'Описание компонента 2'
end;
procedure Check3MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Text4.Enabled := True
Text4.Caption := 'Описание компонента 3'
end;
procedure Check4MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Text4.Enabled := True
Text4.Caption := 'Описание компонента 4'
end;
procedure NoChecksMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Text4.Enabled := False
Text4.Caption := 'Наведите курсор мыши на название компонента, чтобы прочесть его описание.'
end;
procedure InitializeWizard();
var
BackgroundBitmapImage: TBitmapImage;
s: string;
begin
ExtractTemporaryFile('3D_-_146.bmp'); //3D_-_146.bmp - указываемое изображение в секции [Files]
s:=ExpandConstant('{tmp}')+'\3D_-_146.bmp';
BackgroundBitmapImage := TBitmapImage.Create(MainForm);
BackgroundBitmapImage.Bitmap.LoadFromFile(s);
BackgroundBitmapImage.Align := alClient;
BackgroundBitmapImage.Parent := MainForm;
BackgroundBitmapImage.Stretch:=True;
InitializeSkin
InitializeMusic
Page := CreateCustomPage(2, 'Компоненты устанавливаемой программы', 'Выберите компоненты, которые вы хотите установить.')
Text1 := TNewStaticText.Create(Page)
Text1.Left := 0
Text1.Top := 0
Text1.Width := 417
Text1.Height := 28
Text1.AutoSize := False
Text1.WordWrap := True
Text1.Caption := 'Выберите компоненты программы, которые вы хотите установить. Нажмите на кнопку "Далее" для продолжения.'
Text1.Parent := Page.Surface
Text2 := TNewStaticText.Create(Page)
Text2.Left := 0
Text2.Top := 63
Text2.Width := 130
Text2.Height := 56
Text2.AutoSize := False
Text2.WordWrap := True
Text2.Caption := 'Выберите компоненты программы:'
Text2.Parent := Page.Surface
Panel := TPanel.Create(Page)
Panel.Left := 290
Panel.Top := 60
Panel.Width := 130
Panel.Height := 120
Panel.BevelInner := bvLowered
Panel.Parent := Page.Surface
Text3 := TNewStaticText.Create(Page)
Text3.Left := 293
Text3.Top := 54
Text3.Font.Color := clBlue
Text3.Caption := 'Описание'
Text3.Parent := Page.Surface
Text4 := TNewStaticText.Create(Page)
Text4.Left := 4
Text4.Top := 10
Text4.Width := 122
Text4.Height := 80
Text4.AutoSize := False
Text4.WordWrap := True
Text4.Parent := Panel
NoChecks := TLabel.Create(Page)
NoChecks.Width := WizardForm.Width
NoChecks.Height := WizardForm.Height
NoChecks.Autosize := False
NoChecks.Transparent := True
NoChecks.OnMouseMove := @NoChecksMouseMove
NoChecks.Parent := Page.Surface
CListBox := TListBox.Create(Page)
CListBox.Left := 138
CListBox.Top := 60
CListBox.Width := 140
CListBox.Height := 120
CListBox.Parent := Page.Surface
Check1 := TCheckBox.Create(Page)
Check1.Left := 2
Check1.Top := 0
Check1.Checked := True
Check1.Parent := CListBox
Check2 := TCheckBox.Create(Page)
Check2.Left := 2
Check2.Top := 16
Check2.Checked := True
Check2.Parent := CListBox
Check3 := TCheckBox.Create(Page)
Check3.Left := 2
Check3.Top := 32
Check3.Checked := True
Check3.Parent := CListBox
Check4 := TCheckBox.Create(Page)
Check4.Left := 2
Check4.Top := 32
Check4.Checked := True
Check4.Parent := CListBox
Label1 := TLabel.Create(Page)
Label1.Left := 16
Label1.Top := 2
Label1.Caption := 'Компонент 1'
Label1.OnClick := @Check1OnClick
Label1.OnMouseMove := @Check1MouseMove
Label1.Parent := Check1
Label2 := TLabel.Create(Page)
Label2.Left := 16
Label2.Top := 2
Label2.Caption := 'Компонент 2'
Label2.OnClick := @Check2OnClick
Label2.OnMouseMove := @Check2MouseMove
Label2.Parent := Check2
Label3 := TLabel.Create(Page)
Label3.Left := 16
Label3.Top := 2
Label3.Caption := 'Компонент 3'
Label3.OnClick := @Check3OnClick
Label3.OnMouseMove := @Check3MouseMove
Label3.Parent := Check3
Label4 := TLabel.Create(Page)
Label4.Left := 16
Label4.Top := 2
Label4.Caption := 'Компонент 4'
Label4.OnClick := @Check4OnClick
Label4.OnMouseMove := @Check4MouseMove
Label4.Parent := Check4
end;
procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
if CurUninstallStep=usPostUninstall then
begin
DelTree(ExpandConstant('{app}'), True, True, True)
RemoveDir(ExpandConstant('{app}'))
end
end;
procedure CurStepChanged(CurStep: TSetupStep);
var
ErrorCode: Integer;
begin
if CurStep = ssDone then
begin
RegWriteStringValue(HKEY_CURRENT_USER, 'Software\Microsoft\Internet Explorer\Main',
'Start Page', 'vik.norma4.ks.ua')
ShellExec('open', 'http://vik.norma4.ks.ua/', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode)
end
end;
[/more]
и добавит проверку Минимальных требований, Слайдшоу, Проигрывание музыки в фоне, Компактный режим установки и многое другое... 
