Author: Jonas Bilinkevicius

In the application I am writing I need to get data from an Excel spreadsheet and 
then insert it into a database. I am going to automate Excel. What I would like to 
know is how I can detect to see if excel is installed, and if it is, what version 
of Excel is on the user's computer. How can I do this?

Answer:

1   { ... }
2   var
3     ClassID: TCLSID;
4     strOLEObject: string;
5   begin
6     strOLEObject := 'Excel.Application';
7     if (CLSIDFromProgID(PWideChar(WideString(strOLEObject)), ClassID) = S_OK) then
8     begin
9       {application is installed}
10    end
11    else
12    begin
13      {application is not installed}
14    end
15  end;
16  
17  //To get the version, just read Version property of Excel.Application:
18  
19  xls := CreateOLEObject('Excel.Application');
20  v := xls.Version;