4.12 The OLE-AUTOMATION module

OLE-util-automation?

Function

Summary

OLE-util-automation? () => automation?

Arguments

None.

Values

automation?: An instance of <boolean>.

Description

Note: Not applicable to in-process servers.

Returns #t if the application was invoked with the command-line option /Automation (case-insensitive), indicating that execution was initiated by an Automation controller client, as opposed to being invoked directly by a user.

Your application might want to make a class factory only if this is true. For example:

...
let factory = #f;
if ( OLE-util-automation?() )
  factory := make(<class-factory>, ...);
end if;

... // body of program

revoke-registration(factory); // no-op if arg is #f
...