Proxy class for translation OLE calls to VCL.

TekWSHProxy = class(TInterfacedObject, IDispatch, IQueryPersistent)

Internally used by ekWSHControl to translate OLE calls to VCL.

ekWSHControl creates instance of this class during object registration in script control and destroys it automatically when the need of it disappears.

Creates instance of TekWSHProxy.

constructor Create(AOwner: TPersistent; ScriptControl: TekWSHControl);

TPersistent descendant for which one proxy being created,

owner of created proxy instance.

This method is implemented and used internally, so you don't need to obviously implement or use it in your source code.

Destroys instance of TekWSHProxy.

destructor Destroy; override;

This method is implemented and used internally, so you don't need to obviously implement or use it in your source code.

Translates DispID parameter into VCL properties reading/writing and method calls.

function DoInvoke(DispID: Integer; const IID: TGUID; LocaleID: Integer; Flags: Word; var dps: TDispParams; pDispIds: PDispIdList; VarResult: Pointer; ExcepInfo: Pointer; ArgErr: Pointer): HResult; virtual;

This method is implemented and used internally, so you don't need to obviously implement or use it in your source code.