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

insombia
Мне бы объединить скрипт isdone с моим. Капризный inno, то begin, не хватает, то не там разместил код, да блин вообще

BUU
http://rghost.ru/45047971
и так,чтобы распаковать прекомп файл тебе нужно указать в строке
if not ISPrecompExtract( 0, 0, ExpandConstant('{app}\data.pcf'), ExpandConstant('{app}\data.7z'), true) then break;
файл прекомпа,но лучше юзать precompinside он лучше подходит для isdona так как может не распаковать твой файл,при использовании инсайда можно даже в if not ISArcExtract вставлять файл и все будет распаковывать

insombia
Завтра попробую результат и настройки pcf, отпишусь

Короче такой параметр указал, файл pcf в файлах инстала

if not ISPrecompExtract( 0, 0, ExpandConstant('{app}\*.pcf'), ExpandConstant('{app}\main'), true ) then break;

При распаковке архивов жалуется

не найдено ни одного файла указанного для isdone.dll

BUU я же говорил что исдон не распаковывает просто файл прекомпа,юзай precompinside

BUU ты наверника используеш Precomp который идет внутри ISPrecomp-0.7 потому и не работает восстановления файлов чтобы все работало используй просто precomp скачай вот от суда http://schnaader.info/precomp.php
только не от ISPrecomp-0.7 у них восстановления работает по другому

insombia все работает и по отдельности и на лету и PrecompInside читай справку

а в Packers Show, в проге какой версии используется precomp?

BUU за висит от версий Packers Show ну до пустим 0.40 тогда тебе в скрипте Isdone надо раскаментировать строчку ;#define precomp "0.42" и указать версию прикомпа которым ты обробатывал файлы по умолчанию там 0.42 тебе надо заменить #define precomp "0.40" и так далее.

Версия программы 4.1

BUU при запуске прикомпа и посмотри версию

Вот опять жалуется, что за бред он написал?


Вот так указал, вроде по справке следовал

if not ISPrecompExtract( 0, 0, ExpandConstant('{src}\1.pcf'), ExpandConstant('{app}\main\iw_23.iwd'), true ) then break;

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

Цитата:

if not ISPrecompExtract( 0, 0, ExpandConstant('{src}\1.pcf'), ExpandConstant('{app}\main\1.pcf'), true ) then break;

так?

BUU
лс прочти

подскажите, как сделать, чтоб при такой команде: ShellExec('', ExpandConstant('{src}\setup1.exe'),'', '', SW_SHOW, ewWaitUntilTerminated, close, ErrorCode);

Инсталятор не ждал завершения setup1.exe , а закрывался?


Короче говоря, мне нужно , чтобы при запуске моего инсталятора, запускался setup1.exe инсталятор, а этот закрывался.

При такой никак. А вот при такой
Код: ShellExec('', ExpandConstant('{src}\setup1.exe'),'', '', SW_SHOW, ewNoWait, close, ErrorCode);

nik1967
не, так не идет. кстати, close -это лишнее(я неправильно дописал). В общем, у меня есть код для удаления программы, тоесть, ориентируется инсталлятор на ключ реестра и если он есть - сразу запускается деинсталлятор, при запуске setup / А мне нужно добавить запуск setup1 , через setup, когда ключа в реестре для удаления нет. При этом, setup открывал setup1, а сам - сразу закрывался, как при удалении.

Всем привет снова. А можно добавить в инстал url ссылку и текст ввиде гиперссылки, то есть, ссылка и текст к ней на странице инстала, где вводить ник и пароль
Вот скрин, отметил где можно

BUU
http://forum.ru-board.com/topic.cgi?forum=5&topic=30413&start=2562&limit=1&m=12#1
вот,там настроишь места где нужно вставить ссылку
SiteLabel.Left:=10
SiteLabel.Top:=330
с этим играй

insombia
Вроде код добавил, а ссылки не вижу нигде, даже параметр менял, мне надо на 2 странице

BUU
кинь скрипт

Всем привет! Товарищи, нужна помощь! Сам я не особо в скриптах разбираюсь. Хочу в рамках вот этого скрипта добавить чекбокс (допустим, на странице с приветствием), чтобы он выполнял 2 условия:

1, Если чекбокс отмечен, то на странице с выбором каталога для установки автоматически устанавливается каталог со стимом (данные берутся из реестра)
2. (По возможности) Если чекбокс отмечен, то некоторые файлы из секции Files, копируются в каталог, который указан в секции Files. Тут, я так понимаю, можно было бы задействовать параметр Check.

Не смею многого просить, но я был бы благодарен, если бы второе условие тоже соблюдалось Пытался сделать на основе того, что уже есть в скрипте, но ничего не получается

UPD: Всем спасибо за внимание! Помучился, но сделал!

insombia
кинул в личку

Привет. Помогите, как создать установку в указанную папку что бы вне зависимости от имя профиля в винде ставилась игра в папку C:\Users\у каждого будет свое имя профиля\AppData\Roaming\.minecraft ?
Или в винде XP: C:\Documents and Settings\у каждого будет свое имя профиля\Application Data\.minecraft
Ну что бы имя твоего профиля винды ставилось само во время установки.
Что в скрипте надо дописать/изменить?
Есть готовая игра, нельзя изменить папку, но там путь сразу автоматически который надо.
Я игру моддил и сейчас надо установку без выбора папки установки создать.
[more=Скрипт..]Привет. Помогите, как создать установку в указанную папку что бы вне зависимости от имя профиля в винде ставилась игра ".minecraft" в папку C:\Users\у каждого будет свое имя профиля\AppData\Roaming\.minecraft ?
Или в винде XP: C:\Documents and Settings\у каждого будет свое имя профиля\Application Data\.minecraft
Ну что бы имя твоего профиля винды ставилось само во время установки.
Что в скрипте надо дописать/изменить?
Есть готовая игра, нельзя изменить папку, но там путь сразу автоматически который надо.
Я игру моддил и сейчас надо установку без выбора папки установки создать.[/more]

Tima182

Код: [Setup]
AppName=Minecraft
AppVersion=1.5.1
;устанавливаем в Application Data
DefaultDirName={userappdata}/.minecraft
;отключаем страницу с выбором директории для установки
DisableDirPage=yes
OutputBaseFilename=Minecraft

insombia
Ну как результат?

BUU
да никак

На всякий случай напишу еще раз(неужели никто не знает как это сделать). Есть код:
var
ResultStr:string;
ResultCode: Integer;

function InitializeSetup(): Boolean;
begin
RegQueryStringValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\_is1', 'UninstallString', ResultStr)
if ResultStr='' then
begin
Result:= True;
end
else
ResultStr:=RemoveQuotes(ResultStr);
Exec(ResultStr, '', '', SW_SHOWNORMAL, ewNoWait, ResultCode)
end;

Как сделать, когда не найдет ключ в реестре, чтобы этот инсталлятор запускал другой инсталлятор , а сам закрывался?

kuriozin

Код: [Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application

[Code]
function InitializeSetup() : boolean;
var
ResultCode: integer;
begin
if RegValueExists(HKLM, 'SOFTWARE\7-Zip', 'Path') then
Result := True else
Exec(ExpandConstant('{src}\test.exe'), '', '', SW_SHOW,
ewWaitUntilTerminated, ResultCode)
end;

Mailchik
А как совместить эти 2 кода?
Только не пойму в вашем коде, зачем нужны эти строчки, если они ничего не меняют в итоге(что с ними, что без них - результат один и тот же)?:
if RegValueExists(HKLM, 'SOFTWARE\7-Zip', 'Path') then
Result := True else