Как определить установлен ли 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