System.TInitContext

• Aller au parent : System
• Champs

Delphi

  TInitContext = record
    OuterContext:   PInitContext;     { saved InitContext   }
{$IFNDEF PC_MAPPED_EXCEPTIONS}
    ExcFrame:       Pointer;          { bottom exc handler  }
{$ENDIF}
    InitTable:      PackageInfo;      { unit init info      }
    InitCount:      Integer;          { how far we got      }
    Module:         PLibModule;       { ptr to module desc  }
{$IFNDEF TABLE_BASED_EXCEPTIONS}
    DLLSaveEBP:     Pointer;          { saved regs for DLLs }
    DLLSaveEBX:     Pointer;          { saved regs for DLLs }
    DLLSaveESI:     Pointer;          { saved regs for DLLs }
    DLLSaveEDI:     Pointer;          { saved regs for DLLs }
{$ENDIF !TABLE_BASED_EXCEPTIONS}
{$IFDEF MSWINDOWS}
    ExitProcessTLS: procedure;        { Shutdown for TLS    }
{$ENDIF}
    DLLInitState:   Byte;             { 0 = package, 1 = DLL shutdown, 2 = DLL startup }
    ThreadID:       TThreadID;        { Initializing Thread }
  end platform;

C++

struct DECLSPEC_DRECORD TInitContext{
public:
TInitContext *OuterContext;
void *ExcFrame;
PackageInfoTable *InitTable;
int InitCount;
TLibModule *Module;
void *DLLSaveEBP;
void *DLLSaveEBX;
void *DLLSaveESI;
void *DLLSaveEDI;
void __fastcall (*ExitProcessTLS)(void);
Byte DLLInitState;
unsigned ThreadID;
};

Propriétés

Type	Visibilité	Source	Unité	Parent
struct class	public	System.pas System.hpp	System	System

Description

A usage interne.

TInitContext est utilisé en interne par le compilateur Delphi.

Voir aussi

• PInitContext