home *** CD-ROM | disk | FTP | other *** search
/ PC Plus SuperCD (UK) 2000 May / PCP163A.iso / Runimage / Cbuilder4 / Source / Vcl / VCLINIT.CPP < prev    next >
Encoding:
C/C++ Source or Header  |  1999-01-26  |  805 b   |  42 lines
  1. #pragma hdrstop
  2. #include <windows.hpp>
  3. #include <sysutils.hpp>
  4. #include <typinfo.hpp>
  5.  
  6. extern HINSTANCE _hInstance;
  7. extern char     __isDLL;
  8. extern char     __isGUI;
  9. extern char     __isVCLPackage; // in c0nt.asm
  10.  
  11. extern "C"
  12. void __stdcall __InitVCL(void)
  13. {
  14.   VclInit(__isDLL, __isVCLPackage, long(_hInstance), __isGUI);
  15. }
  16.  
  17. extern "C"
  18. void __stdcall __ExitVCL(void)
  19. {
  20.   VclExit();
  21. }
  22.  
  23.  
  24. extern "C"
  25. void __stdcall __LateVCLInit(void)
  26. {
  27.   #pragma startup __LateVCLInit 31
  28. /*
  29.     priority 31 happens after all of
  30.     VCL (including sharemem if needed),
  31.     and the entire C++ RTL get
  32.     initializied but before any
  33.     user C++ global class ctors do.
  34. */
  35.  
  36.   // Change TypInfo strings here.
  37.   BooleanIdents[0] = "false";
  38.   BooleanIdents[1] = "true";
  39.   DotSep = "->";
  40. }
  41.  
  42.