[Registry]
Root: HKCU; SubKey: Software\Clients\StartMenuInternet; ValueType: string; ValueData: IEXPLORE.EXE; Flags: createvalueifdoesntexist; MinVersion: 0,5.01; OnlyBelowVersion: 0,6.0
[*Code]
procedure CurStepChanged(CurStep: TSetupStep);
begin
if (CurStep = ssDone) then
begin
if IsTaskSelected('RegistrMaxthon') then
begin
RegQueryStringValue(HKCU, 'Software\Clients\StartMenuInternet', '', StartMenuValue); // считываем значение
if (StartMenuValue <> '') then // записываем значение
RegWriteStringValue(HKCU, 'Software\Clients\StartMenuInternet', '', StartMenuValue);
end;
end;
end; |
