本文整理自网络，侵删。
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 pagecontrol.ttabsheet与drivecombobox.items同步
Delphi 正则表达式tperlregex 类的属性与方法
更多相关阅读请进入《Delphi》频道 >>
