delphi判断电脑是否安装了excel

本文整理自网络，侵删。

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

+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++



uses Registry;
...

procedure TForm1.Button1Click(Sender: TObject);
var
 Reg:TRegistry;
begin
 Reg:=TRegistry.Create;
 Reg.RootKey:=HKEY_CLASSES_ROOT; 
 if Reg.OpenKey('\Excel.Sheet\CurVer',False) then
   showMessage('Excel 已安?b') 
else
   showMessage('Excel ?]安?b'); 
 Reg.Free;
end;
 

相关阅读 >>

Delphi 调用clipboard 收集剪切板信息

Delphi 把exe嵌入到自己的exe中。Delphi xe3

Delphi windows 编程[7] - wm_create 消息

Delphi getwindowtext - 获取窗口标题

Delphi mscomm1自动获取串口

Delphi中转向语句break，continue，exit的作用

Delphi 对int64计算的一种处理方式

Delphi 与 xml 示例（直接利用ixmldocument）

自己写的app如何禁掉安卓锁屏

Delphi禁止webbrowser弹出窗口或者脚本错误

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi判断电脑是否安装了excel