home *** CD-ROM | disk | FTP | other *** search
/ PC World Plus! (NZ) 2001 June / HDC50.iso / Runimage / Delphi50 / Doc / SYSINIT.INT < prev    next >
Text File  |  1999-08-11  |  2KB  |  40 lines
  1.  
  2. {*******************************************************}
  3. {                                                       }
  4. {       Borland Delphi Runtime Library                  }
  5. {       System Initialization Unit                      }
  6. {                                                       }
  7. {       Copyright (C) 1997,99 Inprise Corporation       }
  8. {                                                       }
  9. {*******************************************************}
  10.  
  11. unit SysInit;
  12.  
  13. interface
  14.  
  15. var
  16.   ModuleIsLib: Boolean;         { True if this module is a dll (a library or a package) }
  17.   ModuleIsPackage: Boolean;     { True if this module is a package }
  18.   ModuleIsCpp: Boolean;         { True if this module is compiled using C++ Builder }
  19.   TlsIndex: Integer;            { Thread local storage index }
  20.   TlsLast: Byte;                { Set by linker so its offset is last in TLS segment }
  21.   HInstance: LongWord;          { Handle of this instance }
  22.   {$EXTERNALSYM HInstance}
  23.   (*$HPPEMIT 'namespace Sysinit' *)
  24.   (*$HPPEMIT '{' *)
  25.   (*$HPPEMIT 'extern PACKAGE HINSTANCE HInstance;' *)
  26.   (*$HPPEMIT '} /* namespace Sysinit */' *)
  27.   DllProc: Pointer;             { Called whenever DLL entry point is called }
  28.   DataMark: Integer = 0;        { Used to find the virtual base of DATA seg }
  29.  
  30. procedure _GetTls;
  31. function _InitPkg(Hinst: Integer; Reason: Integer; Resvd: Pointer): LongBool; stdcall;
  32. procedure _InitLib;
  33. procedure _InitExe;
  34.  
  35. { Invoked by C++ startup code to allow initialization of VCL global vars }
  36. procedure VclInit(isDLL, isPkg: Boolean; hInst: LongInt; isGui: Boolean); cdecl;
  37. procedure VclExit; cdecl;
  38.  
  39. implementation
  40.