home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / Delphi.5 / Samples / sourceD5 / browutil.exe / BROWSER / COMBROWS.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1999-04-23  |  368 b   |  22 lines
  1. unit COMBrows;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, ActiveX, ComObj, Browser_TLB;
  7.  
  8. type
  9.   TCOMBrowser = class(TTypedComObject, ICOMBrowser)
  10.   protected
  11.     {Declare ICOMBrowser methods here}
  12.   end;
  13.  
  14. implementation
  15.  
  16. uses ComServ;
  17.  
  18. initialization
  19.   TTypedComObjectFactory.Create(ComServer, TCOMBrowser, Class_COMBrowser,
  20.     ciMultiInstance, tmSingle);
  21. end.
  22.