this code can be achieved using the following functions wordappalication components, the following code at the start Word with the following code : begin try Wordapplication.Connect except MessageDlg ( 'Word may not be installed', mtError, [mbOk], 0) Abort end Wordapplication.Visible : = True WordApplication.Caption : = 'Delphi automation' end

autoimpl.pas
Project1.cfg
Project1.dpr
Project1.exe
Project1.res
Unit1.dfm
Unit1.pas

• We are an exchange download platform that only provides communication channels. The downloaded content comes from the internet. Except for download issues, please Google on your own.
• The downloaded content is provided for members to upload. If it unintentionally infringes on your copyright, please contact us.
• Please use Winrar for decompression tools
• If download fail, Try it againg or Feedback to us.
• If downloaded content did not match the introduction, Feedback to us，Confirm and will be refund.
• Before downloading, you can inquire through the uploaded person information

Nothing．