Inno Setup. Сделайте за меня

[nik1967]

petruxa, Converter REG to Inno Setup в шапке темы.

 

[vint56]

Linuxoid

как такое может быть, если в заданной папке лежат файлы?

Что такое precomp
Precomp - это прекомпрессор, который пытается расжать в файлах потоки сжатые ZLib или Deflate метод сжатия, в результате вы получаете файл большего размера, который в последствии можете сжать более лучшим методом сжатия
Значит precomp не нашёл ZLib потоков чтобы расжать просто попробуй другие файлы

 

[petruxa]

nik1967
Не качает! Есть другая ссылка?

 

[vint56]

petruxa Converter REG to Inno Setup http://rghost.ru/43801249

 

[Linuxoid]

теперь пишет такую ошибку:

Спойлер: ошибка

None of the given compression and memory levels could be used.
There will be no gain compressing the output file.

Errorlevel=2

ERROR: general (de)compression error in srep:mf3:a1: 10%

 

[petruxa]

vint56
Спасибо!

 

[GARID]

Как поставить изображение на сверху инсталла? как на скрыне

http://radikal.ru/F/i020.radikal.ru/1109/f9/90ec73f5662d.jpg.html

 

[Devils Night]

GARID, Вот так

var
WelcomeLabel1, WelcomeLabel2: TLabel;

procedure InitializeWizard();
begin
 WizardForm.WizardBitmapImage.Width := ScaleX(500);
 WelcomeLabel1:= TLabel.Create(WizardForm);
 WelcomeLabel1.AutoSize:= False;
 with WizardForm.WelcomeLabel1 do
 WelcomeLabel1.SetBounds(Left, Top, Width, Height);
 WelcomeLabel1.Font:= WizardForm.WelcomeLabel1.Font
 WelcomeLabel1.Font.Color:= clWhite;
 WelcomeLabel1.Transparent:= True;
 WelcomeLabel1.WordWrap:= true;
 WelcomeLabel1.Caption:= WizardForm.WelcomeLabel1.Caption;
 WelcomeLabel1.Parent:= WizardForm.WelcomePage
 WelcomeLabel2:= TLabel.Create(WizardForm);
 WelcomeLabel2.AutoSize:= False;
 with WizardForm.WelcomeLabel2 do
 WelcomeLabel2.SetBounds(Left, Top, Width, Height);
 WelcomeLabel2.Font:= WizardForm.WelcomeLabel2.Font
 WelcomeLabel2.Font.Color:= clWhite;
 WelcomeLabel2.Transparent:= True;
 WelcomeLabel2.WordWrap:= true;
 WelcomeLabel2.Caption:= WizardForm.WelcomeLabel2.Caption;
 WelcomeLabel2.Parent:= WizardForm.WelcomePage
 WizardForm.WelcomeLabel1.Hide;
 WizardForm.WelcomeLabel2.Hide;
end;[/MORE]

 

[GARID]

Вот так

var
WelcomeLabel1, WelcomeLabel2: TLabel;

procedure InitializeWizard();
begin
 WizardForm.WizardBitmapImage.Width := ScaleX(500);
 WelcomeLabel1:= TLabel.Create(WizardForm);
 WelcomeLabel1.AutoSize:= False;
 with WizardForm.WelcomeLabel1 do
 WelcomeLabel1.SetBounds(Left, Top, Width, Height);
 WelcomeLabel1.Font:= WizardForm.WelcomeLabel1.Font
 WelcomeLabel1.Font.Color:= clWhite;
 WelcomeLabel1.Transparent:= True;
 WelcomeLabel1.WordWrap:= true;
 WelcomeLabel1.Caption:= WizardForm.WelcomeLabel1.Caption;
 WelcomeLabel1.Parent:= WizardForm.WelcomePage
 WelcomeLabel2:= TLabel.Create(WizardForm);
 WelcomeLabel2.AutoSize:= False;
 with WizardForm.WelcomeLabel2 do
 WelcomeLabel2.SetBounds(Left, Top, Width, Height);
 WelcomeLabel2.Font:= WizardForm.WelcomeLabel2.Font
 WelcomeLabel2.Font.Color:= clWhite;
 WelcomeLabel2.Transparent:= True;
 WelcomeLabel2.WordWrap:= true;
 WelcomeLabel2.Caption:= WizardForm.WelcomeLabel2.Caption;
 WelcomeLabel2.Parent:= WizardForm.WelcomePage
 WizardForm.WelcomeLabel1.Hide;
 WizardForm.WelcomeLabel2.Hide;
end;[/MORE][/QUOTE]

Спасибо за ответь но я имел в виду эту изображению

[URL=http://fastpic.ru/view/46/2013/0401/ef665e923f4d65b949fffb81eb02658c.jpg.html][IMG]http://i46.fastpic.ru/thumb/2013/0401/8c/ef665e923f4d65b949fffb81eb02658c.jpeg[/IMG][/URL]

 

[Devils Night]

GARID, Тебе фон на заднем плане нужен?

Первый пример

[Setup]
AppName=My Program
AppVersion=1.5
DefaultDirName={pf}\My Program
DefaultGroupName=My Program
OutputBaseFilename=setup
WindowVisible=yes

[Files]
Source: BackImage.bmp; DestDir: {tmp}; Flags: dontcopy;

procedure InitializeWizard();
var
BackImage: TBitmapImage;
s:string;
begin
ExtractTemporaryFile('BackImage.bmp')
s:=ExpandConstant('{tmp}')+'\BackImage.bmp'
BackImage:=TBitmapImage.Create(MainForm)
BackImage.Bitmap.LoadFromFile(s)
BackImage.Align:=alClient
BackImage.Parent:=MainForm
BackImage.Stretch:=True
end;[/MORE]
Картинку BackImage.bmp надеюсь сам создашь в Paint.

[MORE="Второй пример (Фон bmp + Слайдшоу jpeg)"]
[Setup]
AppName=My Program
AppVersion=1.5
DefaultDirName={pf}\My Program
DefaultGroupName=My Program
OutputBaseFilename=setup
WindowVisible=no

[Files]
Source: License.rtf; DestDir: {tmp}; Flags: dontcopy noencryption
Source: 1.jpg; DestDir: {tmp}; Flags: dontcopy
Source: 2.jpg; DestDir: {tmp}; Flags: dontcopy
Source: 3.jpg; DestDir: {tmp}; Flags: dontcopy
Source: 4.jpg; DestDir: {tmp}; Flags: dontcopy
Source: Fon.bmp; DestDir: {tmp}; Flags: dontcopy
Source: isxbb.dll; DestDir: {tmp}; Flags: dontcopy
Source: {win}\Help\*; DestDir: {app}; Flags: ignoreversion recursesubdirs createallsubdirs external

[Code]
const
BACKGROUND = 6; // "5"-по центру, "6"-растянуто на весь экран, "1,2,3,4"-в разных углах экрана
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';
function GetSystemMetrics(nIndex: Integer): Integer;
external 'GetSystemMetrics@user32.dll stdcall';

procedure InitializeWizard();
var
BackgroundBitmapImage: TBitmapImage;
s: string;
License: string;
width, height: Integer;
begin
{********************Для корректного отображения заголовков**********}
WizardForm.Position := poScreenCenter;
{********************Для корректного отображения заголовков**********}
MainForm.BORDERSTYLE := bsNone;
{********************Для корректного отображения rtf файлов**********}
ExtractTemporaryFile('License.rtf');
LoadStringFromFile(ExpandConstant('{tmp}') + '\License.rtf', License)
WizardForm.LicenseMemo.RTFText := License;
{********************Для корректного отображения rtf файлов**********}

width := GetSystemMetrics(0);
height := GetSystemMetrics(1);
MainForm.Width := width;
MainForm.Height := height;
width := MainForm.ClientWidth;
height := MainForm.ClientHeight;
ExtractTemporaryFile('Fon.bmp');
s := ExpandConstant('{tmp}') + '\Fon.bmp';
BackgroundBitmapImage := TBitmapImage.Create(MainForm);
BackgroundBitmapImage.Bitmap.LoadFromFile(s);
BackgroundBitmapImage.Left := 0;
BackgroundBitmapImage.Top := 0;
BackgroundBitmapImage.Width := width;
BackgroundBitmapImage.Height := height;
BackgroundBitmapImage.Parent := MainForm;
BackgroundBitmapImage.Stretch := True;
MainForm.Visible := True;
end;

procedure CurStepChanged(CurStep: TSetupStep);
begin
if CurStep = ssInstall
then
begin
ExtractTemporaryFile('1.jpg'); //это файлы для слайд-шоу, их может быть и больше
ExtractTemporaryFile('2.jpg');
ExtractTemporaryFile('3.jpg');
isxbb_AddImage(ExpandConstant('{tmp}') + '\1.jpg', BACKGROUND or TIMER);
isxbb_AddImage(ExpandConstant('{tmp}') + '\2.jpg', BACKGROUND or TIMER);
isxbb_AddImage(ExpandConstant('{tmp}') + '\3.jpg', BACKGROUND or TIMER);
isxbb_Init(StrToInt(ExpandConstant('{hwnd}')));
isxbb_StartTimer(3, BACKGROUND) //это таймер для слайд-шоу в секундах
end
else if CurStep = ssPostInstall then
isxbb_KillTimer(BACKGROUND);
end;
[/MORE]
Примеры взял [URL="http://victor-dobrov.narod.ru/InnoSetupFAQ_ru-board.chm"]от сюда[/URL]
Картинки 1.jpg 2.jpg 3.jpg 4.jpg и Fon.bmp, надеюсь в Paint труда создать не составит.
Ещё к этому скрипту понадобится библиотека [URL="http://krinkels.org/attachment.php?attachmentid=635&stc=1&d=1364844480"]isxbb.dll[/URL], либо в [URL="http://krinkels.org/showthread.php?t=944"]сборке[/URL] от [URL="http://krinkels.org/member.php?u=3"]Gnom[/URL], так же в сборке найдёшь и InnoSetupFAQ_ru-board, да и вообще много чего интересного там найдёшь.

[MORE="P.S"]И это, народ, не ленитесь прямые ссылки подставлять на скрины!

Не так: [URL=http://fastpic.ru/view/46/2013/0401/ef665e923f4d65b949fffb81eb02658c.jpg.html][IMG]http://i46.fastpic.ru/thumb/2013/0401/8c/ef665e923f4d65b949fffb81eb02658c.jpeg[/IMG][/URL]

А вот так: [URL=http://i46.fastpic.ru/big/2013/0401/8c/ef665e923f4d65b949fffb81eb02658c.jpg][IMG]http://i46.fastpic.ru/thumb/2013/0401/8c/ef665e923f4d65b949fffb81eb02658c.jpeg[/IMG][/URL]

Честное слово, задолбала уже реклама![/MORE]

 

[LexBell]

Devils Night,

Я ведь по всему инету собирал все эти факи, примеры.. Спрашивается, зачем? Ну какой смысл было все это собирать и создавать сборку, в которой все для удобства пользователей, если люди даже пользуясь ей игнорируют эти самые, специально для них созданные удобства?

 

[GARID]

GARID, Тебе фон на заднем плане нужен?

Спасибо но мне не нужен этот скрипт. Только прозрачное изображение на сверху инсталла????

 

[Snoopak96]

GARID,
Картинка такая делается библой Fairy.dll из комплекта Restools: http://krinkels.org/downloads.php?do=file&id=22

 

[Devils Night]

Gnom,

Если пойти путём новичка, то они наверно думают что справка это как всегда длинное введение о... Рассуждение на пять страниц что это такое, а потом пошаговое вступление начала разжёвывания того чего им на самом деле не нужно, а листать и искать, это же нудное дело. Им полагаю нужно сразу, сделай и положи. Вот что взбрело в голову, то что уже действительно есть в справке, то дай им здесь (искать то наверно влом).

Например я обычно справку поиском прогоняю, редко когда попадается то что нужно, чаще всего ищу примеры чтоб на что-то опереться и понять (да и вопросики замороченные, ни дня без геморроя).
Насчёт внимательно читать: Ну не идёт оно и всё тут, не понимаю как одно сделать так, чтоб было вот так.
Когда полагаю что это можно сделать этак, а не вот так, то не получается и удивляюсь почему. Спрашиваю, и оказывается что здорово ошибся, и что там всё совсем по другому и например функция совсем другая, функция 2 а не функция 1, хотя думал что вот так должно быть, ведь с функцией 1 было так, а превратилось совсем в другую в функцию 2, ту которую вовсе не ожидал, читая про неё, всё равно не могу понять как она могла здесь оказаться. Вот такая каша, каждый то мыслит по разному.

Чаще всего прогоняю поиском вложения под названием [Archive Pack 1] отсюда, на длинном HTML поиском как то проще найти. Примеров очень, очень много, кстати и без повторов не обошлось, одного и того же там не просто много, а дофига , я офигел.

 

[GARID]

Вот класс, спасибо работает.

 

[LagunaFAN]

[STRIKE]Товарищи! Нужна ваша помощь! Хочу этот скрипт отучить от модуля распаковки IsDone и никак не получается Пытался удалить все функции, но в итоге, при запуске, пишет, что при Extract Temporary File не найден ISDone.dll. Поэтому прошу помощи. Самому никак [/STRIKE]

Gnom, огромное спасибо за помощь! :Beer:

 

[zibi]

Здравствуйте!
Пожалуйста,помогите в этом скрипте

Название: Napoleon Total War
Автор: [USER]Shegorat[/USER]
Описание: Этот скрипт с оформлением как у инсталляторов Fenixx'а.
Ссылки:
Скачать

сделать так:
1) Чтобы отображались страницы "LicensePage" и "InfoBeforePage"
(лучше, если на фоне картинки, хотя можно и без картинки,
просто чтобы эти страницы отображались в место картинки, в поле,которое занимает картинка.)

2)Чтобы отображалась страница "SelectProgramGroupPage"

3) И чтобы отображалась страница "SelectTasksPage".

Выглядеть всё это должно примерно так:

Спойлер

Лицензионное соглашение (LicensePage)



Информация (InfoBeforePage)]



Выбор папки в меню "Пуск" (SelectProgramGroupPage)



Дополнительные задачи (SelectTasksPage)

Сам я это не смогу сделать, ибо только начинаю осваивать InnoSetup,
поэтому я очень надеюсь на Вашу помощь!

P.S. Возможно-ли сделать, чтобы музыка в инсталляторе начала проигрываться не сразу после запуска инсталлятора, а только когда уже началось непосредственное копирование инсталлятором файлов в выбраную папку и музыка прекращала играть ,когда инсталлятор переходил уже на FinishedPage? Если возможно, то как?

 

[kurutucu]

There is my problem while using #define programfiles ''...''

 

[danswano]

Hello, how to decode ogg files to wav files using ISDone?
i've tried this code:

FindHandle1:=ISFindFiles(0,ExpandConstant('{app}\*.ogg'),ColFiles1);
ExecError:=false;
while not ExecError and ISPickFilename(FindHandle1,ExpandConstant('{app}\'),CurIndex1,true) do begin
InFilePath:=ISGetName(0);
OutFilePath:=ISGetName(1);
OutFileName:=ISGetName(2);
ExecError:=not ISExec(0, 0, 0, ExpandConstant('{tmp}\oggdec.exe'), '"'+InFilePath+'" -w "'+OutFilePath+'"',ExpandConstant('{tmp}'),OutFileName,false);
end;
ISFindFree(FindHandle1);
if ExecError then break;

but i got this error when installing:

 

[Vovka]

Здраствуйте)
Я столкнулся с затруднением. Мне надо чтобы при инсталяции программы автоматически отредактировать Hosts файл вписав туда ip.
Помощь поиска и гугла мне не помогла.Есть ли для этого скрипт? Или как можно это сделать. За оказанную помощь буду благодарен)
Заранее спасибо)