uwithtypeinfo.pas

多数代码可以直接在Delphi6和Delphi7环境下运行。部分涉及.NET技术内容的代码

unit uWithTypeInfo;

{$WARN SYMBOL_PLATFORM OFF}

interface

uses
  Windows, ActiveX, Classes, ComObj, PWithTypeInfo_TLB, StdVcl;

type
  TWithTypeInfo = class(TTypedComObject, IWithTypeInfo)
  protected
    {Declare IWithTypeInfo methods here}
  end;

implementation

uses ComServ;

initialization
  TTypedComObjectFactory.Create(ComServer, TWithTypeInfo, Class_WithTypeInfo,
    ciMultiInstance, tmApartment);
end.