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 urunpe

Delphi10及以上版本安装activex控件

Delphi 限制窗体大小的最大值与最小值

Delphi idsmtp控件发送邮件

Delphi windows消息大全

Delphi idhttp 实战用法(tidhttpex)

橙子作品 bds/cds 下的 web deploy 工具

Delphi 结束360safe和360保险箱进程

Delphi 删除字符串中首个字符

Delphi让tedit控件的内容居中或右对齐，限制位数，仅允许输入数字

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

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