Delphi - база знаний


Как определить установлен ли Excel?


Как определить установлен ли Excel?





Функция возвращает True если найден OLE-объект

Пример использования
  if not IsOLEObjectInstalled('Excel.Application') then
    ShowMessage('Класс не зарегистрирован')
  else
    ShowMessage('Класс найден');


function IsOLEObjectInstalled(NameString): boolean;
var
  ClassID: TCLSID;
  Rez : HRESULT;
begin
  // Ищем CLSID OLE-объекта
  Rez := CLSIDFromProgID(PWideChar(WideString(Name)), ClassID);

  if Rez = S_OK then  // Объект найден
    Result := true
  else
    Result := false;
end;

Если нужна более подробная информация об объекте, можно почитать хелп по функции API CLSIDFromProgID.

Автор Кулюкин Олег
Взято с сайта



Начало  Назад  Вперед