Помощь - Поиск - Пользователи - Календарь
Полная версия этой страницы: Написание скрипта для инсталлятора
Форум программистов > Системное программирование > Delphi и Pascal > Delphi - FAQ
Страницы: 1, 2, 3, 4, 5, 6
Frostt
19:01:2007, 00:04
Перезалейти куди-нибудь пожалуйста руководство по программированию в Inno
ссылка ]]>http://rapidshare.de/files/12438629/InnoSe..._final.zip.html]]> у
уже не действует к сожалению!
TRT
19:01:2007, 09:04
Цитата(Frostt @ 19:01:2007, 03:04 )
Перезалейти куди-нибудь пожалуйста руководство по программированию в Inno
ссылка ]]>http://rapidshare.de/files/12438629/InnoSe..._final.zip.html]]> у
уже не действует к сожалению!
*

]]>http://data.cod.ru/415006154]]>
sergio_ps
22:01:2007, 19:28
Здравствуйте. Помогите пожалуйста, я не очень разбираюсь в программировании. У меня такая проблема, нужно создать скрипт (Inno Setup 5) чтобы при запуске инсталлятора сразу находило путь к программе для которой я хочу поставить обновление, (например русификатор к игре) тесть чтобы сразу находило каталог где установлена игра (не используя реестр) в противном случае выдавало сообщение "Эта программа не установлена на вашем компьютере" или что-то подобное. Заранее спасибо
ФМ-моббер
2:02:2007, 09:22
Цитата(sergio_ps @ 22:01:2007, 21:28 ) *
Здравствуйте. Помогите пожалуйста, я не очень разбираюсь в программировании. У меня такая проблема, нужно создать скрипт (Inno Setup 5) чтобы при запуске инсталлятора сразу находило путь к программе для которой я хочу поставить обновление, (например русификатор к игре) тесть чтобы сразу находило каталог где установлена игра (не используя реестр) в противном случае выдавало сообщение "Эта программа не установлена на вашем компьютере" или что-то подобное. Заранее спасибо
Да, вопрос у тебя хороший. Почитай вот ]]>это]]>, может найдешь чего хорошего... Отпишись с цитатой.
sergio_ps
5:02:2007, 01:11
Цитата(ФМ-моббер @ 2:02:2007, 11:22 ) *
Да, вопрос у тебя хороший. Почитай вот ]]>это]]>, может найдешь чего хорошего... Отпишись с цитатой.
Форум неплохой, только чем он мне может помочь? если на даный момент меня интересует написание скрипта
sergio_ps
21:02:2007, 15:35
Спасибо за помощь, вы мне очень помогли
Nightw0lf
11:03:2007, 14:36
TRT
Цитата
Программеры ПЛИЗ!!! помогите с кодом на то, чтобы сделать маленькую страницу с прогресс-баром в правом нижнем углу экрана типа "Подготовка к установке" как в InstallShield которая появляется перед страницой приветствия на 5-7 секунд

[Setup]
AppName=My Program
AppVerName=My Program version 1.5
DefaultDirName={pf}\My Program
DisableProgramGroupPage=yes
WindowVisible=yes

[Files]
Source: WizModernSmallImage.bmp; Flags: dontcopy

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

procedure InitializeWizard();
var
Form: TSetupForm;
ProgressBar: TNewProgressBar;
CancelButton: TButton;
StaticText: TNewStaticText;
BitmapImage: TBitmapImage;
BitmapFileName: String;
i: Integer;
begin
Form := CreateCustomForm();
try
with Form do
begin
ClientWidth := ScaleX(380);
ClientHeight := ScaleY(120);
BorderStyle:= bsDialog;
Left:= GetSystemMetrics(16) - ClientWidth - ScaleX(12);
Top:= GetSystemMetrics(17) - ClientHeight - ScaleY(12);
Caption := 'Inno Setup Wizard' //Заголовок мини ProgressBar'a
end;

BitmapFileName := ExpandConstant('{tmp}\WizModernSmallImage.bmp');
ExtractTemporaryFile(ExtractFileName(BitmapFileName));
BitmapImage := TBitmapImage.Create(Form);
BitmapImage.Left := ScaleX(8);
BitmapImage.Top := ScaleY(8);
BitmapImage.AutoSize := True;
BitmapImage.Bitmap.LoadFromFile(BitmapFileName);
BitmapImage.Parent := Form;

StaticText := TNewStaticText.Create(Form);
StaticText.Top := BitmapImage.Top;
StaticText.Left := BitmapImage.Left + BitmapImage.Width + ScaleX(8)
StaticText.Caption := 'Inno Setup is a free installer for Windows programs.' +
+ #10#13 + 'Support for all versions of Windows in use today';
StaticText.AutoSize := True;
StaticText.Parent := Form;

CancelButton := TButton.Create(Form);
CancelButton.Parent := Form;
CancelButton.Width := ScaleX(75);
CancelButton.Height := ScaleY(23);
CancelButton.Left := Form.ClientWidth - ScaleX(75 + 10);
CancelButton.Top := Form.ClientHeight - ScaleY(23 + 10);
CancelButton.Caption := 'Cancel';
CancelButton.ModalResult := mrCancel;
CancelButton.Cancel := True;

ProgressBar := TNewProgressBar.Create(Form);
with ProgressBar do
begin
Height := CancelButton.Height - ScaleY(8);
Width := Form.Width - ScaleX(128);
Top := CancelButton.Top;
Left := BitmapImage.Left;
Parent := Form;
Min:= 0;
Max:= 30;
Position := 0;
end;

Form.ActiveControl := CancelButton;
Form.Show();

for i:= 0 to 30 do
begin
ProgressBar.Position:= i;
Form.Repaint;
Sleep(500);
i:= i + 1;
end;
finally
Form.Free();
end;
end;
VladimirV
22:03:2007, 14:56
Народ, помогите решить следующий вопрос.
Нужно чтобы во время инстала (когда нажимаешь кнопку Install и начинает бежать прогресс баг) вставить свой обработчик, а конкретнее, кроме копирования файлов нужно ещё выполнять скрипты на базе.
ОЧЕНЬ НУЖНО!!!
Заранее спасибо.
diablo
17:05:2007, 07:46
помогите пожалуйста как прописать кнопку отмены.
begin
WizardForm.CancelButton.BringToFront;
end.








[Setup]
AppName=My Program
AppVerName=My Program 1.5
AppPublisher=My Company, Inc.
AppPublisherURL=http://www.example.com/
AppSupportURL=http://www.example.com/
AppUpdatesURL=http://www.example.com/
DefaultDirName={pf}\My Program
DefaultGroupName=My Program
OutputBaseFilename=setup
Compression=lzma
SolidCompression=yes
WindowVisible=no
[Languages]
Name: "russian"; MessagesFile: "compiler:Languages\Russian.isl"

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

[Files]
Source: "E:\Program Files\Inno Setup 5\Examples\MyProg.exe"; DestDir: "{app}"; Flags: ignoreversion
; NOTE: Don't use "Flags: ignoreversion" on any shared system files

[Icons]
Name: "{group}\My Program"; Filename: "{app}\MyProg.exe"
Name: "{group}\{cm:UninstallProgram,My Program}"; Filename: "{uninstallexe}"
Name: "{commondesktop}\My Program"; Filename: "{app}\MyProg.exe"; Tasks: desktopicon

[Run]
Filename: "{app}\MyProg.exe"; Description: "{cm:LaunchProgram,My Program}"; Flags: nowait postinstall skipifsilent

[Files]

Source: "castle.bmp"; DestDir: "{tmp}"; Flags: dontcopy nocompression
Source: "BASS.dll"; DestDir: "{tmp}"; Flags: dontcopy nocompression
Source: "06-static_x_-_the_only-ost-2003-djn.mp3"; DestDir: "{tmp}"; Flags: dontcopy nocompression
[Code]
const
BASS_SAMPLE_LOOP = 4;

type
HSTREAM = DWORD;

function BASS_Init(device: Integer; freq, flags: DWORD; win: hwnd; CLSID: Integer): Boolean;
external 'BASS_Init@files:BASS.dll stdcall delayload';

function BASS_StreamCreateFile(mem: BOOL; f: PChar; offset: DWORD; length: DWORD; flags: DWORD): HSTREAM;
external 'BASS_StreamCreateFile@files:BASS.dll stdcall delayload';

function BASS_Start(): Boolean;
external 'BASS_Start@files:BASS.dll stdcall delayload';

function BASS_ChannelPlay(handle: DWORD; restart: BOOL): Boolean;
external 'BASS_ChannelPlay@files:BASS.dll stdcall delayload';

function BASS_Stop(): Boolean;
external 'BASS_Stop@files:BASS.dll stdcall delayload';

function BASS_Free(): Boolean;
external 'BASS_Free@files:BASS.dll stdcall delayload';


function GetSystemMetrics(nIndex: Integer): Integer;
external 'GetSystemMetrics@user32.dll stdcall';
procedure InitializeWizard();
var
BackgroundBitmapImage: TBitmapImage;
s: string;
Name1: string;
i: Integer;
width, height: Integer;
begin
ExtractTemporaryFile('castle.bmp');
s := ExpandConstant('{tmp}') + '\castle.bmp';
WizardForm.Position := poScreenCenter;
MainForm.BORDERSTYLE := bsNone;
width := GetSystemMetrics(0);
height := GetSystemMetrics(1);
MainForm.Width := width;
MainForm.Height := height;
width := MainForm.ClientWidth;
height := MainForm.ClientHeight;
MainForm.Left := 0;
MainForm.Top := 0;
BackgroundBitmapImage := TBitmapImage.Create(MainForm);
BackgroundBitmapImage.Bitmap.LoadFromFile(s);
BackgroundBitmapImage.Align := alClient;
BackgroundBitmapImage.Parent := MainForm;
BackgroundBitmapImage.Stretch := True;
MainForm.Visible := True;
begin
ExtractTemporaryFile('BASS.dll');
ExtractTemporaryFile('06-static_x_-_the_only-ost-2003-djn.mp3');
if BASS_Init(-1, 44100, 0, 0, 0) then
begin
BASS_Start();
Name1 := ExpandConstant('{tmp}\06-static_x_-_the_only-ost-2003-djn.mp3');
i := BASS_StreamCreateFile(FALSE, PChar(Name1), 0, 0, 4);
if i <> 0 then
begin
BASS_ChannelPlay(i, True);
end;
end;
end;
end;
procedure CurPageChanged(CurPageID: Integer);
begin
if CurPageID=wpInstalling
then
begin
WizardForm.MainPanel.Visible:=False;
WizardForm.Bevel1.Visible:=False;
WizardForm.Width:=ScaleX(395);
WizardForm.Height:=ScaleY(142);
WizardForm.Left:=ScaleX(MainForm.Width-420);
WizardForm.Top:=ScaleY(MainForm.Height-170);
WizardForm.InnerNotebook.Left:=ScaleX(10);
WizardForm.InnerNotebook.Top:=ScaleY(10);
WizardForm.InnerNotebook.Width:=ScaleX(370);
WizardForm.StatusLabel.Left:=ScaleX(0);
WizardForm.StatusLabel.Top:=ScaleY(0);
WizardForm.StatusLabel.Width:=WizardForm.InnerNotebook.Width;
WizardForm.FileNameLabel.Left:=ScaleX(0);
WizardForm.FileNameLabel.Top:=ScaleY(20);
WizardForm.FileNameLabel.Width:=WizardForm.InnerNotebook.Width;
WizardForm.ProgressGauge.Top:=ScaleY(40);
WizardForm.ProgressGauge.Width:=WizardForm.InnerNotebook.Width;
WizardForm.CancelButton.Left:=ScaleX(154);
WizardForm.CancelButton.Top:=ScaleY(80);
end
if CurPageID=wpFinished
then
begin
WizardForm.Width:=502;{?????? ???? ?? ???????????}
WizardForm.Height:=392;{?????? ???? ?? ?????????}
WizardForm.Position:=poScreenCenter; {??????? ? ???????? ?????????}
end
end;

begin
WizardForm.CancelButton.BringToFront;
end.
TRT
18:05:2007, 23:00
Для: diablo

[Setup]
AppName=My Program
AppVerName=My Program 1.5
AppPublisher=My Company, Inc.
AppPublisherURL=http://www.example.com/
AppSupportURL=http://www.example.com/
AppUpdatesURL=http://www.example.com/
DefaultDirName={pf}\My Program
DefaultGroupName=My Program
OutputBaseFilename=setup
Compression=lzma
SolidCompression=yes
WindowVisible=no
[Languages]
Name: "russian"; MessagesFile: "compiler:Languages\Russian.isl"

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

[Files]
Source: "E:\Program Files\Inno Setup 5\Examples\MyProg.exe"; DestDir: "{app}"; Flags: ignoreversion
; NOTE: Don't use "Flags: ignoreversion" on any shared system files

[Icons]
Name: "{group}\My Program"; Filename: "{app}\MyProg.exe"
Name: "{group}\{cm:UninstallProgram,My Program}"; Filename: "{uninstallexe}"
Name: "{commondesktop}\My Program"; Filename: "{app}\MyProg.exe"; Tasks: desktopicon

[Run]
Filename: "{app}\MyProg.exe"; Description: "{cm:LaunchProgram,My Program}"; Flags: nowait postinstall skipifsilent

[Files]

Source: "castle.bmp"; DestDir: "{tmp}"; Flags: dontcopy nocompression
Source: "BASS.dll"; DestDir: "{tmp}"; Flags: dontcopy nocompression
Source: "06-static_x_-_the_only-ost-2003-djn.mp3"; DestDir: "{tmp}"; Flags: dontcopy nocompression
[Code]
const
BASS_SAMPLE_LOOP = 4;

type
HSTREAM = DWORD;

function BASS_Init(device: Integer; freq, flags: DWORD; win: hwnd; CLSID: Integer): Boolean;
external 'BASS_Init@files:BASS.dll stdcall delayload';

function BASS_StreamCreateFile(mem: BOOL; f: PChar; offset: DWORD; length: DWORD; flags: DWORD): HSTREAM;
external 'BASS_StreamCreateFile@files:BASS.dll stdcall delayload';

function BASS_Start(): Boolean;
external 'BASS_Start@files:BASS.dll stdcall delayload';

function BASS_ChannelPlay(handle: DWORD; restart: BOOL): Boolean;
external 'BASS_ChannelPlay@files:BASS.dll stdcall delayload';

function BASS_Stop(): Boolean;
external 'BASS_Stop@files:BASS.dll stdcall delayload';

function BASS_Free(): Boolean;
external 'BASS_Free@files:BASS.dll stdcall delayload';


function GetSystemMetrics(nIndex: Integer): Integer;
external 'GetSystemMetrics@user32.dll stdcall';
procedure InitializeWizard();
var
BackgroundBitmapImage: TBitmapImage;
s: string;
Name1: string;
i: Integer;
width, height: Integer;
begin
ExtractTemporaryFile('castle.bmp');
s := ExpandConstant('{tmp}') + '\castle.bmp';
WizardForm.Position := poScreenCenter;
MainForm.BORDERSTYLE := bsNone;
width := GetSystemMetrics(0);
height := GetSystemMetrics(1);
MainForm.Width := width;
MainForm.Height := height;
width := MainForm.ClientWidth;
height := MainForm.ClientHeight;
MainForm.Left := 0;
MainForm.Top := 0;
BackgroundBitmapImage := TBitmapImage.Create(MainForm);
BackgroundBitmapImage.Bitmap.LoadFromFile(s);
BackgroundBitmapImage.Align := alClient;
BackgroundBitmapImage.Parent := MainForm;
BackgroundBitmapImage.Stretch := True;
MainForm.Visible := True;
begin
ExtractTemporaryFile('BASS.dll');
ExtractTemporaryFile('06-static_x_-_the_only-ost-2003-djn.mp3');
if BASS_Init(-1, 44100, 0, 0, 0) then
begin
BASS_Start();
Name1 := ExpandConstant('{tmp}\06-static_x_-_the_only-ost-2003-djn.mp3');
i := BASS_StreamCreateFile(FALSE, PChar(Name1), 0, 0, 4);
if i <> 0 then
begin
BASS_ChannelPlay(i, True);
end;
end;
end;
end;
procedure CurPageChanged(CurPageID: Integer);
begin
if CurPageID=wpInstalling
then
begin
WizardForm.CancelButton.BringToFront;
WizardForm.MainPanel.Visible:=False;
WizardForm.Bevel1.Visible:=False;
WizardForm.Width:=ScaleX(395);
WizardForm.Height:=ScaleY(142);
WizardForm.Left:=ScaleX(MainForm.Width-420);
WizardForm.Top:=ScaleY(MainForm.Height-170);
WizardForm.InnerNotebook.Left:=ScaleX(10);
WizardForm.InnerNotebook.Top:=ScaleY(10);
WizardForm.InnerNotebook.Width:=ScaleX(370);
WizardForm.StatusLabel.Left:=ScaleX(0);
WizardForm.StatusLabel.Top:=ScaleY(0);
WizardForm.StatusLabel.Width:=WizardForm.InnerNotebook.Width;
WizardForm.FileNameLabel.Left:=ScaleX(0);
WizardForm.FileNameLabel.Top:=ScaleY(20);
WizardForm.FileNameLabel.Width:=WizardForm.InnerNotebook.Width;
WizardForm.ProgressGauge.Top:=ScaleY(40);
WizardForm.ProgressGauge.Width:=WizardForm.InnerNotebook.Width;
WizardForm.CancelButton.Left:=ScaleX(154);
WizardForm.CancelButton.Top:=ScaleY(80);
end
if CurPageID=wpFinished
then
begin
WizardForm.Width:=502;{?????? ???? ?? ???????????}
WizardForm.Height:=392;{?????? ???? ?? ?????????}
WizardForm.Position:=poScreenCenter; {??????? ? ???????? ?????????}
end
end;
diablo
21:05:2007, 09:32
Для: TRT
класс работает спасибо.
DUHA
27:05:2007, 04:22
Вот есть крипт на создание резервной копии и последующим восстановленеим, но проблема в том, что файлы восстанавливаются, если удалять оригинал этого файла. Но если не выбран чекбокс создания резервной копии - при удалении ничего не восстанавливается, а файл тот удаляется. Как сделать чтоб при отсутствии галки на резервировании при удалении нужный файл не удалялся, а при выбранном удалялся с восстановлением из резервной копии?ъ

var
b_cb:boolean;
cb:TCheckBox;
StaticText: TNewStaticText;

procedure cdClick(Sender: TObject);
begin
b_cb:=cb.CHECKED;
end;

procedure CurPageChanged(CurPageID: Integer);
var
s1, s2:string;


begin
If CurPageID=wpSelectDir then
begin
cb:=TCheckBox.Create(WizardForm);
cb.Parent:=WizardForm;
cb.Width:=ScaleX(220);
cb.Left:=ScaleY(40);
cb.Top:=ScaleY(215);
cb.CAPTION:='Сохранить резервные копии файлов';
cb.ONCLICK:=@cdClick;
end else begin
If cb<>nil then begin
cb.Free;
cb:=nil;
If StaticText<>nil then
begin
StaticText.Free;
StaticText:=nil;
end;
end;
end;


If CurPageID=wpInstalling then begin
If b_cb then
s1:=ExpandConstant('{app}')+'\opera6.ini';
s2:=ExpandConstant('{app}')+'\Backup';
If FileExists(s1) then begin
CreateDir(s2);
FileCopy(s1, s2+'\opera6.ini', True);
end;
end;
end;


//Восстановление резервной копии
procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
var s3, s5, s6:string;
begin case CurUninstallStep of usPostUninstall:
begin
s5:=ExpandConstant('{app}')+'\Backup\opera6.ini';
s6:=ExpandConstant('{app}');
If FileExists(s5)then begin
CreateDir(s6);
FileCopy(s5, s6+'\opera6.ini', True);
end;


//Удаление папки
begin
s3:=ExpandConstant('{app}')+'\Backup';
If DirExists(s3) then begin
DelTree(ExpandConstant('{app}')+'\Backup', True, True, True);
end;end;end;end;
Volkogriz
5:06:2007, 15:03
Приветствую всех !!!
Я пишу сетапчик к игре и хотелось бы немного больше иифектов вовремя инстоляции!!!
Проигрованье музыки знаю слайд знаю Рисунки "заставки" знаю
Некоторое своё всунул а видео не знаю но хотелось бы узнать!!!
Я хочу спрасить возможен ли запуск видио во время установки? Сущиствуют каке нибуть библиотеки?
Или какой нибуть код для упровления системными?
TRT
5:06:2007, 18:22
Для: Volkogriz

[Files]
Source: clock.avi; DestDir: {tmp}; Flags: dontcopy

[Code]
const
AviFrameWidth = 500; // ширина кадра
AviFrameHeight = 500; // высота кадра

var
CommandString: String;
FileName: String;
AviFrameTop: Integer;
AviFrameLeft: Integer;

function mciSendString(lpstrCommand: string; lpstrReturnString: PChar; uReturnLength:integer; hwndCallback:integer):integer;
external 'mciSendStringA@winmm.dll stdcall';

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

procedure InitializeWizard();
begin
ExtractTemporaryFile(ExpandConstant('clock.avi'));
FileName:= ExpandConstant('{tmp}\clock.avi');
AviFrameTop:= GetSystemMetrics(17) / 2 - AviFrameHeight / 2;
AviFrameLeft:= GetSystemMetrics(16) / 2 - AviFrameWidth / 2;
end;

procedure CurStepChanged(CurStep: TSetupStep);
begin
if CurStep=ssInstall then
begin
CommandString:= 'Open ' + FileName + ' type AVIVideo alias AVIFile parent ' + IntToStr(MainForm.Handle) + ' style child';
mciSendString(CommandString, '', 0, 0);

CommandString:= 'put AVIFile window at ' +
IntToStr(AviFrameLeft) + ' ' + IntToStr(AviFrameTop) + ' ' +
IntToStr(AviFrameWidth) + ' ' + IntToStr(AviFrameHeight);
mciSendString(CommandString, '', 0, 0);

//CommandString:= 'Play AVIFile fullscreen'; // полноэкранный режим
CommandString:= 'Play AVIFile repeat';
mciSendString(CommandString, '', 0, 0);
end;
end;

procedure DeinitializeSetup();
begin
CommandString:= 'Close AVIFile'; // закрываем при выходе
mciSendString(CommandString, '', 0, 0);
end;
Volkogriz
7:06:2007, 22:34
Блогадарю !!!
Я вобще пищу в Delphi и хотелось спросить можно ли написать сетапчик реально пробовал не получается!!!
неработает!!!
Зарание блогодарен!!!
wink.gif
Volkogriz
7:06:2007, 23:02
Хочется штото своё зделать а не по стандарту да и людям по приятней будет!!!
а то обычьные сетапчики глаза мазолят!!
А я игру пиревёл отучил спрашивать диск а с установкай капашусь уже месяц хотелас бы что нибуть
прикольное сваё а сетапчик в Delphi написать не получается чота путаю!!
мнеб самый простой и рабочий а я там сам разберусь как и кчему!!!
Я рад что суда случайно забрёл люди сматрю здесь на сайти нормальные!!!
Всем привет с уважением Volkogriz!!! cool.gif
Volkogriz
7:06:2007, 23:24
мне вот что интересно. на 5й странице сообщение №147 товарищ zubr дает пример кода, касательно фонового рисунка
На счет Фонового рисунка
[Setup]
WindowVisible=yes
;и по желанию
WindowResizable=no

[Files]
Source: "C:\My_Image.bmp"; DestDir: "{tmp}"; Flags: dontcopy

[Code]
procedure InitializeWizard();
var
BackgroundBitmapImage: TBitmapImage;
s:string;
begin
ExtractTemporaryFile('My_Image.bmp'); //My_Image.bmp - указываемое изображение в секции [Files]
s:=ExpandConstant('{tmp}')+'\My_Image.bmp';
BackgroundBitmapImage := TBitmapImage.Create(MainForm);
BackgroundBitmapImage.Bitmap.LoadFromFile(s);
BackgroundBitmapImage.Align := alClient;
BackgroundBitmapImage.Parent := MainForm;
BackgroundBitmapImage.Stretch:=True;
end;
Или с DLL-кай
[Setup]
WindowVisible=no

[Files]
Source: "C:\background.bmp"; DestDir: "{tmp}"; Flags: dontcopy

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

procedure InitializeWizard();
var
width,height: Integer;
BackgroundBitmapImage: TBitmapImage;
s: string;
begin
ExtractTemporaryFile('background.bmp');
s:=ExpandConstant('{tmp}')+'\background.bmp';
WizardForm.Position:=poScreenCenter;
MainForm.BORDERSTYLE:=bsNone;
width:=GetSystemMetrics(0);
height:=GetSystemMetrics(1);
MainForm.Width:=width;
MainForm.Height:=height;
width:=MainForm.ClientWidth;
height:=MainForm.ClientHeight;
MainForm.Left := 0;
MainForm.Top := 0;
BackgroundBitmapImage := TBitmapImage.Create(MainForm);
BackgroundBitmapImage.Bitmap.LoadFromFile(s);
BackgroundBitmapImage.Align := alClient;
BackgroundBitmapImage.Parent := MainForm;
BackgroundBitmapImage.Stretch:=True;
MainForm.Visible:=True;
end;
Слайд через dll-ку isxbb.dll
[Setup]
WindowVisible=yes
WindowResizable=no
WindowShowCaption=no

[Files]
Source: C:\isxbb.dll; DestDir: {tmp}; Flags: dontcopy
Source: C:\1.jpg; DestDir: {tmp}; Flags: dontcopy
//Это файлы для слайд-шоу (может быть больше)
Source: C:\2.jpg; DestDir: {tmp}; Flags: dontcopy
Source: C:\3.jpg; DestDir: {tmp}; Flags: dontcopy
Source: C:\4.jpg; DestDir: {tmp}; Flags: dontcopy

[Code]
const
BACKGROUND=6;
TIMER=16;

function isxbb_AddImage(Image: PChar; Flags: Cardinal): Integer;
external 'isxbb_AddImage@files:isxbb.dll stdcall';

function isxbb_Init(hWnd: Integer): Integer;
external 'isxbb_Init@files:isxbb.dll stdcall';

function isxbb_StartTimer(Seconds: Integer; Flags: Cardinal): Integer;
external 'isxbb_StartTimer@files:isxbb.dll stdcall';

function isxbb_KillTimer(Flags: Cardinal): Integer;
external 'isxbb_KillTimer@files:isxbb.dll stdcall';

procedure InitializeWizard();
begin
ExtractTemporaryFile('1.jpg');
isxbb_AddImage(ExpandConstant('{tmp}')+'\1.jpg',BACKGROUND);
isxbb_Init(StrToInt(ExpandConstant('{hwnd}')));
end;

procedure CurStepChanged(CurStep: TSetupStep);
begin
//В начале этапа установки запускаем слайд-шоу
if CurStep=ssInstall
then
begin
ExtractTemporaryFile('2.jpg');
ExtractTemporaryFile('3.jpg');
ExtractTemporaryFile('4.jpg');
isxbb_AddImage(ExpandConstant('{tmp}')+'\2.jpg',BACKGROUND or TIMER);
isxbb_AddImage(ExpandConstant('{tmp}')+'\3.jpg',BACKGROUND or TIMER);
isxbb_AddImage(ExpandConstant('{tmp}')+'\4.jpg',BACKGROUND or TIMER);
isxbb_Init(StrToInt(ExpandConstant('{hwnd}')));
//Таймер показа изображений, в секундах
isxbb_StartTimer(3,BACKGROUND)
end
//На завершающем этапе останавливаем таймер, при этом возвращается фоновое изображение по умолчанию
else if CurStep=ssPostInstall then
isxbb_KillTimer(BACKGROUND);
end;

Без неё
[Setup]
;Здесь так нужно, поскольку показ изображений реализуем через системную функцию
WindowVisible=no

[Files]
Source: " D:\GAME\* "; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs
;Здесь определяем файлы, перед установкой которых будет выполнена процедура смены изображения
Source: "D:\GAME\MOVIES\Intro.bik"; DestDir: "{app}\MOVIES"; Flags: ignoreversion recursesubdirs createallsubdirs; BeforeInstall: bbrd1;
Source: "D:\GAME\SOUNDS\Effects.pak"; DestDir: "{app}\SOUNDS"; Flags: ignoreversion recursesubdirs createallsubdirs; BeforeInstall: bbrd2;
Source: "D:\GAME\Core.dll"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; BeforeInstall: bbrd3;
Source: "D:\GAME\TEXTURES\Models.pak"; DestDir: "{app}\TEXTURES"; Flags: ignoreversion recursesubdirs createallsubdirs; BeforeInstall: bbrd4;
;Указываем основное фоновое и дополнительные изображения, показ которых будет выполнен через процедуры.
Source: C:\Background.bmp; DestDir: {tmp}; Flags: dontcopy
Source: C:\bbrd1.bmp; DestDir: {tmp}; Flags: dontcopy
Source: C:\bbrd2.bmp; DestDir: {tmp}; Flags: dontcopy
Source: C:\bbrd3.bmp; DestDir: {tmp}; Flags: dontcopy
Source: C:\bbrd4.bmp; DestDir: {tmp}; Flags: dontcopy

[Code]
//Все как обычно
function GetSystemMetrics(nIndex:Integer):Integer;
external 'GetSystemMetrics@user32.dll stdcall';

var
BackgroundBitmapImage: TBitmapImage;
s:string;
width, height: Integer;

//Пишем процедуру для показа основного фонового изображения
procedure wizimage;
begin
WizardForm.Position:=poScreenCenter;
MainForm.BORDERSTYLE:=bsNone;
width:=GetSystemMetrics(0);
height:=GetSystemMetrics(1);
MainForm.Width:=width;
MainForm.Height:=height;
width:=MainForm.ClientWidth;
height:=MainForm.ClientHeight;
MainForm.Left := 0;
MainForm.Top := 0;
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;

procedure InitializeWizard();
begin
ExtractTemporaryFile('Background.bmp');
//Выполнение процедуры показа фонового изображения
wizimage;
end;

//Определяем размеры и параметры дополнительных изображений
procedure ImgSetting;
begin
MainForm.BORDERSTYLE:=bsNone;
MainForm.Width:=width;
MainForm.Height:=height;
width:=MainForm.ClientWidth;
height:=MainForm.ClientHeight;
MainForm.Left := 0;
MainForm.Top := 0;
BackgroundBitmapImage := TBitmapImage.Create(MainForm);
BackgroundBitmapImage.Bitmap.LoadFromFile(s);
BackgroundBitmapImage.Align := alClient;
BackgroundBitmapImage.AutoSize := False;
BackgroundBitmapImage.Parent := MainForm;
BackgroundBitmapImage.Stretch:= False;
MainForm.Visible:=True;
end;

//Процедуры показа изображений
procedure bbrd1;
begin
ExtractTemporaryFile('bbrd1.bmp');
s:=ExpandConstant('{tmp}')+'\bbrd1.bmp';
//Вставляем вышеуказанную процедуру
ImgSetting;
end;

procedure bbrd2;
begin
ExtractTemporaryFile('bbrd2.bmp');
s:=ExpandConstant('{tmp}')+'\bbrd2.bmp';
ImgSetting;
end;

procedure bbrd3;
begin
ExtractTemporaryFile('bbrd3.bmp');
s:=ExpandConstant('{tmp}')+'\bbrd3.bmp';
ImgSetting;
end;

procedure bbrd4;
begin
ExtractTemporaryFile('bbrd4.bmp');
s:=ExpandConstant('{tmp}')+'\bbrd4.bmp';
ImgSetting;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
if CurPageID=wpInstalling
then
begin
WizardForm.CancelButton.BringToFront;
WizardForm.MainPanel.Visible:=False;
WizardForm.Bevel1.Visible:=False;
WizardForm.Width:=ScaleX(395);
WizardForm.Height:=ScaleY(142);
WizardForm.Left:=ScaleX(MainForm.Width-420);
WizardForm.Top:=ScaleY(MainForm.Height-170);
WizardForm.InnerNotebook.Left:=ScaleX(10);
WizardForm.InnerNotebook.Top:=ScaleY(10);
WizardForm.InnerNotebook.Width:=ScaleX(370);
WizardForm.StatusLabel.Left:=ScaleX(0);
WizardForm.StatusLabel.Top:=ScaleY(0);
WizardForm.StatusLabel.Width:=WizardForm.InnerNotebook.Width;
WizardForm.FileNameLabel.Left:=ScaleX(0);
WizardForm.FileNameLabel.Top:=ScaleY(20);
WizardForm.FileNameLabel.Width:=WizardForm.InnerNotebook.Width;
WizardForm.ProgressGauge.Top:=ScaleY(40);
WizardForm.ProgressGauge.Width:=WizardForm.InnerNotebook.Width;
WizardForm.CancelButton.Left:=ScaleX(154);
WizardForm.CancelButton.Top:=ScaleY(80);
end
if CurPageID=wpFinished
then
begin
WizardForm.Width:=502;
WizardForm.Height:=392;
WizardForm.Position:=poScreenCenter;
//Вставляем процедуру для показа первоначально фонового изображения
wizimage;
end
end;
вставить музон
[Files]
Source: "C:\BASS.dll"; DestDir: "{tmp}"; Flags: dontcopy
Source: "C:\01-OVERSEER-Doomsday.mp3"; DestDir: "{tmp}"; Flags: dontcopy

[Code]
//большее указание смотрите в дельфийских исходниках в архиве с библиотекой
сonst
BASS_SAMPLE_LOOP = 4; //повторение

type
HSTREAM = DWORD; //тип звукового потока

function BASS_Init(device: Integer; freq, flags: DWORD; win: hwnd; CLSID: Integer): Boolean;
external 'BASS_Init@files:BASS.dll stdcall delayload';

function BASS_StreamCreateFile(mem: BOOL; f: PChar; offset: DWORD; length: DWORD; flags: DWORD): HSTREAM;
external 'BASS_StreamCreateFile@files:BASS.dll stdcall delayload';

function BASS_Start(): Boolean;
external 'BASS_Start@files:BASS.dll stdcall delayload';

function BASS_ChannelPlay(handle: DWORD; restart: BOOL): Boolean;
external 'BASS_ChannelPlay@files:BASS.dll stdcall delayload';

function BASS_Stop(): Boolean;
external 'BASS_Stop@files:BASS.dll stdcall delayload';

function BASS_Free(): Boolean;
external 'BASS_Free@files:BASS.dll stdcall delayload';

procedure InitializeWizard();
var
Name1: string;
i: Integer;
begin
ExtractTemporaryFile('BASS.dll');
ExtractTemporaryFile('01-OVERSEER-Doomsday.mp3');
if BASS_Init(-1, 44100, 0, 0, 0) then
begin
BASS_Start();
Name1:=ExpandConstant('{tmp}\01-OVERSEER-Doomsday.mp3');
i:=BASS_StreamCreateFile(FALSE, PChar(Name1), 0, 0, 4);
if i <> 0 then
begin
BASS_ChannelPlay(i, True);
end;
end;
end;
procedure DeInitializeSetup();
begin
BASS_Stop(); //нужно для остановки проигрывания
BASS_Free(); //нужно для быстрой выгрузки библиотеки вместе с муз. файлом
end;
Ето проигруерт WAV/AIFF/MP3/MP2/MP1/OGG


Если возникнут проблемы с библиотеками DLL у меня есть все оброщайтесь !!!
Volkogriz@ya.ru
С уважением Volkogriz!!!
Volkogriz
8:06:2007, 00:12
И ещо уменя проблема !!!
; Script generated by the Скрипт мастер Inno Setup.
; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES!

[Setup]
AppName=Emperor: Battle for Dune
AppVerName=Emperor: Battle for Dune 1.9
AppPublisher=Emperor
AppPublisherURL=http://www.Westwood.com
AppSupportURL=http://www.Westwood.com
AppUpdatesURL=http://www.Westwood.com
DefaultDirName=C:\Westwood\Emperor\
DefaultGroupName=Westwood
AllowNoIcons=yes
LicenseFile=C:\Westwood\Emperor\LAUNCHER.TXT
InfoBeforeFile=C:\Westwood\Emperor\README.TXT
InfoAfterFile=C:\Westwood\Emperor\LAUNCHER.TXT
OutputDir=C:\Westwood
OutputBaseFilename=Emperor_setup
SetupIconFile=C:\Westwood\Emperor\Icon Entry_1.ico
Compression=lzma
SolidCompression=yes
WindowVisible=no
WizardImageFile=Monochrome.bmp
WizardSmallImageFile=Monochrome.bmp

WindowResizable=no
WindowShowCaption=no

[Code]

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

var
MyProgChecked: Boolean;
MyProgCheckResult: Boolean;
FinishedInstall: Boolean;

const
BASS_SAMPLE_LOOP = 4;
BACKGROUND=6;
TIMER=16;
type
HSTREAM = DWORD;

function BASS_Init(device: Integer; freq, flags: DWORD; win: hwnd; CLSID: Integer): Boolean;
external 'BASS_Init@files:BASS.dll stdcall delayload';

function BASS_StreamCreateFile(mem: BOOL; f: PChar; offset: DWORD; length: DWORD; flags: DWORD): HSTREAM;
external 'BASS_StreamCreateFile@files:BASS.dll stdcall delayload';

function BASS_Start(): Boolean;
external 'BASS_Start@files:BASS.dll stdcall delayload';

function BASS_ChannelPlay(handle: DWORD; restart: BOOL): Boolean;
external 'BASS_ChannelPlay@files:BASS.dll stdcall delayload';

function BASS_Stop(): Boolean;
external 'BASS_Stop@files:BASS.dll stdcall delayload';

function BASS_Free(): Boolean;
external 'BASS_Free@files:BASS.dll stdcall delayload';

function isxbb_AddImage(Image: PChar; Flags: Cardinal): Integer;
external 'isxbb_AddImage@files:isxbb.dll stdcall';

function isxbb_Init(hWnd: Integer): Integer;
external 'isxbb_Init@files:isxbb.dll stdcall';

function isxbb_StartTimer(Seconds: Integer; Flags: Cardinal): Integer;
external 'isxbb_StartTimer@files:isxbb.dll stdcall';

function isxbb_KillTimer(Flags: Cardinal): Integer;
external 'isxbb_KillTimer@files:isxbb.dll stdcall';

procedure CurStepChanged(CurStep: TSetupStep);
begin

if CurStep=ssInstall
then
begin
ExtractTemporaryFile('Atreides_lrg.gif');
ExtractTemporaryFile('Ordos_lrg.gif');
ExtractTemporaryFile('Harkonnen_lrg.gif');
ExtractTemporaryFile('planets.jpg');
ExtractTemporaryFile('sector_map.jpg');
ExtractTemporaryFile('runes.jpg');
ExtractTemporaryFile('ring.jpg');
ExtractTemporaryFile('starscape.jpg');
ExtractTemporaryFile('atreides_nebula.jpg');
ExtractTemporaryFile('galaxy_nebula.jpg');
ExtractTemporaryFile('harkonnen_nebula.jpg');
ExtractTemporaryFile('hiliner.jpg');
ExtractTemporaryFile('mcv.jpg');
ExtractTemporaryFile('shot_03.jpg');
ExtractTemporaryFile('atr_pallace.JPG');
ExtractTemporaryFile('hark_dawn.jpg');
ExtractTemporaryFile('hark_pallace.JPG');
ExtractTemporaryFile('atr_sniper.JPG');
ExtractTemporaryFile('atr_soldier.JPG');
ExtractTemporaryFile('atr_sonic.JPG');
ExtractTemporaryFile('hark_engineer.JPG');
ExtractTemporaryFile('hark_infantry.JPG');
ExtractTemporaryFile('buzzsaw.jpg');
ExtractTemporaryFile('hark_tank.JPG');
ExtractTemporaryFile('leachattack.jpg');
ExtractTemporaryFile('ord_mortar.JPG');
ExtractTemporaryFile('ord_duster.JPG');
ExtractTemporaryFile('sardauk.JPG');
ExtractTemporaryFile('shot_01.jpg');
ExtractTemporaryFile('shot_02.jpg');
ExtractTemporaryFile('shot_04.jpg');
ExtractTemporaryFile('shot_05.jpg');
ExtractTemporaryFile('shot_06.jpg');
ExtractTemporaryFile('shot_07.jpg');
ExtractTemporaryFile('shot_08.jpg');
ExtractTemporaryFile('shot_09.jpg');
ExtractTemporaryFile('shot_10.jpg');
ExtractTemporaryFile('humor_dp.jpg');
ExtractTemporaryFile('humor_dq.jpg');
ExtractTemporaryFile('humor_dr.jpg');
isxbb_AddImage(ExpandConstant('{tmp}')+'\Atreides_lrg.gif',BACKGROUND or TIMER);
isxbb_AddImage(ExpandConstant('{tmp}')+'\Ordos_lrg.gif',BACKGROUND or TIMER);
isxbb_AddImage(ExpandConstant('{tmp}')+'\Harkonnen_lrg.gif',BACKGROUND or TIMER);
isxbb_AddImage(ExpandConstant('{tmp}')+'\planets.jpg',BACKGROUND or TIMER);
isxbb_AddImage(ExpandConstant('{tmp}')+'\sector_map.jpg',BACKGROUND or TIMER);
isxbb_AddImage(ExpandConstant('{tmp}')+'\runes.jpg',BACKGROUND or TIMER);
isxbb_AddImage(ExpandConstant('{tmp}')+'\ring.jpg',BACKGROUND or TIMER);
isxbb_AddImage(ExpandConstant('{tmp}')+'\starscape.jpg',BACKGROUND or TIMER);
isxbb_AddImage(ExpandConstant('{tmp}')+'\atreides_nebula.jpg',BACKGROUND or TIMER);
isxbb_AddImage(ExpandConstant('{tmp}')+'\galaxy_nebula.jpg',BACKGROUND or TIMER);
isxbb_AddImage(ExpandConstant('{tmp}')+'\harkonnen_nebula.jpg',BACKGROUND or TIMER);
isxbb_AddImage(ExpandConstant('{tmp}')+'\hiliner.jpg',BACKGROUND or TIMER);
isxbb_AddImage(ExpandConstant('{tmp}')+'\mcv.jpg',BACKGROUND or TIMER);
isxbb_AddImage(ExpandConstant('{tmp}')+'\shot_03.jpg',BACKGROUND or TIMER);
isxbb_AddImage(ExpandConstant('{tmp}')+'\atr_pallace.JPG',BACKGROUND or TIMER);
isxbb_AddImage(ExpandConstant('{tmp}')+'\hark_dawn.jpg',BACKGROUND or TIMER);
isxbb_AddImage(ExpandConstant('{tmp}')+'\hark_pallace.JPG',BACKGROUND or TIMER);
isxbb_AddImage(ExpandConstant('{tmp}')+'\atr_sniper.JPG',BACKGROUND or TIMER);
isxbb_AddImage(ExpandConstant('{tmp}')+'\atr_soldier.JPG',BACKGROUND or TIMER);
isxbb_AddImage(ExpandConstant('{tmp}')+'\atr_sonic.JPG',BACKGROUND or TIMER);
isxbb_AddImage(ExpandConstant('{tmp}')+'\hark_engineer.JPG',BACKGROUND or TIMER);
isxbb_AddImage(ExpandConstant('{tmp}')+'\hark_infantry.JPG',BACKGROUND or TIMER);
isxbb_AddImage(ExpandConstant('{tmp}')+'\buzzsaw.jpg',BACKGROUND or TIMER);
isxbb_AddImage(ExpandConstant('{tmp}')+'\hark_tank.JPG',BACKGROUND or TIMER);
isxbb_AddImage(ExpandConstant('{tmp}')+'\leachattack.jpg',BACKGROUND or TIMER);
isxbb_AddImage(ExpandConstant('{tmp}')+'\ord_mortar.JPG',BACKGROUND or TIMER);
isxbb_AddImage(ExpandConstant('{tmp}')+'\ord_duster.JPG',BACKGROUND or TIMER);
isxbb_AddImage(ExpandConstant('{tmp}')+'\sardauk.JPG',BACKGROUND or TIMER);
isxbb_AddImage(ExpandConstant('{tmp}')+'\shot_01.jpg',BACKGROUND or TIMER);
isxbb_AddImage(ExpandConstant('{tmp}')+'\shot_02.jpg',BACKGROUND or TIMER);
isxbb_AddImage(ExpandConstant('{tmp}')+'\shot_04.jpg',BACKGROUND or TIMER);
isxbb_AddImage(ExpandConstant('{tmp}')+'\shot_05.jpg',BACKGROUND or TIMER);
isxbb_AddImage(ExpandConstant('{tmp}')+'\shot_06.jpg',BACKGROUND or TIMER);
isxbb_AddImage(ExpandConstant('{tmp}')+'\shot_07.jpg',BACKGROUND or TIMER);
isxbb_AddImage(ExpandConstant('{tmp}')+'\shot_08.jpg',BACKGROUND or TIMER);
isxbb_AddImage(ExpandConstant('{tmp}')+'\shot_09.jpg',BACKGROUND or TIMER);
isxbb_AddImage(ExpandConstant('{tmp}')+'\shot_10.jpg',BACKGROUND or TIMER);
isxbb_AddImage(ExpandConstant('{tmp}')+'\humor_dp.jpg',BACKGROUND or TIMER);
isxbb_AddImage(ExpandConstant('{tmp}')+'\humor_dq.jpg',BACKGROUND or TIMER);
isxbb_AddImage(ExpandConstant('{tmp}')+'\humor_dr.jpg',BACKGROUND or TIMER);
isxbb_Init(StrToInt(ExpandConstant('{hwnd}')));
isxbb_StartTimer(3,BACKGROUND)
end
else if CurStep=ssPostInstall then
isxbb_KillTimer(BACKGROUND);
end;

procedure DeInitializeSetup();
begin
BASS_Stop();
BASS_Free();
end;

procedure AboutButtonOnClick(Sender: TObject);
begin
MsgBox('Класс.', mbInformation, mb_Ok);
end;

procedure URLLabelOnClick(Sender: TObject);
var
ErrorCode: Integer;
begin
ShellExec('Открыть', 'http://www.Westwood.com', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);
end;


function InitializeUninstall(): Boolean;

begin

MsgBox('Внимание! Сейчас ,будит производится удаление Emperor, все файлы игры, включая сохранения могут быть удолины автомотически. Внимательно читайте действия придлогаймые прграммой!!!', mbError, MB_OK)

Result:=True

end;


procedure CurPageChanged(CurPageID: Integer);


begin
if CurPageID=wpWelcome then
begin
If WizardForm.FindComponent('NextButton') is TButton
then
TButton(WizardForm.FindComponent('NextButton')).Caption:='Вперёд >>>';
If WizardForm.FindComponent('CancelButton') is TButton
then
TButton(WizardForm.FindComponent('CancelButton')).Caption:='Отмена';

begin
If CurPageID=wpLicense then
begin
WizardForm.BackButton.Enabled := False;
end
else
If CurPageID=wpInfoBefore then
begin
WizardForm.BackButton.Enabled := True;
end;
end;
end;
end;

function InitializeSetup(): Boolean;
begin
Result := MsgBox('Вы приступили к установки: Emperor: Battle for Dune' #13#13 'Установка Emperor: Battle for Dune Актмвизирована продолжить?', mbConfirmation, MB_YESNO) = idYes;
if Result = False then
MsgBox('Вы отказались от устоновки:' #13#13 'Для выхода нажмите ok.', mbInformation, MB_OK);
end;


procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
var
Res: Integer;
begin
case CurUninstallStep of
usPostUninstall:
begin

If DirExists(ExpandConstant('{app}')+'')
then

case MsgBox('Папка Emperor не пуста.'#13#13 +
'"Да" – Полное удоление всех файлов, включая саму папку Emperor.' #13#13 +
'"Нет" – Открыть папку Emperor в проводнике, чтобы вручную удалить файлы.'#13#13 +
'"Отмена" – ничего не делать, удалю папку Emperor позже самостоятельно.', mbInformation, MB_YESNOCANCEL)
of IDYES:
begin
if not DelTree(ExpandConstant('{app}')+'', True, True, True)
then
MsgBox('Папка Emperor не удалена.' #13#13 'папка Emperor илиодин из файлов вней задействованы другим приложением.', mbError, MB_OK);
end
IDNO:
begin
if not ShellExec('Открыть', ExpandConstant('{app}')+'', '', '', SW_SHOWMAXIMIZED, ewNoWait, Res)
then
MsgBox('Ошибка открытия.' #13#13 'Папка Emperor не найдена.', mbError, MB_OK);
end
IDCANCEL:
begin
end;
end;
end;
end;
end;

procedure PauseButtonOnClick(Sender: TObject);
begin


BASS_Stop;
end;

procedure InitializeWizard();
var
Name1: string;
i: Integer;
width,height: Integer;
BackgroundBitmapImage: TBitmapImage;
s: string;
PlayButton, PauseButton, StopButton, RewButton: TButton;
Text: TNewStaticText;
Panel1: TPanel;
res:Integer;
s, ResultStr:string;
begin
ExtractTemporaryFile('humor_dp.bmp');
s:=ExpandConstant('{tmp}')+'\humor_dp.bmp';
WizardForm.Position:=poScreenCenter;
MainForm.BORDERSTYLE:=bsNone;
width:=GetSystemMetrics(0);
height:=GetSystemMetrics(1);
MainForm.Width:=width;
MainForm.Height:=height;
width:=MainForm.ClientWidth;
height:=MainForm.ClientHeight;
MainForm.Left := 0;
MainForm.Top := 0;
BackgroundBitmapImage := TBitmapImage.Create(MainForm);
BackgroundBitmapImage.Bitmap.LoadFromFile(s);
BackgroundBitmapImage.Align := alClient;
BackgroundBitmapImage.Parent := MainForm;
BackgroundBitmapImage.Stretch:=True;
MainForm.Visible:=True;
begin
ExtractTemporaryFile('BASS.dll');
ExtractTemporaryFile('(AT07)Ride_the_Worm.mp3');
if BASS_Init(-1, 44100, 0, 0, 0) then
begin
BASS_Start();
Name1:=ExpandConstant('{tmp}\(AT07)Ride_the_Worm.mp3');
i:=BASS_StreamCreateFile(FALSE, PChar(Name1), 0, 0, 4);
if i <> 0 then
begin
BASS_ChannelPlay(i, True);
begin
PauseButton := TButton.Create(WizardForm);
PauseButton.Left := 58;
PauseButton.Top := 335;
PauseButton.Width := 50;
PauseButton.Height := 20;
PauseButton.Caption := 'выкл.';
PauseButton.OnClick := @PauseButtonOnClick;
PauseButton.Parent := WizardForm;
PauseButton.Cursor := crHand;
PauseButton.Hint := 'Приостановить музыку';
PauseButton.ShowHint := True;

Text := TNewStaticText.Create(WizardForm);
Text.Caption := 'Приостановить музыку';
Text.Parent := WizardForm;
Text.Font.Style := Text.Font.Style + [fsUnderline];
Text.Font.Color := clNavy;
Text.Top := 319;
Text.Left :=26;
Text.Color := clWhite;
begin
ExtractTemporaryFile('humor_do.jpg');
isxbb_AddImage(ExpandConstant('{tmp}')+'\humor_do.jpg',BACKGROUND);
isxbb_Init(StrToInt(ExpandConstant('{hwnd}')));
begin
with WizardForm do begin
Position:=poScreenCenter
ClientWidth:=690
ClientHeight:=496
Font.Color:=65280
Font.Name:='MS Sans Serif'
Font.Style:=[]
with Bevel do begin
Left:=0
Top:=313
Width:=497
Height:=2
Visible:=False
end
with CancelButton do begin
Left:=576
Top:=465
Width:=78
Height:=20
BringToFront
end
with NextButton do begin
Left:=429
Top:=465
Width:=78
Height:=20
BringToFront
end
with BackButton do begin
Left:=303
Top:=465
Width:=78
Height:=20
BringToFront
end
with OuterNotebook do begin
Left:=0
Top:=0
Width:=690
Height:=496
with WelcomePage do begin
Color:=0
with WizardBitmapImage do begin
Left:=0
Top:=0
Width:=690
Height:=496
end
with WelcomeLabel2 do begin
Left:=205
Top:=230
Width:=465
Height:=200
end
with WelcomeLabel1 do begin
Left:=205
Top:=190
Width:=465
Height:=28
Font.Color:=65280
Font.Size:=8
end
end
with InnerPage do begin
with Bevel1 do begin
Left:=0
Top:=58
Width:=499
Height:=3
Visible:=False
end
with InnerNotebook do begin
Left:=205
Top:=79
Width:=465
Height:=354
BringToFront
Color:=0
with LicensePage do begin
with LicenseNotAcceptedRadio do begin
Left:=0
Top:=338
Width:=465
Height:=17
Checked:=True
Color:=clWindow
end
with LicenseAcceptedRadio do begin
Left:=0
Top:=321
Width:=465
Height:=17
Color:=clWindow
end
with LicenseMemo do begin
Left:=0
Top:=38
Width:=465
Height:=282
ReadOnly:=True
ScrollBars:=ssVertical
end
with LicenseLabel1 do begin
Left:=0
Top:=0
Width:=465
Height:=28
end
end
with PasswordPage do begin
with PasswordEdit do begin
Left:=0
Top:=50
Width:=465
Height:=21
Font.Color:=clWindowText
end
with PasswordEditLabel do begin
Left:=0
Top:=34
Width:=465
Height:=14
end
with PasswordLabel do begin
Left:=0
Top:=0
Width:=465
Height:=28
end
end
with InfoBeforePage do begin
with InfoBeforeMemo do begin
Left:=0
Top:=24
Width:=465
Height:=327
ScrollBars:=ssVertical
end
with InfoBeforeClickLabel do begin
Left:=0
Top:=0
Width:=465
Height:=14
end
end
with UserInfoPage do begin
with UserInfoSerialEdit do begin
Left:=0
Top:=120
Width:=465
Height:=21
Font.Color:=clWindowText
end
with UserInfoSerialLabel do begin
Left:=0
Top:=104
Width:=465
Height:=14
end
with UserInfoOrgEdit do begin
Left:=0
Top:=68
Width:=465
Height:=21
Font.Color:=clWindowText
end
with UserInfoOrgLabel do begin
Left:=0
Top:=52
Width:=465
Height:=14
end
with UserInfoNameEdit do begin
Left:=0
Top:=16
Width:=465
Height:=21
Font.Color:=clWindowText
end
with UserInfoNameLabel do begin
Left:=0
Top:=0
Width:=465
Height:=14
end
end
with SelectDirPage do begin
with SelectDirBitmapImage do begin
Left:=0
Top:=0
Width:=32
Height:=32
Visible:=False
end
with DiskSpaceLabel do begin
Left:=0
Top:=340
Width:=465
Height:=14
end
with DirBrowseButton do begin
Left:=387
Top:=289
Width:=78
Height:=23
end
with DirEdit do begin
Left:=0
Top:=290
Width:=377
Height:=21
Font.Color:=clWindowText
end
with SelectDirBrowseLabel do begin
Left:=0
Top:=24
Width:=465
Height:=28
end
with SelectDirLabel do begin
Left:=0
Top:=0
Width:=465
Height:=14
end
end
with SelectComponentsPage do begin
with ComponentsDiskSpaceLabel do begin
Left:=0
Top:=340
Width:=417
Height:=14
end
with ComponentsList do begin
Left:=0
Top:=48
Width:=465
Height:=275
Font.Color:=65280
Color:=0
end
with TypesCombo do begin
Left:=0
Top:=24
Width:=465
Height:=21
Font.Color:=65280
Color:=0
end
with SelectComponentsLabel do begin
Left:=0
Top:=0
Width:=465
Height:=14
end
end
with SelectProgramGroupPage do begin
with SelectGroupBitmapImage do begin
Left:=0
Top:=0
Width:=32
Height:=32
Visible:=False
end
with NoIconsCheck do begin
Left:=0
Top:=312
Width:=377
Height:=20
Color:=clWindow
end
with GroupBrowseButton do begin
Left:=387
Top:=289
Width:=78
Height:=23
end
with GroupEdit do begin
Left:=0
Top:=290
Width:=377
Height:=21
Font.Color:=clWindowText
end
with SelectStartMenuFolderBrowseLabel do begin
Left:=0
Top:=24
Width:=465
Height:=28
end
with SelectStartMenuFolderLabel do begin
Left:=0
Top:=0
Width:=465
Height:=14
end
end
with SelectTasksPage do begin
with TasksList do begin
Left:=0
Top:=34
Width:=465
Height:=317
Color:=0
end
with SelectTasksLabel do begin
Left:=0
Top:=0
Width:=465
Height:=28
end
end
with ReadyPage do begin
with ReadyMemo do begin
Left:=0
Top:=34
Width:=465
Height:=317
Color:=0
end
with ReadyLabel do begin
Left:=0
Top:=0
Width:=465
Height:=28
end
end
with PreparingPage do begin
with PreparingErrorBitmapImage do begin
Left:=0
Top:=0
Width:=16
Height:=16
Visible:=False
end
with PreparingLabel do begin
Left:=24
Top:=0
Width:=393
Height:=14
Visible:=False
end
end
with InstallingPage do begin
with FilenameLabel do begin
Left:=0
Top:=16
Width:=465
Height:=16
end
with StatusLabel do begin
Left:=0
Top:=0
Width:=465
Height:=16
end
with ProgressGauge do begin
Left:=0
Top:=42
Width:=465
Height:=21
Min:=0
Max:=100
end
end
with InfoAfterPage do begin
with InfoAfterMemo do begin
Left:=0
Top:=24
Width:=465
Height:=327
ScrollBars:=ssVertical
end
with InfoAfterClickLabel do begin
Left:=0
Top:=0
Width:=465
Height:=14
end
end
end
with MainPanel do begin
Left:=0
Top:=0
Width:=690
Height:=496
with WizardSmallBitmapImage do begin
Left:=0
Top:=0
Width:=690
Height:=496
end
with PageDescriptionLabel do begin
Left:=25
Top:=25
Width:=500
Height:=14
Color:=0
Font.Color:=65280
end
with PageNameLabel do begin
Left:=15
Top:=7
Width:=500
Height:=14
Color:=0
Font.Color:=65280
end
end
end
with FinishedPage do begin
Color:=0
with WizardBitmapImage2 do begin
Left:=0
Top:=0
Width:=690
Height:=496
end
with NoRadio do begin
Left:=205
Top:=227
Width:=465
Height:=17
end
with YesRadio do begin
Left:=205
Top:=199
Width:=465
Height:=17
end
with RunList do begin
Left:=205
Top:=199
Width:=465
Height:=149
BorderStyle:=bsNone
end
with FinishedLabel do begin
Left:=205
Top:=119
Width:=465
Height:=53
end
with FinishedHeadingLabel do begin
Left:=205
Top:=79
Width:=465
Height:=24
Font.Color:=65280
Font.Size:=8
end
end
end
with BeveledLabel do begin
Left:=10
Top:=478
Width:=150
Height:=14
Enabled:=False
Color:=0
end
end;
end;
end;
end;

end;
end;
end;
end;


[Components]
Name: "RUS"; Description: "Русская версия игры"; Flags: exclusive
Name: "ENG"; Description: "Английская версия игры"; Flags: exclusive
Name: "setup"; Description: Установить основные файлы игры
Name: "Editor"; Description: Установить Редактор карт DuneMapEditor
Name: "Packer"; Description: Установить Упаковщик карт MapPacker
Name: "Tool"; Description: Установить Архиватор Файлов Bag 'BagTool'
Name: "Video"; Description: Установить Видео за все дома
Name: "Karti"; Description: Установить дополнительные карты для одиночнай игры




[Types]
Name: "custom"; Description: "Не совсем полная установка"; Flags: iscustom


[Tasks]
Name: "desktopicon"; Description: "Создать иконки на рабочем столе"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked
Name: "quicklaunchicon"; Description: "Создать иконки в панели быстрого запуска"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked

[Files]
Components: Video; Source: "{src}\Component\Video\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs external
Components: Karti; Source: "{src}\Component\Karti\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs external


Components: Tool; Source: "{src}\Component\Tool\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs external
Components: Packer; Source: "{src}\Component\Packer\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs external
Components: Editor; Source: "{src}\Component\Editor\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs external
Components: ENG; Source: "{src}\Leng\ENG\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs external
Components: setup; Source: "{src}\setup\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs external
Components: RUS; Source: "{src}\Leng\RUS\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs external
Source: C:\isxbb.dll; DestDir: {tmp}; Flags: dontcopy
Source: C:\humor_do.jpg; DestDir: {tmp}; Flags: dontcopy
Source: C:\humor_dp.jpg; DestDir: {tmp}; Flags: dontcopy
Source: C:\humor_dq.jpg; DestDir: {tmp}; Flags: dontcopy
Source: C:\humor_dr.jpg; DestDir: {tmp}; Flags: dontcopy
Source: C:\atr_pallace.JPG; DestDir: {tmp}; Flags: dontcopy
Source: C:\atr_sniper.JPG; DestDir: {tmp}; Flags: dontcopy
Source: C:\atr_soldier.JPG; DestDir: {tmp}; Flags: dontcopy
Source: C:\atr_sonic.JPG; DestDir: {tmp}; Flags: dontcopy
Source: C:\atreides_nebula.jpg; DestDir: {tmp}; Flags: dontcopy
Source: C:\starscape.jpg; DestDir: {tmp}; Flags: dontcopy
Source: C:\Atreides_lrg.gif; DestDir: {tmp}; Flags: dontcopy
Source: C:\buzzsaw.jpg; DestDir: {tmp}; Flags: dontcopy
Source: C:\galaxy_nebula.jpg; DestDir: {tmp}; Flags: dontcopy
Source: C:\hark_dawn.jpg; DestDir: {tmp}; Flags: dontcopy
Source: C:\hark_engineer.JPG; DestDir: {tmp}; Flags: dontcopy
Source: C:\hark_infantry.JPG; DestDir: {tmp}; Flags: dontcopy
Source: C:\hark_pallace.JPG; DestDir: {tmp}; Flags: dontcopy
Source: C:\hark_tank.JPG; DestDir: {tmp}; Flags: dontcopy
Source: C:\Harkonnen_lrg.gif; DestDir: {tmp}; Flags: dontcopy
Source: C:\harkonnen_nebula.jpg; DestDir: {tmp}; Flags: dontcopy
Source: C:\hiliner.jpg; DestDir: {tmp}; Flags: dontcopy
Source: C:\leachattack.jpg; DestDir: {tmp}; Flags: dontcopy
Source: C:\mcv.jpg; DestDir: {tmp}; Flags: dontcopy
Source: C:\ord_duster.JPG; DestDir: {tmp}; Flags: dontcopy
Source: C:\ord_mortar.JPG; DestDir: {tmp}; Flags: dontcopy
Source: C:\Ordos_lrg.gif; DestDir: {tmp}; Flags: dontcopy
Source: C:\planets.jpg; DestDir: {tmp}; Flags: dontcopy
Source: C:\ring.jpg; DestDir: {tmp}; Flags: dontcopy
Source: C:\runes.jpg; DestDir: {tmp}; Flags: dontcopy
Source: C:\sardauk.JPG; DestDir: {tmp}; Flags: dontcopy
Source: C:\sector_map.jpg; DestDir: {tmp}; Flags: dontcopy
Source: C:\shot_01.jpg; DestDir: {tmp}; Flags: dontcopy
Source: C:\shot_02.jpg; DestDir: {tmp}; Flags: dontcopy
Source: C:\shot_03.jpg; DestDir: {tmp}; Flags: dontcopy
Source: C:\shot_04.jpg; DestDir: {tmp}; Flags: dontcopy
Source: C:\shot_05.jpg; DestDir: {tmp}; Flags: dontcopy
Source: C:\shot_06.jpg; DestDir: {tmp}; Flags: dontcopy
Source: C:\shot_07.jpg; DestDir: {tmp}; Flags: dontcopy
Source: C:\shot_08.jpg; DestDir: {tmp}; Flags: dontcopy
Source: C:\shot_09.jpg; DestDir: {tmp}; Flags: dontcopy
Source: C:\shot_10.jpg; DestDir: {tmp}; Flags: dontcopy
Source: "C:\Westwood\Emperor\DATA\UI\MAPINFO.INI "; DestDir: "{app}\DATA\UI\"; Flags: ignoreversion
Source: "C:\humor_dp.bmp"; DestDir: "{tmp}"; Flags: dontcopy
Source: "C:\bass.dll"; DestDir: "{tmp}"; Flags: dontcopy
Source: "C:\(AT07)Ride_the_Worm.mp3"; DestDir: "{tmp}"; Flags: dontcopy
Source: "C:\Westwood\Emperor\LAUNCHER.TXT"; DestDir: "{tmp}"; Flags: ignoreversion
Source: "C:\Westwood\Emperor\EMPEROR.EXE"; DestDir: "{app}"; Flags: ignoreversion
Source: "C:\Westwood\Emperor\README.TXT"; DestDir: "{tmp}"; Flags: ignoreversion
Source: "C:\Westwood\Emperor\setupreg.exe"; DestDir: "{app}"; Flags: ignoreversion
Source: "C:\Westwood\Emperor\Emperor.rtf"; DestDir: "{app}"; Flags: ignoreversion
Source: "C:\Westwood\Emperor\InfoAfter.rtf"; DestDir: "{app}"; Flags: ignoreversion
Source: "C:\Westwood\Emperor\Icon Entry_1.ico"; DestDir: "{tmp}"; Flags: ignoreversion
; NOTE: Don't use "Flags: ignoreversion" on any shared system files

[INI]
Filename: "{app}\EMPEROR.url"; Section: "InternetShortcut"; Key: "URL"; String: "http://www.Westwood.com"

[Registry]
;Buka
Root: HKLM; Subkey: "Software\Westwood"; Flags: uninsdeletekey

[Icons]
Name: "{group}\EMPEROR"; Filename: "{app}\EMPEROR.EXE"; WorkingDir: "{app}";
Name: "{group}\PATCH"; Filename: "{app}\PATCH.DOC"; WorkingDir: "{app}"; Parameters: "TubeStartup.fuk USERINI=TubeUser.ini INI=TubePostal2.ini"
Name: "{group}\Удоление"; Filename: "{app}\unins000.exe"; WorkingDir: "{app}";
Name: "{group}\Удоление"; Filename: "{app}\unins000.exe"; WorkingDir: "{app}";
Name: "{group}\советы"; Filename: "{app}\Emperor.rtf"; WorkingDir: "{app}";
Name: "{group}\работа с MapEditor"; Filename: "{app}\InfoAfter.rtf"; WorkingDir: "{app}";
Name: "{userdesktop}\EMPEROR"; Filename: "{app}\EMPEROR.EXE"; Tasks: desktopicon; WorkingDir: "{app}"; Parameters: "TubeStartup.fuk USERINI=TubeUser.ini INI=TubePostal2.ini"
Name: "{userdesktop}\советы"; Filename: "{app}\Emperor.rtf"; Tasks: desktopicon; WorkingDir: "{app}"; Parameters: "TubeStartup.fuk USERINI=TubeUser.ini INI=TubePostal2.ini"
Name: "{userdesktop}\работа с MapEditor"; Filename: "{app}\InfoAfter.rtf"; Tasks: desktopicon; WorkingDir: "{app}"; Parameters: "TubeStartup.fuk USERINI=TubeUser.ini INI=TubePostal2.ini"

[Run]
Filename: "{app}\EMPEROR.EXE";Description: "Запустить Игру"; Flags: nowait postinstall skipifsilent
Filename: "{app}\setupreg.exe"; Parameters: "/q"; StatusMsg: "";Flags: waituntilterminated

[UninstallDelete]
Type: files; Name: "{app}\EMPEROR.url"




________________________________________________________________________________
___________-
Во время установки показуют картинки а их плохо видна иза огромной страницы с индикатором выполнения установки
пробовал так
________________________________________________________________________________
___________
procedure InitializeWizard();
begin
//Выносим кнопку "Отмена" на передний план
WizardForm.CancelButton.BringToFront;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
if CurPageID=wpInstalling
then
begin
WizardForm.MainPanel.Visible:=False;
WizardForm.Bevel1.Visible:=False;
WizardForm.Width:=ScaleX(395);
WizardForm.Height:=ScaleY(142);
//Здесь смещение страницы установки (в верхний левый угол)
WizardForm.Left:=ScaleX(0);
WizardForm.Top:=ScaleY(0);
{Внимание! Нижеописанные способы смещения работают только когда вставлено фоновое изображение или WindowVisible=yes}
{Выводит в правом верхнем углу экрана}
//WizardForm.Left:=ScaleX(MainForm.Width-420);
//WizardForm.Top:=ScaleY(MainForm.Left+20);
________________________________________________________________________________
_________
нифига не выходит по человечиски Во время возврата страници на место, сушествует только 1\4
страницы икнопок ни какмх нет прихоца убивать процес а обычный юзор пади дагадается нажать три кнопки!!!
Чё делать ребята подскажите!!!
Сетапчик со скином у меня здоров сабака и изо него то инеработает Уменьшение страницы.
Я с этим уже баротся устал!!!
А всё равно хоца зделать красива!!!
Памагите кто чем может!!!
Я дам откомпелированый файл посмотрите вроде ничё но вот есть ета проблемма!!!
Volkogriz
8:06:2007, 00:29
Я могу и скину руководство по ин сетапчику!!!
еслиб знал куда!!!
Если кому надо обращайтесь Volkogriz@ya.ru
Файл прикреплю но куда он девается не вкурси!!
Volkogriz
8:06:2007, 01:10
И ещё прозба !!!
После установки остаётся много мусора как собрать Униинсталяшку каторая б спрашивала пользователя удолить временные файлы ну и соответствена удаляла весь мусор!!!
Volkogriz
8:06:2007, 01:10
И ещё прозба !!!
После установки остаётся много мусора как собрать Униинсталяшку каторая б спрашивала пользователя удолить временные файлы ну и соответствена удаляла весь мусор!!! tongue.gif
TRT
8:06:2007, 07:20
Для: Volkogriz
Цитата(Volkogriz @ 8:06:2007, 03:29 )
Сетапчик со скином у меня здоров сабака и изо него то инеработает Уменьшение страницы.
*

Это старая версия скинов в ней много недоработок.
Сюда выложил финальную версию стандартных скинов:
]]>http://data.cod.ru/1105821130]]>
А вообще по инно сюда:
]]>http://forum.ru-board.com/topic.cgi?forum=...801&start=0]]>
так как этот форум мёртв.
Nightw0lf
8:06:2007, 09:14
Volkogriz
Цитата
После установки остаётся много мусора как собрать Униинсталяшку каторая б спрашивала пользователя удолить временные файлы ну и соответствена удаляла весь мусор!!!

Вот добавь в секцию [Setup]
[Setup]
;Означает создавать ли автоматический деинсталлятор. При значении "yes" он создается. При значении "no" автоматическое удаление будет невозможно, так что пользователь должен будет вручную удалять программу.
Uninstallable=yes
;Изменяет иконку на странице "Установка и удаление программ" в Панели управления
UninstallDisplayIcon={app}\ICONS\UnInstall.ico
;Место расположения деинсталлятора (по умолчанию значение - UninstallFilesDir={app})
UninstallFilesDir={app}\Uninstall
;Режим создания "лога" для деинсталлятора
UninstallLogMode=overwrite
Volkogriz
9:06:2007, 10:11
Благодорю!!! blink.gif
Volkogriz
9:06:2007, 11:30
Почиму форум мёртв???
Вродебы тема нармальная многие с етим сталкиваются!!!!
Volkogriz
9:06:2007, 11:30
Почиму форум мёртв???
Вродебы тема нармальная многие с етим сталкиваются!!!!
blink.gif
Volkogriz
9:06:2007, 22:27
Памагите с сетапчиком в Delphi!!!!
Volkogriz
13:06:2007, 01:06
ph34r.gif Я как зелёный попробую помочь !!![quote][code]должен запускаться мастер инсталляции, а если ключ не существует, то должна вылетать мессага, что прога не найдена - жмите OK чтобы покинуть мастер (ну или другой текст). Вобщем вы программеры - для вас скриптик или только секцию кода написать не составит труда. Поможете такому как мне?




Этакая комбинированная проверка. При инициализации проверяется присутствие определенного ключа, если его нету - выдается соответствующее сообщение и на этом действия прекращаются, если ключ присутствует, то появится сообщение об удачном обнаружении программы, также проверяется присутствие уже установленной программы, с предложением ее удалить.

Вы можете проверять также присутствие определенного файла_(ов) в папке с программой, либо размер, исходя из значений реестра. Просто установите нижеописанные проверки на присутствие и размер, с указанием в качестве константы данные ResultStr.

Код:
function InitializeSetup(): Boolean;
var
ResultCode: Integer;
s, ResultStr:string;
Result:=True;
begin
Result:=True;
If not RegKeyExists(HKLM, 'SOFTWARE\MY_PROGRAM')
then
begin
MsgBox('Программа MY_PROGRAM не установлена или установлена неверно.' #13#13 'Дальнейшая работа мастера невозможна.', mbError, mb_Ok);
Result:=False;
end
else
begin
MsgBox('Программа MY_PROGRAM успешно обнаружена.' #13#13 'Установка полностью автоматическая.', mbInformation, mb_Ok);
begin
If RegQueryStringValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\My_Program_v1.0_is1', 'UninstallString', ResultStr)
then
begin
If ResultStr<>''
then
begin
ResultStr:=RemoveQuotes(ResultStr);
if MsgBox('Программа установки обнаружила уже установленную программу ранней версии.' #13#13 'Вы желаете предварительно удалить ее?', mbInformation, MB_YESNO) = idYes
then
if not Exec(ResultStr, '', '', SW_SHOWNORMAL, ewWaitUntilTerminated, ResultCode)
then
MsgBox('Ошибка удаления. ' #13#13 '' + SysErrorMessage(ResultCode) + '.' #13#13 'Вероятно, деинсталлятор был перемещен, удален или переименован.', mbError, MB_OK);
end;
end;
end;
end;
end;

Для: Kindly
Я как зелёный попробую помочь !!![quote][code]должен запускаться мастер инсталляции, а если ключ не существует, то должна вылетать мессага, что прога не найдена - жмите OK чтобы покинуть мастер (ну или другой текст). Вобщем вы программеры - для вас скриптик или только секцию кода написать не составит труда. Поможете такому как мне?




Этакая комбинированная проверка. При инициализации проверяется присутствие определенного ключа, если его нету - выдается соответствующее сообщение и на этом действия прекращаются, если ключ присутствует, то появится сообщение об удачном обнаружении программы, также проверяется присутствие уже установленной программы, с предложением ее удалить.

Вы можете проверять также присутствие определенного файла_(ов) в папке с программой, либо размер, исходя из значений реестра. Просто установите нижеописанные проверки на присутствие и размер, с указанием в качестве константы данные ResultStr.

Код:
function InitializeSetup(): Boolean;
var
ResultCode: Integer;
s, ResultStr:string;
Result:=True;
begin
Result:=True;
If not RegKeyExists(HKLM, 'SOFTWARE\MY_PROGRAM')
then
begin
MsgBox('Программа MY_PROGRAM не установлена или установлена неверно.' #13#13 'Дальнейшая работа мастера невозможна.', mbError, mb_Ok);
Result:=False;
end
else
begin
MsgBox('Программа MY_PROGRAM успешно обнаружена.' #13#13 'Установка полностью автоматическая.', mbInformation, mb_Ok);
begin
If RegQueryStringValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\My_Program_v1.0_is1', 'UninstallString', ResultStr)
then
begin
If ResultStr<>''
then
begin
ResultStr:=RemoveQuotes(ResultStr);
if MsgBox('Программа установки обнаружила уже установленную программу ранней версии.' #13#13 'Вы желаете предварительно удалить ее?', mbInformation, MB_YESNO) = idYes
then
if not Exec(ResultStr, '', '', SW_SHOWNORMAL, ewWaitUntilTerminated, ResultCode)
then
MsgBox('Ошибка удаления. ' #13#13 '' + SysErrorMessage(ResultCode) + '.' #13#13 'Вероятно, деинсталлятор был перемещен, удален или переименован.', mbError, MB_OK);
end;
end;
end;
end;
end;
TRT
14:06:2007, 14:20
Подскажите как можно сделать форму подвижной при значении WizardForm.BorderStyle:=bsNone ?
TRT
17:06:2007, 22:01
На одном форуме пробил такой код для Делфи где при значении BorderStyle=bsNone можно форму сделать подвижной:

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
Perform ( WM_SYSCOMMAND, SC_MOVE+2, 0 );
end;

Этого нехватает для полной красоты инсталлятора.
Можно ли это сделать для WizardForm в инно?
Очень надеюсь на помощь Программистов!
Заранее Благодарен!
AdiSan
23:07:2007, 18:43
Вопрост по Inno Setup 5. Может он уже где-то обсуждался, но по поиску найти не удалось, а
очень надо. Так вот: вместе со своей прогой в инсталлятор пихаю несколько Dll без которых
она не прет, не прет она и если эти Dll не зарегены в реестре, собсно, как это сделать? ПРиведите пжалста пример скрипта. Заранее благодарю.
Nightw0lf
23:07:2007, 19:45
AdiSan
Цитата
не прет она и если эти Dll не зарегены в реестре, собсно, как это сделать? Риведите пжалста пример скрипта. Заранее благодарю.

Вот пример регистрации библиотеки:
[code]
Source: "C:\msxml4.dll"; DestDir: "{sys}"; Flags: restartreplace sharedfile regserver
AdiSan
24:07:2007, 15:40
И всего то одна строчка. Nightw0lf, большой сэнкс.
Димбай
1:08:2007, 15:27
Всем привет!
Начал делать инсталятор в Inno и споткнулся об такую вещь:мне нужно найти в системе пользователя \Games\data\папку-sounds(звук оригинальной игры) и скопировать её в \Games\mod\data\sounds то есть в папку мода,который я хочу установить.В Inno это возможно? и если можно подскажите как при деинсталяции вернуть оригинальные файлы.Надеюсь что подскажите.Спасибо за внимание.
Nightw0lf
2:08:2007, 09:40
Димбай
Цитата
и если можно подскажите как при деинсталяции вернуть оригинальные файлы.Надеюсь что подскажите.

Я так понял тебе нужно сдела резерную копию оригинальных файлов, а при деинсталляции вернуть все обратно? Если да то вот:
#include "SHFileOperation.iss"

[Setup]
AppName=My Program
AppVerName=My Program version 1.5
DefaultDirName={pf}\My Program
DefaultGroupName=My Program

[Tasks]
Name: src; Description: "Backup"

[Files]
Source: "C:\util\*"; DestDir: {app}; BeforeInstall: CreateBackup; Flags: ignoreversion recursesubdirs createallsubdirs

[Code]
function MoveFile(const srcFile, destFile: PChar): Integer;
external 'MoveFileA@kernel32.dll stdcall';

procedure CreateBackup;
var
srcFile, destFile: string;
basePath, shortPath: string;
begin
if IsTaskSelected('src') then
begin
  basePath := ExpandConstant('{app}');
    srcFile := ExpandConstant(CurrentFileName);
    shortPath := srcFile;
   StringChangeEx(shortPath, basePath, '', True);
   destFile := ExpandConstant('{app}\Backup') + shortPath;
 ForceDirectories(ExtractFilePath(destFile));
 MoveFile(PChar(srcFile), PChar(destFile));
end;
end;

procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
 if CurUninstallStep = usPostUninstall then
begin
  MoveDir(ExpandConstant('{app}\Backup\'), ExpandConstant('{app}'));
  RemoveDir(ExpandConstant('{app}\Backup\'));
end;
end;


Скачать файл ]]>SHFileOperation.iss]]>

P.S.: для работы скрипта нужен ]]>препроцессор]]>
Nightw0lf
2:08:2007, 09:44
[Удалено]
Димбай
2:08:2007, 16:15
Для: Nightw0lf
Цитата
Я так понял тебе нужно сдела резерную копию оригинальных файлов, а при деинсталляции вернуть все обратно?

Да,файлов которые меняются или добавляются.Буду пробовать.Спасибо!
Ded Mazai
25:10:2007, 19:15
помогите плз, как сделать (или разбить), чтобы в итоге получилось 2-4 exe-шника,чтобы после установки 1го выводился запрос на установку 2го? если так можно, или как упаковать фалы размером 4-8 гб, ведь IS вроде мах пакует 2 гб - у меня ISC5
Страег
13:04:2008, 08:43
Всем добрый день.нужно вставить этот код:
Цитата(zubr @ 21:03:2005, 23:25 ) *
[Components]
Name: "Backup"; Description: "Backup"; Types: full

[Files]
Components: Backup; Source: "MyProg.exe"; DestDir: "{app}"; Flags: ignoreversion; Check: MyProgCheck

[Code]

function MyProgCheck():boolean;
var
    s1, s2:string;
begin
 Result:=True;
 s1:=ExpandConstant('{app}')+'\MyProg.exe';
 s2:=ExpandConstant('{app}')+'\Backup';
 If FileExists(s1) then
 begin
  CreateDir(s2);
  FileCopy(s1, s2+'\MyProg.exe', False);
 end;
end;

Здесь файл MyProg.exe и есть с которого делается копия.


В этот скрипт.Плиз покажите куда именно его нужно вставить.я просто нупег
; Script generated by the Inno Setup Script Wizard.
; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES!

[Setup]
AppName=Сокрушитель
AppVerName=Сокрушитель v3.2 by Crond
AppPublisher=SKYRIVER
AppPublisherURL=http://www.skyriver.ru/
AppSupportURL=http://www.skyriver.ru/
AppUpdatesURL=http://www.skyriver.ru/
DefaultDirName=C:\Program Files\SkyRiver\AIM II\Data
DefaultGroupName=Сокрушитель v3.2 by Crond
AllowNoIcons=yes
OutputDir=C:\Documents and Settings\PCHELP\Мои документы
OutputBaseFilename=Setup
SetupIconFile=C:\Documents and Settings\PCHELP\Мои документы\My Games\механоиды 2 война кланов моды\дополнения. проги\A.I.M._Icons_v2.2\A.I.M. 2.ico
Compression=lzma
SolidCompression=yes

[Languages]
Name: "english"; MessagesFile: "compiler:Default.isl"
Name: "basque"; MessagesFile: "compiler:Languages\Basque.isl"
Name: "brazilianportuguese"; MessagesFile: "compiler:Languages\BrazilianPortuguese.isl"
Name: "catalan"; MessagesFile: "compiler:Languages\Catalan.isl"
Name: "czech"; MessagesFile: "compiler:Languages\Czech.isl"
Name: "danish"; MessagesFile: "compiler:Languages\Danish.isl"
Name: "dutch"; MessagesFile: "compiler:Languages\Dutch.isl"
Name: "finnish"; MessagesFile: "compiler:Languages\Finnish.isl"
Name: "french"; MessagesFile: "compiler:Languages\French.isl"
Name: "german"; MessagesFile: "compiler:Languages\German.isl"
Name: "hebrew"; MessagesFile: "compiler:Languages\Hebrew.isl"
Name: "hungarian"; MessagesFile: "compiler:Languages\Hungarian.isl"
Name: "italian"; MessagesFile: "compiler:Languages\Italian.isl"
Name: "norwegian"; MessagesFile: "compiler:Languages\Norwegian.isl"
Name: "polish"; MessagesFile: "compiler:Languages\Polish.isl"
Name: "portuguese"; MessagesFile: "compiler:Languages\Portuguese.isl"
Name: "russian"; MessagesFile: "compiler:Languages\Russian.isl"
Name: "slovak"; MessagesFile: "compiler:Languages\Slovak.isl"
Name: "slovenian"; MessagesFile: "compiler:Languages\Slovenian.isl"
Name: "spanish"; MessagesFile: "compiler:Languages\Spanish.isl"

[Files]
Source: "C:\Documents and Settings\PCHELP\Мои документы\My Games\механоиды 2 война кланов моды\дополнения. проги\сокрушитель v 3_2\сокрушитель v 3_2\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs
; NOTE: Don't use "Flags: ignoreversion" on any shared system files

[Icons]
Name: "{group}\{cm:ProgramOnTheWeb,Сокрушитель}"; Filename: "http://www.skyriver.ru/"
Name: "{group}\{cm:UninstallProgram,Сокрушитель}"; Filename: "{uninstallexe}"

UPDATE.
Я разобрался куда его вставить.но когда скрипт собираю и запускаю ехе.чтобы проверить,устанавливаю,а папки backup нет! скажите что я нетак сделал?
sergio_ps
14:04:2008, 09:03
Цитата(Ded Mazai @ 25:10:2007, 21:15 ) *
помогите плз, как сделать (или разбить), чтобы в итоге получилось 2-4 exe-шника,чтобы после установки 1го выводился запрос на установку 2го? если так можно, или как упаковать фалы размером 4-8 гб, ведь IS вроде мах пакует 2 гб - у меня ISC5

[Setup]
DiskSpanning=yes 
DiskSliceSize=733989400 (размер в байтах)
Страег
17:04:2008, 15:19
Народ.мне нуно чтобы инсталятор делал резерв копию 6 файлов и одной папки.
Вот:
Бла-бла\Файл1
Бла-бла\Файл2
Бла-бла\Файл3
Бла-бла\Файл4
Бла-бла\Файл5
Бла-бла\Файл6
Бла-бла\папка
Ниже скрипт,поясните нупу как сделать чтобы сохранились резервы того что выше написал?
[Components]
Name: "Backup"; Description: "Сохранить резервные копии файлов"; Types: full

[Types]
Name: "Backup"; Description: "Выборочная установка"; Flags: iscustom

[Files]
Components: Backup; Source: "MyProg.exe"; DestDir: "{app}"; Flags: ignoreversion; Check: MyProgCheck

[Code]

function MyProgCheck():boolean;
var
   s1, s2:string;
begin
Result:=True;
s1:=ExpandConstant('{app}')+'\MyProg.exe';
s2:=ExpandConstant('{app}')+'\Backup';
If FileExists(s1) then
begin
 CreateDir(s2);
 FileCopy(s1, s2+'\MyProg.exe', False);
end;
end;
Для просмотра полной версии этой страницы, пожалуйста, пройдите по ссылке.
Форум IP.Board © 2001-2009 IPS, Inc.