Цитата: Kryukov Скажи опримизатор твой по реестру смотрит что стоит
к примеру у меня офис снесён а он пишит ошибка
также почтовый сервер а его нет
сервис печати и AeDebug
и на редадмин ругается а безнего не удобно
Почтовик
Код:
if (getRegInt(HKEY_LOCAL_MACHINE, '\SYSTEM\CurrentControlSet\Services\SMPost Server', 'Start') <> 3) and (getRegInt(HKEY_LOCAL_MACHINE, '\SYSTEM\CurrentControlSet\Services\SMPost Server', 'Start') <> -1) then Attent('Установлен почтовый сервер');
Aedebug
Код:
if getRegStr(HKEY_LOCAL_MACHINE, '\SOFTWARE\Microsoft\Windows NT\CurrentVersion\AeDebug', 'Auto') <> '0' then Attent('Установлен AeDebug');
Office
Код:
if Reg.KeyExists('\SOFTWARE\Microsoft\Office') then Alarm('Установлен MS Office');
И тут его не должно быть \SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\