| 123456789101112131415161718192021222324 |
- unit Unit2;
- {$WARN SYMBOL_PLATFORM OFF}
- interface
- uses
- ComObj, ActiveX, ActiveXObjectTest_TLB, StdVcl;
- type
- TAutoActiveCase = class(TAutoObject, IAutoActiveCase)
- protected
- end;
- implementation
- uses ComServ;
- initialization
- TAutoObjectFactory.Create(ComServer, TAutoActiveCase, Class_AutoActiveCase,
- ciMultiInstance, tmApartment);
- end.
|
