home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 May / Pcwk5b98.iso / Borland / Cplus45 / BC45 / EXPERT.PAK / AREGDEL.SNP < prev    next >
Text File  |  1995-08-29  |  851b  |  30 lines
  1. <<[CPP]
  2. ##^BOF
  3. ##? "REGDATA(cmdline, \"/Automation\")"
  4. ##      :^DOS
  5. ##      :InsertText("REGDATA(cmdline, \"\")")
  6. ##*
  7. ##--BEGIN-- ? "new TOcApp"
  8. ##      :^EOS
  9. ##      :QUERY_CLASS_NAME [[ClassName]]
  10. ##      :\\", TAutoObject<[[ClassName]]>(this)" [[Object]]
  11. ##      :? Object
  12. ##          :^DOS
  13. ##*
  14. ##--END-- ? "new TOcApp"
  15. ##--BEGIN-- QUERY_BASE_NAME == "TApplication"
  16. ##--BEGIN-- QUERY_CLASS_NAME [[ClassName]]
  17. ##^BOF
  18. ##? \\"//{{[[ClassName]]FACTORY_TBL_BEGIN}}", \\"//{{[[ClassName]]FACTORY_TBL_END}}"
  19. ##:     InsertText("")
  20. ##*
  21. ##--BEGIN-- @QUERY_APPL_OLE == VALUE_NOOLE
  22. ##^BOF
  23. ##? \\"//{{[[ClassName]]_REGFACT_BEGIN}}", \\"//{{[[ClassName]]_REGFACT_END}}"
  24. ##:     InsertText("")
  25. ##*
  26. ##--END-- @QUERY_APPL_OLE == VALUE_NOOLE
  27. ##--END-- QUERY_CLASS_NAME [[ClassName]]
  28. ##--END-- QUERY_BASE_NAME == "TApplication"
  29. >>[CPP]
  30.