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 memo 控件光标定位

Delphi中禁止webbrowser右键的方法

Delphi模仿“千千静听”滚动标题栏，非常简单！

Delphi firedac 另存json

Delphi研究之驱动开发篇（五）--使用后备列表

Delphi的tstreamreader逐行读取文本文件

Delphi 得到不同平台的录音文件保存路径

Delphi利用scrollbox实现图像漫游

Delphi tfinddialog treplacedialog对话框在memo中的使用

Delphi服务器端如何防止ddos

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

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