» Inno Setup (создание инсталяционных пакетов)

innonewbie
добрый день у меня опять проблема добавил в скрипт splash а он не отображается http://rghost.ru/58408879

artemabu
Пробуйте, splash http://rghost.ru/58409723

tryroom
такая же беда спасибо за попытку!!!!!

artemabu
компилируй на расширенной ansi версии и будет всё работать

tryroom
спасибо большое огромное все получилось !!!!!
а как руссифицировать программу
скачал руссификатор а что дальше

artemabu
о какой программе идёт речь?

Цитата:

artemabu
о какой программе идёт речь?

inno setup

artemabu
Inno_Setup_5.5.1_RusPack-Restools-

http://rghost.ru/58411947

Цитата:

artemabu
Inno_Setup_5.5.1_RusPack-Restools-
 
http://rghost.ru/58411947

спасибо уже разобрался

Цитата:

Наверное мой модульный скрипт уже никому нафиг не нужен

http://fastpic.ru/view/64/2014/1008/71b10f8f213984428ebe63c1844339f3.jpg.html

sergey3695
Если есть желание, может быть глянете, почему так происходит. Я не могу понять.
Я занимался лишь отладкой косяков предыдущих версий. А эту никак исправить не получается.

Вот что исправленно в этом скрипте:

1. Исправлен деинсталлятор. Не копировались нужные файлы при установке с нескольких дисков. На это влияли модули Skin.iss и Images.iss - в них то и исправил косяки.

2. Исправлено корректное отключение модуля "Системные требования". Не компилировался скрипт из за привязки к форме после отключения модуля.

3. WAV звуки заменены на MP3. Написана новая инициализация вывода звука.

4. Индикатор времени видео/слайдов теперь прячется вместе с кнопками и с ними же появляется.

5. Исправлен глюк модуля "Системные требования" который неправильно определял архитектуру системы. Модуль считал что система x64 не поддерживается для x86 игры.

6. Модуль SetupCode.iss был переделан на SetupKernel.iss, а также в нём было тоже несколько исправлений.

Список не полный, просто что-то забыл ещё... ))

добрый день это опять я у меня есть один вопрос как сделать так что чтобы инсталяттор знал сколько места требуется для распаковки фреарк а то у меня для распкаковки требуется 12 мегабайт хотя игра весит больше 8.36гб http://s50.radikal.ru/i127/1410/b2/f6d53f8a7d86.jpg

artemabu


Код:
[code]
Procedure InitializeWizard();
begin
WizardForm.DiskSpaceLabel.Caption:= 'Требуется как минимум 8.36 ГБ свободного дискового пространства';
end;

artemabu, можно ещё так написать:
[Messages]
DiskSpaceMBLabel=Требуется как минимум 8.36 Гб свободного дискового пространства.
Или вот [more=пример]#define NeedSize "400427"

[Setup]
AppName=NeedSize
AppVerName=TotalNeedSize
DefaultDirName={pf}\NeedSize
DefaultGroupName=NeedSize

[Code]
//******************************************* [ начало Место для установки ] ***************************************************//

Function NumToStr(Float: Extended): String;
Begin
Result:= Format('%.2n', [Float]); StringChange(Result, ',', '.');
while ((Result[Length(Result)] = '0') or (Result[Length(Result)] = '.')) and (Pos('.', Result) > 0) do
SetLength(Result, Length(Result)-1);
End;

var
FreeMB, TotalMB: Cardinal;
NeedSize:Integer;
NeedSpaceLabel,FreeSpaceLabel: TLabel;

Function MbOrTb(Byte: Extended): String;
begin
if Byte < 1024 then Result:= NumToStr(Byte) + ' Мб' else
if Byte/1024 < 1024 then Result:= NumToStr(round(Byte/1024*100)/100) + ' Гб' else
Result:= NumToStr(round((Byte/(1024*1024))*100)/100) + ' Тб';
end;

procedure GetFreeSpaceCaption(Sender: TObject);
var
Path: String;
begin
Path := ExtractFileDrive(WizardForm.DirEdit.Text);
GetSpaceOnDisk(Path, True, FreeMB, TotalMB);
NeedSpaceLabel.Caption := 'Необходимо места на диске: '+ MbOrTb(NeedSize);
FreeSpaceLabel.Caption := 'Доступно места на диске: '+ MbOrTb(FreeMB);
WizardForm.NextButton.Enabled:= (FreeMB>NeedSize);
if (FreeMB<NeedSize) then
FreeSpaceLabel.Font.Color:=clRed else
FreeSpaceLabel.Font.Color:=WizardForm.Font.Color;
end;

procedure InitializeWizard();
begin
NeedSize := {#NeedSize};

WizardForm.DiskSpaceLabel.Hide;

FreeSpaceLabel := TLabel.Create(WizardForm);
FreeSpaceLabel.Parent := WizardForm.SelectDirPage;
FreeSpaceLabel.SetBounds(ScaleX(5), ScaleY(220), ScaleX(209), ScaleY(13));

NeedSpaceLabel := TLabel.Create(WizardForm);
NeedSpaceLabel.Parent := WizardForm.SelectDirPage;
NeedSpaceLabel.SetBounds(ScaleX(5), ScaleY(200), ScaleX(209), ScaleY(13));

WizardForm.DirEdit.OnChange := @GetFreeSpaceCaption;
end;

//******************************************* [ конец Место для установки ] ***************************************************//

procedure CurPageChanged(CurPageID: Integer);
begin
if CurPageID = wpSelectDir then GetFreeSpaceCaption(nil);
end;

[/more] проверки необходимого и места и общего размера HDD.

innonewbie
не получилось мне сделать, теперь вообще ни места, и ничего не от обращается http://rghost.ru/58451452

artemabu, ну дак в прцедуру CurPageChanged не прописал, вот и "от обращается". Вот, поправил: http://rghost.ru/58451737

innonewbie
а где изменить количества места требуемого для установки игры http://s017.radikal.ru/i429/1410/63/a3bf2229a81b.jpg

artemabu, открываешь скрипт, в самом верху находишь строку #define NeedSize "400427" и меняешь число 400427 на своё в мегабайтах (например, если нужно 8.36 Гб, то пишешь 8560)

Здравствуйте!
Нужна помощь. Кучу всего перечитал, но так и не нашёл ответа на свой вопрос.
Задача: требуется определить имя текущего пользователя и данное значение передать в ключ реестра.

CYberZero, плохо искал значит. Из справки по Inno Setup

Код: Constants
{username}
The name of the user who is running Setup or Uninstall program (as returned by the GetUserName function).

innonewbie
спасибо за инфу без вас я бы не справился

nik1967, большое спасибо, я про это читал, но я не знал, что эти директивы можно использовать в разделе [Registry].

nik1967
попробовал я ваш код, код конечно вы дали не рабачий
http://s50.radikal.ru/i127/1410/58/742862001e88t.jpg

Прощу помочь разобраться.
Мне нужно чтобы после каждого выполнения программы (или до начало выполнения) в секции [RUN], прогресс бар показывал ход выполнения команды?
Крайний случай, как убрать прогресс бар вообще?

artemabu
это внутренняя константа, её не нужно объявлять
и тем более не нужно пихать в код её описание

Можно ли средствами inno провести регистрацию или установку драйвера? Имеется только файл .sys (виртуальный привод программы poweriso).

dodakaedr
имхо, надо знать что в реестр прописывать, должен быть файл. inf

CUTA
по-моему нет события на отработку внешних программ
скрыть прогрессбар: WizardForm.ProgressGauge.Hide или OutputProgressWizardPage.ProgressBar.Hide

Как использовать картинки .png вместо .bmp?

AlekseyPopovv
http://forum.oszone.net/post-2124480-57.html

tjtxxxtfh

Цитата:

скрыть прогрессбар: WizardForm.ProgressGauge.Hide или OutputProgressWizardPage.ProgressBar.Hide

По подробней пожалуйста.