sysvars.pas

这是个反向工程delphi的程序的全部源代码.能分析几乎所有的结构 Revendepro is a program to reverse engineer Delphi program. Reven

unit SysVars;

interface

type
  PVarConst = ^TVarConst;
  TVarConst = record
    Name: string;
    Size: Integer;
  end;
  
const
  SysVar0: TVarConst = (Name: 'Default8087CW'; Size: $4);
  SysVar1: TVarConst = (Name: 'DebugHook'; Size: $1);
  SysVar2: TVarConst = (Name: 'ModuleUnloadList'; Size: $4);
  SysVar3: TVarConst = (Name: 'MemoryManager'; Size: $C);
  SysVar4: TVarConst = (Name: 'dig'; Size: $10);
  SysVar5: TVarConst = (Name: 'ExceptProc'; Size: $4);
  SysVar6: TVarConst = (Name: 'ErrorProc'; Size: $4);
  SysVar7: TVarConst = (Name: 'ExceptObjProc'; Size: $4);
  SysVar8: TVarConst = (Name: 'MainInstance'; Size: $4);
  SysVar9: TVarConst = (Name: 'MainThreadID'; Size: $4);
  SysVar10: TVarConst = (Name: 'IsLibrary'; Size: $4);
  SysVar11: TVarConst = (Name: 'CmdShow'; Size: $4);
  SysVar12: TVarConst = (Name: 'CmdLine'; Size: $4);
  SysVar13: TVarConst = (Name: 'ExitCode'; Size: $4);
  SysVar14: TVarConst = (Name: 'ExitProc'; Size: $4);
  SysVar15: TVarConst = (Name: 'ErrorAddr'; Size: $4);
  SysVar16: TVarConst = (Name: 'RandSeed'; Size: $4);
  SysVar17: TVarConst = (Name: 'IsConsole'; Size: $2);
  SysVar18: TVarConst = (Name: 'FileMode'; Size: $2);
  SysVar19: TVarConst = (Name: 'Test8087'; Size: $4);
  SysVar20: TVarConst = (Name: 'Input'; Size: $1CC);
  SysVar21: TVarConst = (Name: 'Output'; Size: $1CC);
  SysVar22: TVarConst = (Name: 'ClearAnyProc'; Size: $4);
  SysVar23: TVarConst = (Name: 'ChangeAnyProc'; Size: $4);
  SysVar24: TVarConst = (Name: 'RefAnyProc'; Size: $4);
  SysVar25: TVarConst = (Name: 'Unassigned'; Size: $10);
  SysVar26: TVarConst = (Name: 'Null'; Size: $10);
  SysVar27: TVarConst = (Name: 'EmptyParam'; Size: $10);
  SysVar28: TVarConst = (Name: 'AllocMemCount'; Size: $4);
  SysVar29: TVarConst = (Name: 'AllocMemSize'; Size: $4);
  SysVar30: TVarConst = (Name: 'initialized'; Size: $4);
  SysVar31: TVarConst = (Name: 'heapErrorCode'; Size: $4);
  SysVar32: TVarConst = (Name: 'heapLock'; Size: $18);
  SysVar33: TVarConst = (Name: 'blockDescBlockList'; Size: $4);
  SysVar34: TVarConst = (Name: 'blockDescFreeList'; Size: $4);
  SysVar35: TVarConst = (Name: 'spaceRoot'; Size: $10);
  SysVar36: TVarConst = (Name: 'decommittedRoot'; Size: $10);
  SysVar37: TVarConst = (Name: 'avail'; Size: $C);
  SysVar38: TVarConst = (Name: 'rover'; Size: $4);
  SysVar39: TVarConst = (Name: 'remBytes'; Size: $4);
  SysVar40: TVarConst = (Name: 'curAlloc'; Size: $4);
  SysVar41: TVarConst = (Name: 'smallTab'; Size: $4);
  SysVar42: TVarConst = (Name: 'commitedRoot'; Size: $10);
  SysVar43: TVarConst = (Name: 'InitContext'; Size: $2C);
  SysVar44: TVarConst = (Name: 'ModuleIsLib'; Size: $1);
  SysVar45: TVarConst = (Name: 'TlsIndex'; Size: $4);
  SysVar46: TVarConst = (Name: 'HInstance'; Size: $4);
  SysVar47: TVarConst = (Name: 'LibModuleList'; Size: $4);
  SysVar48: TVarConst = (Name: 'IsMultiThread'; Size: $4);
  SysVar49: TVarConst = (Name: 'committedRoot'; Size: $10);
  SysVar50: TVarConst = (Name: 'errCaption'; Size: $8);
  SysVar51: TVarConst = (Name: 'TlsBuffer'; Size: $4);
  SysVar52: TVarConst = (Name: 'Module'; Size: $18);
  SysVar53: TVarConst = (Name: 'runErrMsg'; Size: $20);
  SysVar54: TVarConst = (Name: 'RewriteStr.spBuf'; Size: $40);
  SysVar55: TVarConst = (Name: 'RewriteStr.crlf'; Size: $4);
  SysVar56: TVarConst = (Name: 'ExceptClsProc'; Size: $4);
  SysVar57: TVarConst = (Name: 'AbstractErrorProc'; Size: $4);
  SysVar58: TVarConst = (Name: 'ExceptionClass'; Size: $4);
  SysVar59: TVarConst = (Name: 'SafeCallErrorProc'; Size: $4);
  SysVar60: TVarConst = (Name: 'AssertErrorProc'; Size: $4);
  SysVar61: TVarConst = (Name: 'HPrevInst'; Size: $4);
  SysVar62: TVarConst = (Name: 'InitProc'; Size: $4);
  SysVar63: TVarConst = (Name: 'Test8086'; Size: $4);
  SysVar64: TVarConst = (Name: 'TestFDIV'; Size: $4);
  SysVar65: TVarConst = (Name: 'HeapAllocFlags'; Size: $4);
  SysVar66: TVarConst = (Name: 'VarDispProc'; Size: $4);
  SysVar67: TVarConst = (Name: 'DispCallByIDProc'; Size: $4);
  SysVar68: TVarConst = (Name: 'CurrencyString'; Size: $4);
  SysVar69: TVarConst = (Name: 'NegCurrFormat'; Size: $1);
  SysVar70: TVarConst = (Name: 'ThousandSeparator'; Size: $1);
  SysVar71: TVarConst = (Name: 'DecimalSeparator'; Size: $1);
  SysVar72: TVarConst = (Name: 'CurrencyFormat'; Size: $1);
  SysVar73: TVarConst = (Name: 'NoErrMsg'; Size: $1);
  SysVar74: TVarConst = (Name: 'JITEnable'; Size: $1);
  SysVar75: TVarConst = (Name: 'DllProc'; Size: $4);
  SysVar76: TVarConst = (Name: 'ModuleIsPackage'; Size: $1);
  SysVar77: TVarConst = (Name: 'TlsProc'; Size: $10);

  SysVarList: array[0..77] of PVarConst = (
    @SysVar0, @SysVar1, @SysVar2, @SysVar3, @SysVar4, @SysVar5, @SysVar6, @SysVar7,
    @SysVar8, @SysVar9, @SysVar10, @SysVar11, @SysVar12, @SysVar13, @SysVar14, @SysVar15,
    @SysVar16, @SysVar17, @SysVar18, @SysVar19, @SysVar20, @SysVar21, @SysVar22, @SysVar23,
    @SysVar24, @SysVar25, @SysVar26, @SysVar27, @SysVar28, @SysVar29, @SysVar30, @SysVar31,
    @SysVar32, @SysVar33, @SysVar34, @SysVar35, @SysVar36, @SysVar37, @SysVar38, @SysVar39,
    @SysVar40, @SysVar41, @SysVar42, @SysVar43, @SysVar44, @SysVar45, @SysVar46, @SysVar47,
    @SysVar48, @SysVar49, @SysVar50, @SysVar51, @SysVar52, @SysVar53, @SysVar54, @SysVar55,
    @SysVar56, @SysVar57, @SysVar58, @SysVar59, @SysVar60, @SysVar61, @SysVar62, @SysVar63,
    @SysVar64, @SysVar65, @SysVar66, @SysVar67, @SysVar68, @SysVar69, @SysVar70, @SysVar71,
    @SysVar72, @SysVar73, @SysVar74, @SysVar75, @SysVar76, @SysVar77);

implementation

end.