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 xe5 android 使用system.zip单元释放资源文件

Delphi获取网卡mac地址多个方法

Delphi窗口最小化和还原事件捕获

Delphi'控件的相对坐标与屏幕坐标转换

Delphi 列出所有可视窗口

Delphi rest/post

Delphi xe6调用android手机标准功能

Delphi 匿名管道

Delphi获取文件或文件夹属性和修改属性

Delphi 使用钩子函数 - 钩子链和 callnexthookex 的返回值

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

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