Скрипты Inno Setup. Помощь и советы [часть 8]

[Farser21]

Dodakaedr, немного не так.
Выбирая компонент, вы выбираете параметр, который применяется в конце установки. Выбрав же 2 компонента, соответственно в конце установки будет применено 2 параметра. Но последний параметр заменит все предыдущие, а мне нужно чтобы последний параметр, не заменял предыдущий, а суммировался к нему, чтобы в итоге в конфиге было 2 параметра, а не 1.

P.S. Могу для наглядности в лс скинуть то что получилось сделать.

[MKN]

Подскажите пожалуйста - какая общая уникальная сигнатура у InnoSetup инсталляторов ?

К примеру, то что предлагается здесь : http://file-extension.net/seeker/file_extension_exe , а именно - 4D 5A 50 00 02 00 00 00
- лажа полная, т.к. определяет принадлежность к куче других исполняемых файлов, не имеющих никакого отношения к ISS ...

Может можно детектировать ISS по строке 49 6E 6E 6F 20 53 65 74 75 70 ? Она вроде как присутствует во всех InnoSetup инсталляторах... Или всё же есть нечто другое, конкретно уникальное ?

[Соломон_Кейн@vk]

Подскажите пожалуйста, как написать скрипт, чтобы путь установки брался из реестра. Просто есть два ключа реестра. Один для х64 винды, другой для х32 винды. Как сделать так, чтобы папка в любом случае определялась правильно?
Вот мой код с ключем реестра для х64 винд

[Code]
function GetInstallDir(Dir: string): string;
begin
Dir := '';
RegQueryStringValue(HKLM, 'Software\Wow6432Node\Rockstar Games\Grand Theft Auto IV','InstallFolder', Dir);
Result := Dir;
end;

Ключ реестра для х32 винд -
RegQueryStringValue(HKLM, 'Software\Rockstar Games\Grand Theft Auto IV','InstallFolder', Dir)

Заранее спасибо.

[kotyarko@fb]

Просто есть два ключа реестра. Один для х64 винды, другой для х32 винды. Как сделать так, чтобы папка в любом случае определялась правильно? »
Попробуйте так:
Function GetInstallDir(Dir: String): String;
var
Win64: String;
begin
Dir := '';
case IsWin64 of
True: Win64 := '\Wow6432Node';
False: Win64 := '';
end;
RegQueryStringValue(HKLM, 'Software' + Win64 + '\Rockstar Games\Grand Theft Auto IV','InstallFolder', Dir);
Result := Dir;
end;

[Соломон_Кейн@vk]

kotyarko@fb, увы, строка установки пуста.

[kotyarko@fb]

увы, строка установки пуста. »
А код, который вы привели, работает?
Ветка, которую вы указали, правильная?

Вообще, лучше по-умолчанию указать какую-то директорию и сделать проверку на присутствие значения в "InstallFolder" по указанной ветке реестра.
[Setup]
DefaultDirName={code:GetInstallDir}

[*Code]
Function GetInstallDir(Dir: String): String;
var
DestDir, Win64: String;
begin
Dir := ExpandConstant('{pf}\Games\GTA IV');
case IsWin64 of
True: Win64 := '\Wow6432Node';
False: Win64 := '';
end;
RegQueryStringValue(HKLM, 'Software' + Win64 + '\Rockstar Games\Grand Theft Auto IV', 'InstallFolder', DestDir);
if DestDir <> '' then
Result := DestDir
else
Result := Dir;
end;

[Соломон_Кейн@vk]

kotyarko@fb, да.

[kotyarko@fb]

Соломон_Кейн@vk, извиняюсь, невнимательно написал.
Данный кусок (из первого моего варианта):
RegQueryStringValue(HKLM, 'Software' + Win64 + '\Wow6432Node\Rockstar Games\Grand Theft Auto IV','InstallFolder', Dir);
Замените на:
RegQueryStringValue(HKLM, 'Software' + Win64 + '\Rockstar Games\Grand Theft Auto IV','InstallFolder', Dir);
Подкорректировал свои сообщения выше.

[Соломон_Кейн@vk]

kotyarko@fb, огромное вам спасибо. Теперь работает :)

[Kashtan007]

Можно ли сделать, чтобы перед началом установки по пути Windows\Fonts удалялся определенный шрифт?
Заранее спасибо!

[kotyarko@fb]

Можно ли сделать, чтобы перед началом установки по пути Windows\Fonts удалялся определенный шрифт? »
Так:
Function InitializeSetup(): Boolean;
begin
DeleteFile(ExpandConstant('{fonts}\MyFont.ttf'));
Result := True;
end;

[Соломон_Кейн@vk]

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

[kotyarko@fb]

Чтобы инсталятор не спрашивая заменял подобные файлы, и диалоговое окно не выскакивало. »
Если я правильно вас понял, допишите файлам:Flags: ignoreversion

[Соломон_Кейн@vk]

kotyarko@fb, это уже было прописано в скрипте, а проблема все равно есть.
Вот скриншот, чтобы вы поняли, какого рода проблема.
http://img.hurtom.com/i/2015/03/Dwm2015-03-2008-56-52-70.jpg

Нажимая "Повторить", атрибут "Только для чтения" снимается, установка продолжается ровно до того файла, который, как и этот, "Только для чтения".

[kotyarko@fb]

Нажимая "Повторить", атрибут "Только для чтения" снимается, установка продолжается ровно до того файла, который, как и этот, "Только для чтения". »
А, вот теперь понял. Допишите файлу:
Flags: overwritereadonly

[Соломон_Кейн@vk]

Огромное спасибо.

[kotyarko@fb]

А если дописывать папке, на файлы в ней эта опция действует? »
Должна, если также указан флаг recursesubdirs.

[Соломон_Кейн@vk]

Работает. Только вот беда. Уже 2 раза устанавливаю, и 2 раза "Проводник прекратил работу". Я в недоумении, как это убрать?

Фух, оказалось, элементарное совпадение от предыдущих операций на компе.

[Kashtan007]

Из-за чего может возникать данная ошибка?
http://i072.radikal.ru/1503/be/4290c488d82b.png

[kotyarko@fb]

Из-за чего может возникать данная ошибка? »
Много из-за чего. Скрипт можно запустить по F8 и узнать, что именно выдаёт ошибку.