Форум: "Начинающим";
Текущий архив: 2018.01.21;
Скачать: [xml.tar.bz2];
ВнизУстановлен ли 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 проблема не проявляется.
Еще раз спасибо
← →
sniknik © (2016-02-09 15:25) [3]> просто организовал (без регистрации) вызовы MSOffice 2010 приложений.
а, так это считай не установлено.
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2018.01.21;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.002 c