mirror of
https://github.com/indetectables-net/toolkit.git
synced 2025-06-22 02:40:50 +00:00
71 lines
2.5 KiB
Plaintext
71 lines
2.5 KiB
Plaintext
[Code]
|
|
procedure EnvAddPath(Path: string);
|
|
var
|
|
Paths: string;
|
|
begin
|
|
{ Retrieve current path (use empty string if entry not exists) }
|
|
if not RegQueryStringValue(HKEY_CURRENT_USER, 'Environment', 'Path', Paths) then
|
|
Paths := '';
|
|
|
|
{ Skip if string already found in path }
|
|
if Pos(';' + Uppercase(Path) + ';', ';' + Uppercase(Paths) + ';') > 0 then
|
|
exit;
|
|
|
|
{ App string to the end of the path variable }
|
|
Paths := Paths + ';'+ Path //+';'
|
|
|
|
{ Overwrite (or create if missing) path environment variable }
|
|
if RegWriteStringValue(HKEY_CURRENT_USER, 'Environment', 'Path', Paths) then
|
|
Log(Format('The [%s] added to PATH: [%s]', [Path, Paths]))
|
|
else
|
|
Log(Format('Error while adding the [%s] to PATH: [%s]', [Path, Paths]));
|
|
end;
|
|
|
|
procedure EnvRemovePath(Path: string);
|
|
var
|
|
Paths: string;
|
|
P: Integer;
|
|
begin
|
|
{ Skip if registry entry not exists }
|
|
if not RegQueryStringValue(HKEY_CURRENT_USER, 'Environment', 'Path', Paths) then
|
|
exit;
|
|
|
|
{ Skip if string not found in path }
|
|
P := Pos(';' + Uppercase(Path) + ';', ';' + Uppercase(Paths) + ';');
|
|
if P = 0 then
|
|
exit;
|
|
|
|
{ Update path variable }
|
|
Delete(Paths, P - 1, Length(Path) + 1);
|
|
|
|
{ Overwrite path environment variable }
|
|
if RegWriteStringValue(HKEY_CURRENT_USER, 'Environment', 'Path', Paths) then
|
|
Log(Format('The [%s] removed from PATH: [%s]', [Path, Paths]))
|
|
else
|
|
Log(Format('Error while removing the [%s] from PATH: [%s]', [Path, Paths]));
|
|
end;
|
|
|
|
{
|
|
;;;;; AUTOGENERATED!
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
}
|
|
procedure CurStepChanged(CurStep: TSetupStep);
|
|
begin
|
|
if CurStep = ssPostInstall then
|
|
begin
|
|
if WizardIsComponentSelected('unpacking\novmp') then EnvAddPath(ExpandConstant('{#MyAppToolsFolder}') + '\UnPacking\NoVmp');
|
|
if WizardIsComponentSelected('unpacking\vmunprotect') then EnvAddPath(ExpandConstant('{#MyAppToolsFolder}') + '\UnPacking\VMUnprotect');
|
|
if WizardIsComponentSelected('unpacking\vmunprotectdumper') then EnvAddPath(ExpandConstant('{#MyAppToolsFolder}') + '\UnPacking\VMUnprotectDumper');
|
|
end
|
|
end;
|
|
|
|
procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
|
|
begin
|
|
if CurUninstallStep = usPostUninstall then
|
|
begin
|
|
EnvRemovePath(ExpandConstant('{#MyAppToolsFolder}') + '\UnPacking\NoVmp');
|
|
EnvRemovePath(ExpandConstant('{#MyAppToolsFolder}') + '\UnPacking\VMUnprotect');
|
|
EnvRemovePath(ExpandConstant('{#MyAppToolsFolder}') + '\UnPacking\VMUnprotectDumper');
|
|
end
|
|
end;
|