Установлен ли MSOffice 2010?

← →
MS_Office (2016-02-09 11:15) [0]

На компьютере с Windos 7 установлен MSOffice 2010.
код
Reg := TRegistry.Create; with Reg do begin RootKey := HKEY_CLASSES_ROOT; Result := KeyExists("Word.Application"); Free; end;
работающий на WinXP с MSOffice 2003, на Win 7 и MSOffice 2010 не отрабатывает (Result = False)
Подскажите каким образом можно определить установлены ли, в частности, Word, Excell, Access
Спасибо

← →
sniknik © (2016-02-09 11:38) [1]

доступа нет скорее всего... вот запусти свою прогу от администратора.

но вообще вот так должно работать и на win7 -

procedure TForm1.Button3Click(Sender: TObject); function isOLEInstalled(Name: WideString): boolean; var ClassID: TCLSID; begin result:= CLSIDFromProgID(PWideChar(Name), ClassID) = S_OK; end; begin if isOLEInstalled("Word.Application") then ShowMessage("Установлен") else ShowMessage("Не установлен"); end;

← →
MS_Office (2016-02-09 14:09) [2]

Спасибо.
Этот код дал такой же результат (отрицательный).
Детали:
Проблема возникала на Win7 начальная, где я не активировал MSOffice 2010, а пальцами (для непрофессиональных юзеров) просто организовал (без регистрации) вызовы MSOffice 2010 приложений.
На компьютерах Win7 и выше с официально (легально) установленным MSOffice 2010 проблема не проявляется.
Еще раз спасибо

> просто организовал (без регистрации) вызовы MSOffice 2010 приложений.
а, так это считай не установлено.

Установлен ли MSOffice 2010? Найти похожие ветки