[Nordek]

внёс в реестр »

Вариант 1:

Код:

[Run]
Filename: REG.exe; Parameters: "ADD ""HKCU\Software\Test"" /v ""Parameter"" /t REG_SZ /d ""Value"" /f"; Flags: runhidden

[UninstallRun]
Filename: REG.exe; Parameters: "DELETE ""HKCU\Software\Test"" /v ""Parameter"" /f"; Flags: runhidden

или

Код:

[Run]
Filename: REG.exe; Parameters: "ADD ""HKCU\Software\Test"" /v ""Parameter"" /t REG_SZ /d ""Value"" /f"; Flags: runhidden

[UninstallRun]
Filename: REG.exe; Parameters: "DELETE ""HKCU\Software\Test"" /f"; Flags: runhidden

Вариант 2:

Код:

[Files]
Source: test.reg; DestDir: {tmp}; Flags: ignoreversion deleteafterinstall

[Run]
Filename: regedit.exe; Parameters: "/s ""{tmp}\test.reg"""

Вариант 3:

Код:

[Registry]
Root: HKCU; SubKey: Software\Test; ValueType: string; ValueName: Parameter; ValueData: Value; Flags: uninsdeletevalue uninsdeletekeyifempty

и в host »

На форуме несколько раз предоставлялись уже примеры.

Скрытый текст

Код:

[Code]
procedure CurStepChanged(CurStep: TSetupStep);
var
  HostFile: TStringList;
  HostFileName: String;
begin
  HostFile := TStringList.Create;
  HostFileName:=ExpandConstant('{sys}\drivers\etc\hosts');
  try
    with HostFile do
    if CurStep = ssPostInstall then
    begin
      LoadFromFile(HostFileName);
      Add('127.0.0.1    www.xxx');
      Add('127.0.0.1    www.xxx');
      Add('127.0.0.1    www.xxx');
      Add('127.0.0.1    xxx');
      Add('127.0.0.1    xxx');
      Add('127.0.0.1    xxx');
      DeleteFile(HostFileName);
      SaveToFile(HostFileName);
    end;
  finally
    HostFile.free;
  end;
end;