home *** CD-ROM | disk | FTP | other *** search
-
- {*******************************************************}
- { }
- { Borland Delphi Runtime Library }
- { System Initialization Unit }
- { }
- { Copyright (C) 1997,99 Inprise Corporation }
- { }
- {*******************************************************}
-
- unit SysInit;
-
- interface
-
- var
- ModuleIsLib: Boolean; { True if this module is a dll (a library or a package) }
- ModuleIsPackage: Boolean; { True if this module is a package }
- ModuleIsCpp: Boolean; { True if this module is compiled using C++ Builder }
- TlsIndex: Integer; { Thread local storage index }
- TlsLast: Byte; { Set by linker so its offset is last in TLS segment }
- HInstance: LongWord; { Handle of this instance }
- {$EXTERNALSYM HInstance}
- (*$HPPEMIT 'namespace Sysinit' *)
- (*$HPPEMIT '{' *)
- (*$HPPEMIT 'extern PACKAGE HINSTANCE HInstance;' *)
- (*$HPPEMIT '} /* namespace Sysinit */' *)
- DllProc: Pointer; { Called whenever DLL entry point is called }
- DataMark: Integer = 0; { Used to find the virtual base of DATA seg }
-
- procedure _GetTls;
- function _InitPkg(Hinst: Integer; Reason: Integer; Resvd: Pointer): LongBool; stdcall;
- procedure _InitLib;
- procedure _InitExe;
-
- { Invoked by C++ startup code to allow initialization of VCL global vars }
- procedure VclInit(isDLL, isPkg: Boolean; hInst: LongInt; isGui: Boolean); cdecl;
- procedure VclExit; cdecl;
-
- implementation
-