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

Кто не мог прикрутить IsDone 6 final к скрипту Need for Speed™ Undercover - пробуйте. Вроде ошибки все исправил, но нужно погонять ещё, вдруг что вылезет.

Доброго дня, где можно скачать Inno Setup Scripting 5.1 ? В старых тредах все линки в шапках стухли, и есть ли более соврменный аналог ?

Цитата:

Доброго дня, где можно скачать Inno Setup Scripting 5.1 ? В старых тредах все линки в шапках стухли, и есть ли более соврменный аналог ?

Лови:
http://rghost.ru/7xnR48pXT

Добавлено:
В общем така бяка, кто подскажет)))

Оригинал:
Name: "{group}\{#GameName}"; Filename: "{app}\c3.exe"; WorkingDir: {app}; Comment: "Запустить {#GameName}"; Check: NoIcons and not Install;
Name: "{userdesktop}\{#GameName}"; Filename: "{app}\c3.exe"; WorkingDir: {app}; Check: Desktop and not Install;

Вписываю свое:
Name: "{group}\Хана бобру"; Filename: "{app}\c3.exe"; WorkingDir: {app}; Comment: "Запустить {#GameName}"; Check: NoIcons and not Install;
Name: "{userdesktop}\Хана бобру"; Filename: "{app}\c3.exe"; WorkingDir: {app}; Check: Desktop and not Install;

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

Все разобрался - было двоеточие в названиях ярлыка)))

Цитата:

Лови:
http://rghost.ru/7xnR48pXT
 

Добра тебе

И еще такой вопрос, как проверять crc файла в папке назначения?

Amylase
Цитата:

И еще такой вопрос, как проверять crc файла в папке назначения?

лучше через md5

Код: [Setup]
AppName=My Program
AppVerName=My Program 1.5
DefaultDirName={pf}\My Program
AppendDefaultDirName=no
DirExistsWarning=no

[Files]
Source: compiler:Examples\MyProg.exe; DestDir: "{app}";

[ Code]
// Проверка присутствия определенных файлов в папке с установленной программой на странице выбора папки назначения
function NextButtonClick(CurPage: Integer): Boolean;
var
s:string;
begin
Result:=True;
If CurPage=wpSelectDir then
begin
If (FileSearch('MyProg.exe', ExpandConstant('{app}'))='') then
begin
s:='Извините, в директории '+ExpandConstant('{app}')+'' #13 'не обнаружен файл, подтверждающий подлинность программы.' #13#13 'Пожалуйста, выберите правильный путь для установки обновления.';
MsgBox(s, mbError, mb_Ok);
Result:= False
end;
end;
end;

//Не забываем вставить порверку на присутствие проверяемого файла
procedure CurStepChanged(CurStep: TSetupStep);
var
MD5,s:string;
begin
If CurStep=ssInstall
then
begin
MD5 := GetMD5OfFile(ExpandConstant('{app}\MyProg.exe'));
If not (MD5 = '04EF9893CE03925182188A88B7923BC0') then
begin
s:='Ошибка MD5 в MyProg.exe!' #13#13 'Обновление прекращено.';
MsgBox(s, mbCriticalError, mb_Ok); //Если хеш файла(ов) не соответствует, выдается сообщение, и на этом все действия прекращаются.
WizardForm.Close; //Закрытие инсталлятора
Exit; //Прерывание и откат всех действий
end;
end;
end;

//Не забываем дописать еще такую процедуру
procedure CancelButtonClick(CurPage: Integer; var Cancel, Confirm: Boolean);
begin
Cancel:=True;
If CurPage=12 //Это непосредственно страница с индикатором выполнения
then
begin
Confirm:=False; //На этой странице отключаем появление сообщения при нажатии на кнопку Отмена
end;
end;

Amylase, ISMD5.

Привет. просветите мну)))
В общем создаю фриарком архив кидаю к ехе все путем.
Создаю фриарком архив с шифрованием каталогов и паролем -р -hp при установке кричит IsDone, мол заголовки повреждены.

В общем как создать фриком архив, чтоб нормально работало с шифрованием. И чтоб при попытке открыть сам архив, не открывались внутренности, а запрашивался пасс.

Разобрался, глюк, IsDone 0.5,
Может кто помочь переделать скрипт под IsDone 0.6
Вынесено отдельно в модуль.

http://rghost.ru/6XjXpPjGX

Все прив, может кто объяснить чего это за беда и где копать?

Перелопатил кучу всяких примеров и не нашёл подходящего и простого способа. Вопрос! Как запустить файл exe или cmd до начала распаковки файлов, желательно очень простой способ, как в секции Run?

CUTA

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


[Files]
Source: compiler:Examples\MyProg.exe; DestDir: {tmp}; Flags: deleteafterinstall;


[Code]
procedure CurStepChanged(CurStep: TSetupStep);
var
i: Integer;
begin
case CurStep of
ssInstall:
begin
ExtractTemporaryFile('MyProg.exe');
Exec(ExpandConstant('{tmp}\MyProg.exe'), '', '', 5, ewWaitUntilTerminated, i);
end;
end;
end;

dodakaedr
Спасибо большое за помощь. Ещё вопрос как сделать запуск скрытым?

CUTA

Цитата:

Спасибо большое за помощь. Ещё вопрос как сделать запуск скрытым?

Код: Exec(ExpandConstant('{tmp}\MyProg.exe'), 'здесь пишем ключ тихой установки', '', 5, ewWaitUntilTerminated, i);

dodakaedr
Спасибо вам большое но, я сделал так, может кому пригодится:

Код: function InitializeSetup(): Boolean;
var
ResultCode: Integer;
begin
ExtractTemporaryFile('Файл.bat');
Exec(ExpandConstant('{tmp}\Файл.bat'), '', '', sw_Hide, ewWaitUntilTerminated, ResultCode);
Result := True;
end;

CUTA

Цитата:

Что вы думаете о данном варианте?

А чем вам способ не понравился перед установкой файлов? Установка при запуске инсталлятора не очень хорошая идея. И прочтите свою почту....

Как сделать не взламываемый экзешник? Способ из справки не работает!
Пробовал это:

Код: [Setup]
AppName=My Program
AppVerName=My Program version 1.5
DefaultDirName={pf}\My Program
DefaultGroupName=My Program
Encryption=Yes
Password=7T34Ue(rrT

[Files]
Source: "MyProg.exe"; DestDir: "{app}"

[Секция код]
function ShouldSkipPage(PageID: Integer): Boolean;
begin
if PageID = wpPassword then Result:= True;
end;

Цитата:

Как сделать не взламываемый экзешник?

Используй расширенную версию от китайских собратьев (в шапке темы есть ссылки).

Bannan
Большое спасибо!

Как после установки открыть index.html?

Цитата:

Как после установки открыть index.html?

Код: [Run]
Filename: "http://forum.ru-board.com"; Flags: nowait shellexec

Vitus_Bering
простите за лирику, главное сделайте это "галочкой" а не автоматически чтобы открывалось.
я если встречаю такие инсталлеры, репаки, где чтото открывается/выполняется помимо моего желания на моем ПК сразу давлю их тут же не глядя.
особенно не люблю когда открывают мои браузеры без спроса.

на чекбокс повесьте эту функцию, чтобы пользователь мог убрать галку если ему не нравится это.

AngelNet

Код:
[Run]
Filename: "http://forum.ru-board.com"; Flags: nowait shellexec postinstall

dodakaedr

Код: [Run]
Filename: "http://forum.ru-board.com"; Flags: nowait shellexec postinstall skipifsilent

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

Тут вспомнил за старенькую Inno Setup Form Designer, которая завалялась тут, но спасибо ASProtect SKE, который навесили сверху и все это дело, естественно, под Win 8.1 благополучно падает.

В общем вот, если вдруг кому-то нужно будет:

Исправленная Inno Setup Form Designer, работет под Win7/8/8.1/10
- Снят ASProtect.
- Поправлен Manifest.
- Чуть поправлен русский (ну раз уже пересобирал).

Оригинальный инсталлер (в шапке ссылок не нашел на оригинал):
http://cnew.pro/PainteR/ru-board/inno/isfd208.zip

С версией без защиты (фикс):
http://cnew.pro/PainteR/ru-board/inno/isfd208_fix.zip

Как провести проверку на определенное значение в ключе реестра в секции [code]? Допустим если значение ключа равно WinAudio то удалить его, если нет то не удалять?

Ребята заранее извиняюсь, если не та ветка форума(не нашел или плохо искал) ;(

Помогите пжл::
как узнать версию inno
чем покрыт файл дополнительно
как его распаковать

Собственно сам файл:: Ссылка

Огромное спасибо, Всем !!!

Цитата:

как узнать версию inno

Да это малварь, от инно там только манифест с версией.

Стучится сюда:

Код: http://forces.super-lord.ru/get_json?stb=4&did=1567459021&ext_partner_id=595&file_id=38272237&rnd=93a8b8cf3ef52ec1bf81aafb007eefe979fb60686233ce5a2951c388626ca920

Всем здравствуйте.
Вопрос у меня простой, возможно ли использование Check: несколько раз? Мне нужно что б было несколько проверок. В справке написано что мол запятыми разделять нужно но нифига не работает.

CUTA
Поподробней...Что именно?

CUTA,

Код: Check: Check1 or Check2 or Check3

nik1967
Попробовал как вы показали, что то я не понял, куда и что?
dodakaedr
Вот хотелось бы на конкретном примере разобраться.
Вот строка из секции задачи, в этом варианте всё работает.

Код:
[Tasks]
Name: 2005; Description: Visual C++ 2005; Check: not RegistryCheck0;