[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 удалялся определенный шрифт?
Заранее спасибо!