Createoleobject总是无法执行！为什么？

Question

     procedure TForm1.Button1Click(Sender: Tobject);
     var
       eclApp,WorkBook:Variant;
       xlsFileName:string;
     begin
        xlsFileName:=ExtractFilePath(Application.ExeName)+'ex.xls';
        try
           eclApp:=Createoleobject('Excel.Application');
           WorkBook:=CreateOleobject('Excel.Sheet');
        except
           ShowMessage('您的机器里未安装Microsoft Excel.');
           Exit;
        end;
     end;执行以上代码只能显示：您的机器里未安装Microsoft Excel。编译时无问题！运行才出问题，而且有些机器没有问题，我试了几台机器，只有一台有这种问题！但所有机器同样都是装了Excel2003的！

Answer 1

把那一台的office重新安装或者修复安装，可能ole服务器没有正确注册。

Answer 2

是正常的安装版么，或者检查一下注册表里面下面几项的信息是否完整的存在。
HKEY_CLASSES_ROOT\Excel.Application
HKEY_CLASSES_ROOT\CLSID\{00024500-0000-0000-C000-000000000046}
HKEY_CLASSES_ROOT\CLSID\{00020812-0000-0000-C000-000000000046}也可以运行一下
regsvr32 ole32.dll

Answer 3

已经搞定了，电脑被人设置了一些限制！还是很感谢Forever_Young!