var
StartMenuValue: string;
procedure CurStepChanged(CurStep: TSetupStep);
begin
if (CurStep = ssPostInstall) and (IsTaskSelected('RegistrMaxthon') = False) then
SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, 0, 0);
if CurStep = ssDone then
RegDeleteKeyIncludingSubkeys(HKLM, 'SOFTWARE\Clients\StartMenuInternet\Maxthon.exe');
if (CurStep = ssInstall) and IsTaskSelected('RegistrMaxthon') then
RegQueryStringValue(HKCU, 'Software\Clients\StartMenuInternet', '', StartMenuValue);
if CurStep = ssDone then
begin
if IsTaskSelected('RegistrMaxthon') then
RegWriteStringValue(HKCU, 'Software\Clients\StartMenuInternet', '', StartMenuValue);
if StartMenuValue <> '' then else
RegWriteStringValue(HKCU, 'Software\Clients\StartMenuInternet', '', 'IEXPLORE.EXE');
end; |
