var WordApp,WordDoc:variant; begin WordApp:=CreateOleObject('word.application'); WordApp.caption:='系统文档处理系统'; WordApp.visible:=true; WordDoc:=WordApp.documents.open('c:\tempdoc.doc'); WordApp.Selection.InlineShapes.AddPicture('C:\1.bmp',False,True); end;
WordApp,WordDoc:variant;
begin
WordApp:=CreateOleObject('word.application');
WordApp.caption:='系统文档处理系统';
WordApp.visible:=true;
WordDoc:=WordApp.documents.open('c:\tempdoc.doc');
WordApp.Selection.InlineShapes.AddPicture('C:\1.bmp',False,True);
end;
image1.Picture.SaveToFile('c:\1.bmp')