OleContainer1嵌套word,双击打开报错？？急！！解决，立即给分！！

Question

有的机器能打开，有的机器出现“没有注册”，有的出现“...%1”错误！！
这到底是怎么回事？？？等着急用，听帮忙！！

Answer 1

我用这段代码是没有出现过这种错误，供你参考
procedure TForm1.Button1Click(Sender: TObject);
var
   s:AnsiString;
   begin
   s:=UpperCase(ExtractFileExt('D:\delphi\aa.doc'));
    if(Pos(s,'.HTM')>0)or (Pos(s,'.PPS')>0)or (Pos(s,'.WAV')>0) or (Pos(s,'.DOC')>0)or (Pos(s,'.MPG')>0)
     then OleContainer1.createobjectfromfile('d:\delphi\aa.doc' ,not OleContainer1.Iconic)
     else OleContainer1.destroyObject;
   
   end;