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

meekrab

Цитата:

Тебе над ним работать и работать

Я знаю

Цитата:

ты да же с фаиири не разобрался.

Ну...

Цитата:

Открывается с боку

Как только я не пробовал исправить...

Цитата:

стр. финиш срабатывает раньше

Что ты имеешь введу?

Цитата:

потом все кнопки и лого через фаири.

Эммм... Кнопки через Инно, а лого - конечно через феири.

З.Ы. Ты знаешь что такое запятая?

http://forum.ru-board.com/topic.cgi?forum=5&topic=36421&start=1800#19 - помогите с кодом

R3Pa4eK
Ну имею ввиду открываться с iswin страница, с задержкой появляется все остальное кнопки и т.д
А что там разберется с фаири. Все очень просто.

meekrab

Цитата:

А что там разберется с фаири. Все очень просто.

Если просто - тогда скажи, что нужно сделать чтобы инсталл не открывался с боку?

R3Pa4eK
[more=Читать дальше..]
Img := 'Logo.png';
ExtractTemporaryFile(Img);
TransparentColor := ColorToRGB(clWhite);
AddImgToList(ScaleX(200), ScaleY(385) , 255, TransparentColor, ExpandConstant('{tmp}\'+Img1))
ShowFairyEx(0);
[/more]
Пробуй сам разобраться. Хорошая штука.

возможно ли с помощью isdone распаковывать паралельно несколько архивов, а не последовательно один за другим?

Despofix
Нет. Я так понимаю ISDone поддерживает обработку только одного потока.

Помогите!!!
Люди,что в скрипте нужно прописать,так чтоб DirectX устанавливался через интернет.
Инсталятор от Юршата NFSU.

R3Pa4eK
а через функцию ISExec к примеру прописать никак нельзя?

Despofix
Нет. Это нужно прописывать в самой dll.

Despofix через ISExec но там сразу прогресс бар дойдет до конца и только тогда будет распаковка файлов(но это может у меня там что-то не так было настроено) но лучше юзай исдон

Добавлено:
R3Pa4eK Вопрос-ты ещё не задолбался делать закосы под каталистов?(не в обиду)

insombia

Цитата:

R3Pa4eK Вопрос-ты ещё не задолбался делать закосы под каталистов?(не в обиду)

Мне просто делать нечего...

R3Pa4eK, так помоги мне со скриптом.

Люди ну помогите,срочно нужно,ни где ни могу найти

Цитата:

Помогите!!!
Люди,что в скрипте нужно прописать,так чтоб DirectX устанавливался через интернет.
Инсталятор от Юршата NFSU.

Vasario85, всего лишь dxwebsetup.exe нужен

Ошибку выдает
Вот

Vasario85 ключи для тихой установки разные

Vasario85
вместо /silent пропиши /q

vint56
А чуть по подробней можно,пожалуйса.


Добавлено:
Despofix
ООО спасибо.

Добрый вечер!
Вы не могли бы подсказать как в этом скрипте на каждую страницу поставить свою картинку
http://rghost.ru/21108901

13Friday, каждой картинке дать свой парент:

Image1.Parent:=WizardForm.WelcomePage;
Image2.Parent:=WizardForm.LicensePage;

Например.

[Types]
; переменная для цикла
#define l

; итак: пишем подпрограмму, которая будет делать все что нам нужно l раз ( и можно )
#sub AddDescription
Name: {code:gets|{#l}}; Description: {code:gets|{#l}};
#endsub

; создаем цикл с вызовом нашей подпрограммы
#for {l = 1; l < 3; l++} AddDescription

[Components]
Name: n1; Description: gdsgdg; types: {code:gets1};
Name: n2; Description: dsfgsg; types: {code:gets2};


Код:
var
s1, s2, str : string;
i: integer;

function InitializeSetup(): Boolean;
begin
for I := 1 to 2 do
begin
str:='org'+inttostr(i);
if GetIniString(str, 'ex1', 'Error', 'C:\временная\example.ini') = '1' then
s1 :=s1 + GetIniString(str, 'org', 'Error', 'C:\временная\example.ini');
if GetIniString(str, 'ex2', 'Error', 'C:\временная\example.ini') = '1' then
s2 :=s2 +' ' + GetIniString(str, 'org', 'Error', 'C:\временная\example.ini');
end;
Result := True;
end;

function Gets1(Param: String): String;
begin
Result := s1;
end;


function Gets2(Param: String): String;
begin
Result := s2;
end;

function Gets(Param: String): String;
begin
str:= 'org'+ param;
Result := GetIniString(str, 'org', 'fgsegfsdgr', 'C:\временная\example.ini');
end;

log1stable
А по подробней можно?

Despofix
О людях скачавших твой репак не подумал?
какие процы нужны для этого и сколько ОЗУ.
Vasario85

Filename: {src}\Redist\dxwebsetup.exe; Parameters: /Q; StatusMsg: DirectX; Flags: skipifdoesntexist; Tasks: Redist\DirectXCheck;

13Friday, скинь архив, где есть скрипт, папка files. Настроить под себя не получается.

vistaw
это я для себя спрашиваю и ставить я буду только у себя

PavZver

Цитата:

у тебя даже получилось лучше чем у каталистов)

А чем лучше, то? Наш инсталл
Попробуйте ради интереса редактировать путь установки вручную: нажимая backspace, удаляйте постепенно путь до 0, попробуйте в качестве пути установить DVD, или виртуальный диск. Но это так, мелкие фичи.

log1stable
Вот http://rghost.ru/21121201

13Friday, Вот:

[more]
В секцию Files добавь эти строки:

Source: files\1.jpg; DestDir: {tmp}
Source: files\2.jpg; DestDir: {tmp}
Source: files\3.jpg; DestDir: {tmp}
Source: files\4.jpg; DestDir: {tmp}
Source: files\5.jpg; DestDir: {tmp}
Source: files\6.jpg; DestDir: {tmp}


В процедуру InitializeWizard добавь эти строки после begin:

ExtractTemporaryFile('1.jpg');
ExtractTemporaryFile('2.jpg');
ExtractTemporaryFile('3.jpg');
ExtractTemporaryFile('4.jpg');
ExtractTemporaryFile('5.jpg');
ExtractTemporaryFile('6.jpg');


В процедуру CurPageChanged добавь эти строки после begin:

if CurPageID=wpWelcome then gdipDrawImage(WizardForm.Handle, ExpandConstant('{tmp}\1.jpg'),ScaleX(0),ScaleY(0),ScaleX(642),ScaleY(416),True,True);
if CurPageID=wpSelectDir then gdipDrawImage(WizardForm.Handle, ExpandConstant('{tmp}\2.jpg'),ScaleX(0),ScaleY(0),ScaleX(642),ScaleY(416),True,True);
if CurPageID=wpSelectProgramGroup then gdipDrawImage(WizardForm.Handle, ExpandConstant('{tmp}\3.jpg'),ScaleX(0),ScaleY(0),ScaleX(642),ScaleY(416),True,True);
if CurPageID=wpSelectTasks then gdipDrawImage(WizardForm.Handle, ExpandConstant('{tmp}\4.jpg'),ScaleX(0),ScaleY(0),ScaleX(642),ScaleY(416),True,True);
if CurPageID=wpReady then gdipDrawImage(WizardForm.Handle, ExpandConstant('{tmp}\5.jpg'),ScaleX(0),ScaleY(0),ScaleX(642),ScaleY(416),True,True);
if CurPageID=wpInstalling then gdipDrawImage(WizardForm.Handle, ExpandConstant('{tmp}\6.jpg'),ScaleX(0),ScaleY(0),ScaleX(642),ScaleY(416),True,True);
if CurPageID=wpFinished then gdipDrawImage(WizardForm.Handle, ExpandConstant('{tmp}\1.jpg'),ScaleX(0),ScaleY(0),ScaleX(642),ScaleY(416),True,True);
[/more] - Это пояснение добавлений.

Вот готовый скрипт с шестью изображениями. Просто поменяй их на свои.

Наверное можно скрипт оптимизировать, но, Увы! я не умею. Обратись за оптимизацией к Gnom3, если тебе надо.

Кстати, что у тебя за компилятор, что использует PChar? У меня на PAnsiChar надо менять.

Добавлено:
nik1967, ты из каталистов? Я не знаю, честно

log1stable
Вообще то это оффтоп http://bestrepack.net/forum/profile.php?mode=viewprofile&u=6836