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 rest客户端程序

Delphi textfile utf8编码读写

Delphi datetimepicker控件日期格式

Delphi 为数字补充前缀0

Delphi html转义

Delphi 如何从html格式的字符串中提取纯文本？

Delphi 提高unigui开发效率的两个方法

Delphi 如何将颜色值转换为html格式？

orangeui作者开源作品

Delphi 如何将颜色值转换为灰度颜色值？

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

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