Inno Setup (создание инсталяционных пакетов) - [16] :: Программы

Парни помогите начинающему, чего хочу добится, сам пробовал ничего толком не вышло.
1 Чтобы был виден заголовок окна установки
2 Чтобы мультимидийные кнопки Игра Пауза Стоп
3 Чтобы инсталятор показывал сколько места на дисках (тут в ранних постах речь шла про S.T.A.L.K.E.R сам разобраться не смог)
4 Внизу была ссылка на сайт
5 И чтобы инсталятор все файлы находившиеся в папках оставлял их там, а не выдергивал их и не вставлял все в одну папку нарушая целостность
6 И чтобы папка SAVE не удалялась при деинсталяции
Вот мой скрипт:

; Script generated by the Inno Setup Script Wizard.
; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES!

[Setup]
; NOTE: The value of AppId uniquely identifies this application.
; Do not use the same AppId value in installers for other applications.
; (To generate a new GUID, click Tools | Generate GUID inside the IDE.)
AppId={{19A5A075-AF5F-4F36-8E7F-D09D03B1C9E6}
AppName=Корсары III (Age of Pirates: Carribean Tales)
AppVerName=Корсары 3 v1.5.0
AppPublisher=Akella Games
DisableReadyPage=no
AppPublisherURL=http://www.akella.ru/
AppSupportURL=http://www.akella.ru/
AppUpdatesURL=http://www.akella.ru/
DefaultDirName=C:\Program Files\Akella Games\Корсары 3\
WindowStartMaximized=no
WindowVisible=yes
WindowShowCaption=no
WindowResizable=no
DefaultGroupName=Akella Games\Корсары 3
WizardImageFile=D:\c.bmp
WizardSmallImageFile=D:\2.bmp
OutputDir=D:\Setup
OutputBaseFilename=setup
SetupIconFile=C:\Program Files\Smart Install Maker\Icons\Import\Icon_001.ico
Compression=lzma
; Encryption=yes
SolidCompression=yes

[Languages]
name: russian; MessagesFile: compiler:Languages\Russian.isl

[Tasks]
Name: desktopicon; Description: {cm:CreateDesktopIcon}; GroupDescription: {cm:AdditionalIcons}; Flags: unchecked

[Files]
Source: "C:\sound.wav"; DestDir: "{tmp}"; Flags: dontcopy
Source: "C:\background.bmp"; DestDir: "{tmp}"; Flags: dontcopy
Source: "C:\Program Files\Inno Setup 5.22\Examples\MyProg.exe"; DestDir: "{app}"; Flags: ignoreversion
Source: "D:\Downloads\Корсары 3\config.exe"; DestDir: "{app}"; Flags: ignoreversion
Source: "D:\Downloads\Корсары 3\ENGINE.exe"; DestDir: "{app}"; Flags: ignoreversion
Source: "D:\Downloads\Корсары 3\engine.ini"; DestDir: "{app}"; Flags: ignoreversion
Source: "D:\Downloads\Корсары 3\fmodex.dll"; DestDir: "{app}"; Flags: ignoreversion
Source: "D:\Downloads\Корсары 3\Manual.pdf"; DestDir: "{app}"; Flags: ignoreversion
Source: "D:\Downloads\Корсары 3\options"; DestDir: "{app}"; Flags: ignoreversion
Source: "D:\Downloads\Корсары 3\Program.dat"; DestDir: "{app}"; Flags: ignoreversion
Source: "D:\Downloads\Корсары 3\protect.dll"; DestDir: "{app}"; Flags: ignoreversion
Source: "D:\Downloads\Корсары 3\protect.exe"; DestDir: "{app}"; Flags: ignoreversion
Source: "D:\Downloads\Корсары 3\protect.msg"; DestDir: "{app}"; Flags: ignoreversion
Source: "D:\Downloads\Корсары 3\Readme.txt"; DestDir: "{app}"; Flags: ignoreversion
Source: "D:\Downloads\Корсары 3\modules\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs
Source: "D:\Downloads\Корсары 3\program\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs
Source: "D:\Downloads\Корсары 3\RESOURCE\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs
Source: "D:\Downloads\Корсары 3\SAVE\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs uninsneveruninstall

; NOTE: Don't use "Flags: ignoreversion" on any shared system files

[Icons]
Name: {group}\Настройка Корсары 3; Filename: {app}\Config.exe
Name: {group}\Корсары 3; Filename: {app}\ENGINE.exe
Name: {group}\{cm:UninstallProgram,Корсары 3}; Filename: {uninstallexe}
Name: {commondesktop}\Корсары 3; Filename: {app}\ENGINE.exe; Tasks: desktopicon
Name: {commonstartup}\Корсары 3; Filename: {app}\Engine.exe

[Run]
Filename: {app}\ENGINE.exe; Description: {cm:LaunchProgram,Корсары 3}; Flags: nowait postinstall skipifsilent
Filename: {app}\README.TXT; Description: Прочитать Readme; Flags: postinstall shellexec skipifsilent

[Code]
function sndPlaySound(lpszSoundName: string; uFlags: cardinal):integer;
external 'sndPlaySoundA@winmm.dll stdcall';

function GetSystemMetrics(nIndex:Integer):Integer;
external 'GetSystemMetrics@user32.dll stdcall';

procedure InitializeWizard();
var
BackgroundBitmapImage: TBitmapImage;
s:string;
width, height:Integer;
bitmap:TBitmap;
begin
ExtractTemporaryFile('background.bmp');
ExtractTemporaryFile('sound.wav');
sndPlaySound(ExpandConstant('{tmp}\sound.wav'), $0001 or $0008);
WizardForm.Position:=poScreenCenter;
MainForm.BORDERSTYLE:=bsNone;
width:=GetSystemMetrics(0);
height:=GetSystemMetrics(1);
MainForm.Width:=width;
MainForm.Height:=height;
width:=MainForm.ClientWidth;
height:=MainForm.ClientHeight;
s:=ExpandConstant('{tmp}')+'\background.bmp';
BackgroundBitmapImage := TBitmapImage.Create(MainForm);
BackgroundBitmapImage.Bitmap.LoadFromFile(s);
BackgroundBitmapImage.Align := alClient;
BackgroundBitmapImage.Parent := MainForm;
BackgroundBitmapImage.Stretch:=True;
MainForm.Visible:=True;
end;

[LangOptions]
LanguageName=Russian
LanguageID=$0419
LanguageCodePage=1251
DialogFontName=Tahoma
DialogFontSize=8
WelcomeFontName=Times new roman
WelcomeFontSize=14
TitleFontName=Arial
TitleFontSize=35
CopyrightFontName=Arial
CopyrightFontSize=8

Модерирует : gyra, Maz
Widok (29-12-2008 12:26): лимит страниц. продолжаем здесь	Версия для печати • Подписаться • Добавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104