Проверить, установлен ли на компьютере Excel.

Ищем ClassID по известному нам всем ProgID Excel-а.

uses
     ActiveX
     ;
...
procedure CheckExcel;
var
    ClassID: TGUID;
begin
  if CLSIDFromProgID(PWideChar('Excel.Application'), ClassID) = S_OK then  
  begin // Excel найден
    ...
  end
    else
  begin // Excel не обнаружен.
    ...
  end;
end;

 

Метки: