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

SotM
Krinkels
ладно уж постараюсь как нибудь сам разобраться.

NiCKsOn123
Это же Fenixx.bat
q1
Проще не через батники а через [code]
Пример,но может и не совсем удачный,ибо скрипт не мой,сам ещё копаюсь
[more] if CurStep = ssInstall then //precomp
begin
if (FileExists(AddBackslash(ExpandConstant('{tmp}')) + 'precomp.exe')) and (FileExists(AddBackslash(ExpandConstant('{app}\data')) + 'data.pcf')) then
begin

if not(CreateProcess(ExpandConstant('{tmp}\precomp.exe') + ' ' + '-r data.pcf', ExpandConstant('{app}\data'), False, @ISCreateProcessCallback)) then exit; //прекомп восстановит data.pcf в папки data
ProgressBar1.Position := ProgressBar1.Position+1;
DeleteFile(ExpandConstant('{app}\data\data.pcf'));[/more]

FunnyRabbit
Ему намного проще через батник т.к.:
Цитата q1

Цитата:

В програмировании скрипта для инно я полный ноль, т.к. мозг матерится и отключается.

Приветствую. Хотелось бы задать вопрос. Хочу сделать инсталлятор для программы, но вот не пойму одну вещь. Мне нужно что бы инсталлятор прописывал данные в ветку реестра:
HKEY_USERS\S-1-5-21-3632820807-3824379993-3471774594-1000_Classes. Все бы ничего но на разных компьютерах цифры в названии ветки S-1-5-21-*****_Classes разные. Как сделать или какую переменную использовать, чтобы данные попали на конечном компьютере именно туда куда нужно?

FunnyRabbit
эээ с таким лесом мне лучше не связываться (имхо).

Krinkels
да вы правы, я практичный человек.

q1
хех..я языки программирования вообше не изучал,а в скрипте все равно копался)и терь я могу норм репак сделать)конечно я не сравнюсь с cdman'ом или с z1oyded,но хоть что то у меня получается,да и в кусках разбираюсь,но самостоятельно скрипт я конечно немогу написать...
простите меня за демагогию и оффтопик)

Исправить в шапке строку:

Русская справка к версии 5.0.x, автор перевода BagIra (зеркало) |
Цитата:

cкачать в .chm формате

Ссылка нерабочая

[more]
Код: http://kraspix.ru/images/b4d7pnej0awmqx1de3et.jpg

Помогите кто-нибуть!

Цитата:

Как можно реализовать автоматическую активацию, Дальнобойщиков 3, и аддона, с помощью кейгенов от тривиум?

Krinkels
precomp не дает таких результатов как isprecomp в данном случае

AJIeKc89

Цитата:

Как можно реализовать автоматическую активацию, Дальнобойщиков 3, и аддона, с помощью кейгенов от тривиум?

Вообще-то это оффтопик! Правила читал?

Frystail

Цитата:

Мне нужно что бы инсталлятор прописывал данные в ветку реестра

Это тоже оффтопик. Пойди сначала узнай про ветки реестра в других форумах. Здесь мы не обсуждаем чем отличаются разные ветки реестра.

AnatPogor

Цитата:

Ссылка нерабочая

Removed...

InHead
Во-первых, зачем ты под [no][more][/more][/no] засунул ссылку? Это конечно ничего страшного, но пока доберешься до нужной картинки. Прямо quest какой-то: сначала зайди сюда, потом туда. Можно было просто оставить ссылку на картинку в посте, а не "прятать" ее.
Во-вторых, скрин можно было и меньше. НО! Какого фига окно с ошибкой перекрывает то место где собственно и появляется ошибка?!
"Телепаты в отпуске!" (с)

InHead
Дай секцию [Registry] полностью

freega3 Спасибо щас гляну
Dark91 Стучись в личку к THE GUITY GOD он не плохое видео заскринил на тему ISDon+7z и т.д.

NiCKsOn123
Ага спасибо !)
SotM
Да просто торопился!)

SotM
Я знаю, что оффтопик! Но подходящей темы, больше не нашел.

А ещё почему у меня в скрипте NFS Pro Steet 2.4 не правильно показывает распоковку, до 6.7 где то доходит потом сразу становиться 99.7 ну и далее 100% может кто подскажет!!!

Frystail
чтобы получить "S-*****" можешь использовать http://rghost.ru/3362198

Повторяюсь:
Вот скрипт:
DefaultDirName={reg:HKLM\SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\{{5A2865C9-9A09-49C6-B198-8C6D004288F7%7d_is1,InstallLocation}
Как сделать чтоб к получаемому пути прибавлялось окончание,вот наприпер по этому пути реестра путь c:\123\222\ и мне нужно прибавить папку 654 чтоб в итоге было c:\123\222\654

в моем случае окончание "Base Source Engine 2"

zxcvvcxz1
пишет: нет такого пользователя

Вот у меня таже проблема
Сейчас сделал так
Разбил игру на 2 части Так вот 1 часть где у меня было 36мб распаковалась хорошо
А та где было 2.34гб не распаковалась
Из 7 зипа....
ISDone 0.5L
Что то не хочет у меня распаковывать большие архивы....
Это можно править или мне придется делать несколько файлов ?поменьше

Добавлено:
Может это связано с файловой системой
ntfc или
fat ?

Dark91
THE GUILTY GOD

Подскажите плиз, как растянуть изображение на 1й странице, и то которе вверху (без текста чтобы было).

Cempel Реализация рисунка 497х58 http://rghost.ru/3364676

zxcvvcxz1
Спасибо!

Как растянуть изображение на странице приветствия и окончания установки?

Cempel
этот вопрос я решаю с zxcvvcxz1...

freega3
Напиши если узнаешь плиз

freega3 Да уж....
Собрал другой скрипт .Появилась другая трабла-лала Отказывается музыка проигроваться
Самое интерестное, что ошибку не выдаёт Кнопки для музы только функцианируют и всё

Cempel

Цитата:

Как растянуть изображение на странице приветствия и окончания установки?

[more=Вот пример]
[Setup]
AppId={{D137A35A-5F61-41A9-A3ED-143C1DB2A121}
AppName=My Program
AppVersion=1.5
AppVerName=My Program 1.5
DefaultDirName={pf}\My Program
DefaultGroupName=My Program
OutputBaseFilename=setup
Compression=lzma
SolidCompression=yes

[Languages]
Name: rus; MessagesFile: compiler:Languages\Russian.isl

[CustomMessages]
rus.Finished1=Игра {#SetupSetting("AppName")} установлена на Ваш компьютер.
rus.Finished2=Нажмите «Завершить», чтобы выйти из программы установки.

[Files]
Source: img1.bmp; Flags: dontcopy
Source: img2.bmp; Flags: dontcopy

[Code]
var MainImage : TBitmapImage;
FinishedImage: TBitmapImage;
WelcomeLabel1, WelcomeLabel2,FinishedLabel, FinishedHeadingLabel: TLabel; //Надписи на на странице приветствия и на финишной странице

procedure InitializeWizard();
begin
ExtractTemporaryFile('img1.bmp');
MainImage := TBitmapImage.Create(WizardForm);
with MainImage do
begin
Parent := WizardForm;
Left := 0;
Top := 0;
Width := 500;
Height := 313;
Bitmap.LoadFromFile(ExpandConstant('{tmp}\img1.bmp'));
end;

ExtractTemporaryFile('img2.bmp');
FinishedImage := TBitmapImage.Create(WizardForm);
with FinishedImage do
begin
Parent := WizardForm;
Left := 0;
Top := 0;
Width := 500;
Height := 313;
Bitmap.LoadFromFile(ExpandConstant('{tmp}\img2.bmp'));
end;

//WelcomePage, создаем надписи на странице
WelcomeLabel1:= TLabel.Create(WizardForm);
with WelcomeLabel1 do
begin
Left:= ScaleX(176);
Top:= ScaleY(66);
Width:= ScaleX(301);
Height:= ScaleY(71);
AutoSize:= false;
Transparent:= true;
WordWrap:= true;
Font.Size:= 14;
Font.Color:=ClWhite
Font.Style := [fsBold]
Parent:= WizardForm;
Font.Name:= 'Georgia'
Caption:= WizardForm.WelcomeLabel1.Caption;
end;

WelcomeLabel2:=TLabel.Create(WizardForm);
with WelcomeLabel2 do
begin
Top:= ScaleY(136);
Left:= ScaleX(176);
Width:= ScaleX(301);
Height:= ScaleY(300);
AutoSize:= false;
WordWrap:= true;
Font.Color:=ClWhite
Font.Name:= 'Georgia'
Font.Size:= 10;
Transparent:= true;
Parent:= WizardForm;
Caption:= WizardForm.WelcomeLabel2.Caption;
end;

FinishedHeadingLabel:=TLabel.Create(WizardForm);
with FinishedHeadingLabel do
begin
Top:= ScaleY(66);
Left:= ScaleX(176);
Width:= ScaleX(301);
Height:= ScaleY(53);
AutoSize:= false;
WordWrap:= true;
Font.Size:= 14;
Font.Color:=ClWhite
Font.Name:= 'Georgia'
Font.Style := [fsBold]
Transparent:= true;
Parent:= WizardForm;
Caption:= WizardForm.FinishedHeadingLabel.Caption;
end;

FinishedLabel:= TLabel.Create(WizardForm);
with FinishedLabel do
begin
Left:= ScaleX(176);
Top:= ScaleY(136);
Width:= ScaleX(301);
Height:= ScaleY(54);
AutoSize:= false;
WordWrap:= true;
Transparent:= true;
Font.Color:=ClWhite
Font.Size:= 10;
Font.Name:= 'Georgia'
Parent:= WizardForm;
Caption:= ExpandConstant('{cm:Finished1}') + #10#13#10 + ExpandConstant('{cm:Finished2}')
end;
end;


procedure HideComponents;
begin
WelcomeLabel1.Hide;
WelcomeLabel2.Hide;
FinishedHeadingLabel.Hide;
FinishedLabel.Hide;
end;

procedure ShowComponents(CurPageID: Integer);
begin
case CurPageID of
wpWelcome:
begin
WelcomeLabel1.Show
WelcomeLabel2.Show
end;
wpFinished:
begin
FinishedHeadingLabel.Show;
FinishedLabel.Show;
end;
end;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
HideComponents;
ShowComponents(CurPageID);
if CurPageID = wpWelcome then
begin
WizardForm.OuterNotebook.Hide;
FinishedImage.Hide;

end
else if CurPageID = wpFinished then
begin
WizardForm.OuterNotebook.Hide;
MainImage.Hide;
FinishedImage.Show;
end
else WizardForm.OuterNotebook.Show;
end;[/more]

Cempel Вот держи http://rghost.ru/3365947