boss911
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Помогите, плиз, [more=сюда]
Код: [Code ]
procedure CurStepChanged(CurStep: TSetupStep);
begin
if (CurStep = ssInstall) and IsTaskSelected('RegistrMaxthon') then // считываем значение
RegQueryStringValue(HKCU, 'Software\Clients\StartMenuInternet', '', StartMenuValue);
if (CurStep = ssDone) and IsTaskSelected('RegistrMaxthon') and (StartMenuValue <> '') then // записываем значение
RegWriteStringValue(HKCU, 'Software\Clients\StartMenuInternet', '', StartMenuValue);
end;
|
|
Всего записей: 3714 | Зарегистр. 29-01-2005 | Отправлено: 11:59 09-09-2012 | Исправлено: boss911, 08:43 10-09-2012 |
|
