请各位告诉俺，怎样判断计算机是否安装了excel?谢了

Question

请各位告诉俺，怎样判断计算机是否安装了excel?谢了

Answer 1

请说明百点，
try
  ??
exceptend;xiexie

Answer 2

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office]

Answer 3

begin
    try
      ExcelApp:=CreateOleObject('Excel.Application');
      MyWorkBook:=CreateOleobject('Excel.Sheet');
    except
      application.Messagebox('无法打开Xls文件，请确认已 经安装EXCEL.','',
           mb_OK+mb_IconStop);
      Exit;
    end;

Answer 4

谢谢ExcelApp,MyWorkBook定义成什么类型？

Answer 5

你想想也知道，在开始的运行里输入excel就行了
在delphi里面。你自己想吧

Answer 6

ExcelApp,MyWorkBook: OleVariant;
不过我还有一种方法：
procedure tform1.form1;
const
  CLASS_ExcelApplication: TGUID = '{00024500-0000-0000-C000-000000000046}';
var
  Unknown: IUnknown;
begin
try
        if not Succeeded(GetActiveObject(CLASS_ExcelApplication, nil, Unknown)) then
          Unknown := CreateComObject(CLASS_ExcelApplication);
      except
        raise Exception.Create('不能启动 Microsoft Excel，请确认 Microsoft Excel 已正确安装在本机上');
      end;
end;