此代码可以实现以下功能 使用wordappalication 组件,代码如下 启动Word时用如下代码: begin try Wordapplication.Connect except MessageDlg(’Word may not be installed’, mtError, [MBOK], 0) Abort end Wordapplication.Visible := True WordApplication.Caption := ’Delphi automation’ end
标签:
wordappalication
代码
上传时间:
2014-01-22
上传用户:Divine