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

Previous  Top  Next

    
 

 

 

 

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

 

Пример использования

Code:

if not IsOLEObjectInstalled('Excel.Application') then

   ShowMessage('Класс не зарегистрирован')

else

   ShowMessage('Класс найден');

 

 

function IsOLEObjectInstalled(Name: String): 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.

 

Автор Кулюкин Олег

Взято с сайта http://www.delphikingdom.ru/

©Drkb::04379