COMInitialize (W*32, W*64)

Module

USE IFCOM

Syntax

CALL COMInitialize (status)

status

The status of the operation. It can be any status returned by OleInitialize. Must be of type INTEGER(4).

You must use this routine to initialize the COM library before calling any other COM or AUTO routine.

Example

Consider the following:

program COMExample

use ifwin

use ifcom

use ifauto

implicit none

! Variables

integer(4) word_app

integer(4) status

integer(INT_PTR_KIND()) invoke_args

call COMInitialize(status)

! Call GetActiveObject to get a reference to a running MS WORD application

call COMGetActiveObjectByProgID("Word.Application", word_app, status)

if (status >= 0) then

! Print the active document

invoke_args = AutoAllocateInvokeArgs()

call AutoAddArg(invoke_args, "Copies", 2)

status = AutoInvoke(word_app, "PrintOut", invoke_args)

call AutoDeallocateInvokeArgs(invoke_args)

! Release the reference

status = COMReleaseObject(word_app)

end if

call COMUninitialize()

end program