Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Delphi: Общие вопросы > Inno Setup


Автор: KaKTyCc 2.6.2006, 00:20
как добавить путь к 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
[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}"

 

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)