InnoSetup Ultra

Inno Setup Ultra 5.5.1Программа для создания инсталляционных пакетов. Созданный утилитой инсталляционный файл какого-либо приложения, позволяет

Оффлайн

Gnom

Звание: Новичок

Знаток

Сообщений: 79

Создано тем: 1

Рейтинг: 2

Репа: (6|6|0)

Баллы: 51

Страна: не указана!

Был: 2024-10-30 19:17

Лайков: 2

Два варианта:
Если запись в реестре точно должна быть, и если нет, то не стоит и устанавливать.

Показать / Скрыть текст
[Setup]
AppName=GetDeviceInfo
AppVerName=GetDeviceInfo
DefaultDirName={code:GetInstallDir}

[Code]
Function GetInstallDir( AppID: String ): String; var dir: String;
begin
if not RegQueryStringValue(HKLM, "SOFTWARECompanyProgramNamePro", "InstallLocation", dir) then
RegQueryStringValue(HKLM, "SOFTWARECompanyProgramNameLight", "InstallLocation", dir);
Result:= dir;
end;

function InitializeSetup(): Boolean;
begin
Result:= True;
if not RegKeyExists(HKLM, "SOFTWARECompanyProgramNamePro") then
begin
if not RegKeyExists(HKLM, "SOFTWARECompanyProgramNameLight") then
begin
MsgBox("Программа не найдена!", mberror, mb_ok);
Result:=False;
end;
end;
end;

Второй вариант если записи в реестре у программы нет, но есть интеграция в проводник, тогда можно выловить эту интеграцию и и по ней определить путь:

Показать / Скрыть текст
[Setup]
AppName=MyApp
AppVerName=MyApp
DefaultDirName={code:GetPath|{pf}MyApp}

[code]
function GetPath(S: String): String;
var Path: String;
begin
RegQueryStringValue(HKCR, "InnoSetupScriptFileshellopencommand", "", Path);
if Path <> "" then begin
StringChange(Path, ""%1"", "");
while Pos(""", Path) > 0 do StringChange(Path, """, "");
Path:= ExtractFilePath(Path);
end;
If Path = "" then Path:= S;
Result:= Path;
end;

через разделительную черту можно указать свой путь установки, если ключ не найден - |{pf}MyApp
Сообщение отредактировал 25 января 2023 - 21:06

30 июня 2011 - 15:26 / #11
Оффлайн

Автор темы

WYLEK

Звание: Легенда

Админ

Сообщений: 2224

Создано тем: 321

Рейтинг: 10

Репа: (246|246|0)

Баллы: 3885

Был: 2025-03-20 12:58

Лайков: 217

Цитата: Gnom
через разделительную черту можно указать свой путь установки, если ключ не найден - |{pf}MyApp

Это работает

Подставил свое значение - RegQueryStringValue(HKCR, "NSIS.Scriptshellcompilecommand", "", Path);

и в адресной строке вывело - C:Program Files (x86)
SIS

30 июня 2011 - 16:53 / #12
Оффлайн

Gnom

Звание: Новичок

Знаток

Сообщений: 79

Создано тем: 1

Рейтинг: 2

Репа: (6|6|0)

Баллы: 51

Страна: не указана!

Был: 2024-10-30 19:17

Лайков: 2

Цитата: WYLEK
Не получилось ничего...

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

30 июня 2011 - 17:23 / #13
Оффлайн

Автор темы

WYLEK

Звание: Легенда

Админ

Сообщений: 2224

Создано тем: 321

Рейтинг: 10

Репа: (246|246|0)

Баллы: 3885

Был: 2025-03-20 12:58

Лайков: 217

Цитата: Gnom
Покажи свой скрипт ,с которым не получилось.

Под спойлером уже другой скрипт. В первом ключ находился но в адресную строку не выводило.

Вот значения реестра -

[HKEY_LOCAL_MACHINESOFTWARE7-Zip]
"Path"="C:Program Files (x86)7-Zip"
"Path64"="C:Program Files (x86)7-Zip"

Как их вставить правильно?

30 июня 2011 - 17:37 / #14
Оффлайн

Gnom

Звание: Новичок

Знаток

Сообщений: 79

Создано тем: 1

Рейтинг: 2

Репа: (6|6|0)

Баллы: 51

Страна: не указана!

Был: 2024-10-30 19:17

Лайков: 2

Там двойной слеш в пути, изза этого и не показывает путь, нужно посоветоваться - там нужно удалять второй слеш. Сейчас попозже дам решение. И закрепи, тогда уж шапку, глядиш, разовьется тема

30 июня 2011 - 18:05 / #15
Оффлайн

Автор темы

WYLEK

Звание: Легенда

Админ

Сообщений: 2224

Создано тем: 321

Рейтинг: 10

Репа: (246|246|0)

Баллы: 3885

Был: 2025-03-20 12:58

Лайков: 217

Цитата: Gnom
Там двойной слеш в пути, изза этого и не показывает путь, нужно посоветоваться - там нужно удалять второй слеш. Сейчас попозже дам решение.

ОК.

Но в реестре один только.

И закрепи, тогда уж шапку, глядиш, разовьется тема[/quote]

Да я только ЗА!
Если у тебя есть чему нас научить - мы здесь и будем прилежными учениками
И тему будешь вести сам

30 июня 2011 - 18:12 / #16
Оффлайн

Gnom

Звание: Новичок

Знаток

Сообщений: 79

Создано тем: 1

Рейтинг: 2

Репа: (6|6|0)

Баллы: 51

Страна: не указана!

Был: 2024-10-30 19:17

Лайков: 2

Держи, проверил у себя, должно отработать ина х64 и на х32, хотя на х32 нужно еще проверить.

Показать / Скрыть текст

[Setup]
AppName=GetDeviceInfo
AppVerName=GetDeviceInfo
DefaultDirName={code:GetInstallDir}

[code]
var RootKey: DWord;

function RemoveDoubleSlash(S: String): String;
begin
while Pos("", S) > 0 do
StringChange(S, "", "");
Result:= S;
end;

Function GetInstallDir( dir: String ): String;
begin
if RegQueryStringValue(RootKey, "SOFTWARE7-Zip", "Path", dir) then
Result:= RemoveDoubleSlash(dir);
end;

function InitializeSetup(): Boolean;
begin
if ISWin64 then RootKey:= HKLM64 else RootKey:= HKLM32;
Result:= True;
if not RegValueExists(RootKey, "SOFTWARE7-Zip", "Path") then
begin
MsgBox("Программа не найдена!", mberror, mb_ok);
Result:=False;
end;
end;

Добавлено (30.06.2011, 18:26:23)
---------------------------------------------
Цитата: WYLEK
Если у тебя есть чему нас научить - мы здесь и будем прилежными учениками

Ну, было-бы желание учится, а чего сам знаю - научу.

30 июня 2011 - 18:26 / #17
Оффлайн

Автор темы

WYLEK

Звание: Легенда

Админ

Сообщений: 2224

Создано тем: 321

Рейтинг: 10

Репа: (246|246|0)

Баллы: 3885

Был: 2025-03-20 12:58

Лайков: 217

Цитата: Gnom
Держи, проверил у себя, должно отработать ина х64 и на х32

Все работает! Вопросы у меня к тебе еще есть, но это потом.
Давай создадим раздел и поведешь его. Мне, например, все интересно что связано с установщиками.

30 июня 2011 - 18:33 / #18
Оффлайн

Gnom

Звание: Новичок

Знаток

Сообщений: 79

Создано тем: 1

Рейтинг: 2

Репа: (6|6|0)

Баллы: 51

Страна: не указана!

Был: 2024-10-30 19:17

Лайков: 2

Цитата: WYLEK
Давай создадим раздел

Не обязательно, достаточно модифицировать этот. Но, сперва, может опрос по форуму сделать, о необходимости такого? есть несколько больших форумов по инно, с остальными программами установки я не связывался, плюс, нужен ктото, кто хорошо знает дельфи и С+, для написания воспомогательных библиотек, что иногда требуется. На вопросы буду отвечать, в меру моих знаний и опыта.
Единственное - Установщики приложений нужно вынести в корень форума - Русификация программ - скорее дочерняя тема Установщиков приложений, чем наоборот

30 июня 2011 - 18:37 / #19
Оффлайн

Автор темы

WYLEK

Звание: Легенда

Админ

Сообщений: 2224

Создано тем: 321

Рейтинг: 10

Репа: (246|246|0)

Баллы: 3885

Был: 2025-03-20 12:58

Лайков: 217

Цитата: Gnom
Не обязательно, достаточно модифицировать этот. Но, сперва, может опрос по форуму сделать, о необходимости такого? есть несколько больших форумов по инно, с остальными программами установки я не связывался, плюс, нужен ктото, кто хорошо знает дельфи и С+, для написания воспомогательных библиотек, что иногда требуется. На вопросы буду отвечать, в меру моих знаний и опыта.

По русификации знаю - никто на блюдечке не подаст
Надо просто начать и делать - аудитория будет, главное увлечь народ.

Даю тебе права на создание новостей. Выставляй все что считаешь нужным по своему увлечению.

30 июня 2011 - 18:42 / #20