VPF::Inno Setup - Форум программистов

KaKTyCc

Дата 2.6.2006, 00:20 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 247
Регистрация: 2.8.2005

Репутация: нет
Всего: 1

как добавить путь к system path? подскажите

Root: HKLM; Subkey: "SYSTEM\ControlSet001\Control\Session Manager\Environment"; ???

Добавлено @ 00:23
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Environment

или здесь надо ключ изменять?

--------------------

Мой блог

KaKTyCc

Дата 2.6.2006, 00:57 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 247
Регистрация: 2.8.2005

Репутация: нет
Всего: 1

[code=delphi]
Root: HKLM; Subkey: "SYSTEM\CurrentControlSet\Control\Session Manager\Environment"; ValueType: string; ValueName: "Path"; ValueData: "{code:SetEnvironmentPath}"

Код


function SetEnvironmentPath(Param: String): String;
var
strTmp: String;
strPath: String;
strAdd: String;
intL: Integer;

begin

if RegQueryStringValue(HKLM, 'SYSTEM\CurrentControlSet\Control\Session Manager\Environment','Path', strPath) then
begin
strTmp := strPath
// den aktuelle Wert der Umgebungsvariable 'Path' wurde erfolgreich gelesen

if RegQueryStringValue(HKLM, 'Software\ARM\', 'ARM', strAdd) then
begin
// den aktuelle Wert des GIS-Pfads wurde erfolgreich gelesen
// die 'Path'-Umgebungsvariable reinigen von der
StringChange(strPath, (strAdd + ';'), '');
StringChange(strPath, (';;'), ';');

intL := Length (strPath);
strTmp := strPath[intL];

if strTmp <> ';' then
strPath := strPath + ';'

strTmp := strPath + strAdd;
StringChange(strTmp, (strAdd + ';' + strAdd), strAdd + ';');

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

Добавлено @ 01:00
все разобрался, надо в [Registry]
добавить строку
Root: HKLM; Subkey: "Software\ARM\"; ValueType: string; ValueName: "ARM"; ValueData: "{app}"

--------------------

Мой блог

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »