开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 查看源码
JwaWinNT.pas
资源名称：win32api.zip　[点击查看]
上传用户：davidchvip
上传日期：2009-07-28
资源大小：1749k
文件大小：336k
源码类别：

Windows编程

开发平台：

Delphi

JwaWinNT.pas：源码内容
  1.     //    struct  // WinNT fields
  2.     //    {
  4.     unknown1: DWORD;             // 1Ch
  5.     processID: DWORD;            // 20h
  6.     threadID: DWORD;             // 24h
  7.     unknown2: DWORD;             // 28h
  9.     //    } WINNT;
  10.     //} TIB_UNION2;
  12.     pvTLSArray: PVOID;          // (PPVOID!) 2Ch Thread Local Storage array
  14.     //union                      // 30h (NT/Win95 differences)
  15.     //{
  16.     //    struct  // Win95 fields
  17.     //    {
  18.     //        PVOID*  pProcess;  // 30h Pointer to owning process database
  19.     //    } WIN95;
  20.     //} TIB_UNION3;
  21.   end;
  22.   {$EXTERNALSYM _NT_TIB}
  23.   NT_TIB = _NT_TIB;
  24.   {$EXTERNALSYM NT_TIB}
  25.   TNtTib = NT_TIB;
  26.   PNtTib = ^TNtTib;
  28. //
  29. // 32 and 64 bit specific version for wow64 and the debugger
  30. //
  32.   PNT_TIB32 = ^NT_TIB32;
  33.   {$EXTERNALSYM PNT_TIB32}
  34.   _NT_TIB32 = record
  35.     ExceptionList: DWORD;
  36.     StackBase: DWORD;
  37.     StackLimit: DWORD;
  38.     SubSystemTib: DWORD;
  39.     Union: record
  40.     case Integer of
  41.       0: (FiberData: DWORD);
  42.       1: (Version: DWORD);
  43.     end;
  44.     ArbitraryUserPointer: DWORD;
  45.     Self: DWORD;
  46.   end;
  47.   {$EXTERNALSYM _NT_TIB32}
  48.   NT_TIB32 = _NT_TIB32;
  49.   {$EXTERNALSYM NT_TIB32}
  50.   TNtTib32 = NT_TIB32;
  51.   PNtTib32 = ^TNtTib32;
  53.   PNT_TIB64 = ^NT_TIB64;
  54.   {$EXTERNALSYM PNT_TIB64}
  55.   _NT_TIB64 = record
  56.     ExceptionList: DWORD64;
  57.     StackBase: DWORD64;
  58.     StackLimit: DWORD64;
  59.     SubSystemTib: DWORD64;
  60.     Union: record
  61.     case Integer of
  62.       0: (FiberData: DWORD64);
  63.       1: (Version: DWORD);
  64.     end;
  65.     ArbitraryUserPointer: DWORD64;
  66.     Self: DWORD64;
  67.   end;
  68.   {$EXTERNALSYM _NT_TIB64}
  69.   NT_TIB64 = _NT_TIB64;
  70.   {$EXTERNALSYM NT_TIB64}
  71.   TNtTib64 = NT_TIB64;
  72.   PNtTib64 = ^TNtTib64;
  74. //
  75. // Define function to return the current Thread Environment Block
  76. //
  78. function NtCurrentTeb: PNT_TIB;
  79. {$EXTERNALSYM NtCurrentTeb}
  81. const
  82.   THREAD_BASE_PRIORITY_LOWRT = 15;         // value that gets a thread to LowRealtime-1
  83.   {$EXTERNALSYM THREAD_BASE_PRIORITY_LOWRT}
  84.   THREAD_BASE_PRIORITY_MAX   = 2;          // maximum thread base priority boost
  85.   {$EXTERNALSYM THREAD_BASE_PRIORITY_MAX}
  86.   THREAD_BASE_PRIORITY_MIN   = DWORD(-2);  // minimum thread base priority boost
  87.   {$EXTERNALSYM THREAD_BASE_PRIORITY_MIN}
  88.   THREAD_BASE_PRIORITY_IDLE  = DWORD(-15); // value that gets a thread to idle
  89.   {$EXTERNALSYM THREAD_BASE_PRIORITY_IDLE}
  91. type
  92.   PQUOTA_LIMITS = ^QUOTA_LIMITS;
  93.   {$EXTERNALSYM PQUOTA_LIMITS}
  94.   _QUOTA_LIMITS = record
  95.     PagedPoolLimit: SIZE_T;
  96.     NonPagedPoolLimit: SIZE_T;
  97.     MinimumWorkingSetSize: SIZE_T;
  98.     MaximumWorkingSetSize: SIZE_T;
  99.     PagefileLimit: SIZE_T;
  100.     TimeLimit: LARGE_INTEGER;
  101.   end;
  102.   {$EXTERNALSYM _QUOTA_LIMITS}
  103.   QUOTA_LIMITS = _QUOTA_LIMITS;
  104.   {$EXTERNALSYM QUOTA_LIMITS}
  105.   TQuotaLimits = QUOTA_LIMITS;
  106.   PQuotaLimits = PQUOTA_LIMITS;
  108. const
  109.   QUOTA_LIMITS_HARDWS_ENABLE  = $00000001;
  110.   {$EXTERNALSYM QUOTA_LIMITS_HARDWS_ENABLE}
  111.   QUOTA_LIMITS_HARDWS_DISABLE = $00000002;
  112.   {$EXTERNALSYM QUOTA_LIMITS_HARDWS_DISABLE}
  114. type
  115.   _QUOTA_LIMITS_EX = record
  116.     PagedPoolLimit: SIZE_T;
  117.     NonPagedPoolLimit: SIZE_T;
  118.     MinimumWorkingSetSize: SIZE_T;
  119.     MaximumWorkingSetSize: SIZE_T;
  120.     PagefileLimit: SIZE_T;
  121.     TimeLimit: LARGE_INTEGER;
  122.     Reserved1: SIZE_T;
  123.     Reserved2: SIZE_T;
  124.     Reserved3: SIZE_T;
  125.     Reserved4: SIZE_T;
  126.     Flags: DWORD;
  127.     Reserved5: DWORD;
  128.   end;
  129.   {$EXTERNALSYM _QUOTA_LIMITS_EX}
  130.   QUOTA_LIMITS_EX = _QUOTA_LIMITS_EX;
  131.   {$EXTERNALSYM QUOTA_LIMITS_EX}
  132.   PQUOTA_LIMITS_EX = ^QUOTA_LIMITS_EX;
  133.   {$EXTERNALSYM PQUOTA_LIMITS_EX}
  134.   TQuotaLimitsEx = QUOTA_LIMITS_EX;
  135.   PQuotaLimitsEx = PQUOTA_LIMITS_EX;  
  137.   PIO_COUNTERS = ^IO_COUNTERS;
  138.   {$EXTERNALSYM PIO_COUNTERS}
  139.   _IO_COUNTERS = record
  140.     ReadOperationCount: Int64;
  141.     WriteOperationCount: Int64;
  142.     OtherOperationCount: Int64;
  143.     ReadTransferCount: Int64;
  144.     WriteTransferCount: Int64;
  145.     OtherTransferCount: Int64;
  146.   end;
  147.   {$EXTERNALSYM _IO_COUNTERS}
  148.   IO_COUNTERS = _IO_COUNTERS;
  149.   {$EXTERNALSYM IO_COUNTERS}
  150.   TIoCounters = IO_COUNTERS;
  151.   PIoCounters = PIO_COUNTERS;
  153.   PJOBOBJECT_BASIC_ACCOUNTING_INFORMATION = ^JOBOBJECT_BASIC_ACCOUNTING_INFORMATION;
  154.   {$EXTERNALSYM PJOBOBJECT_BASIC_ACCOUNTING_INFORMATION}
  155.   _JOBOBJECT_BASIC_ACCOUNTING_INFORMATION = record
  156.     TotalUserTime: LARGE_INTEGER;
  157.     TotalKernelTime: LARGE_INTEGER;
  158.     ThisPeriodTotalUserTime: LARGE_INTEGER;
  159.     ThisPeriodTotalKernelTime: LARGE_INTEGER;
  160.     TotalPageFaultCount: DWORD;
  161.     TotalProcesses: DWORD;
  162.     ActiveProcesses: DWORD;
  163.     TotalTerminatedProcesses: DWORD;
  164.   end;
  165.   {$EXTERNALSYM _JOBOBJECT_BASIC_ACCOUNTING_INFORMATION}
  166.   JOBOBJECT_BASIC_ACCOUNTING_INFORMATION = _JOBOBJECT_BASIC_ACCOUNTING_INFORMATION;
  167.   {$EXTERNALSYM JOBOBJECT_BASIC_ACCOUNTING_INFORMATION}
  168.   TJobObjectBasicAccountingInformation = JOBOBJECT_BASIC_ACCOUNTING_INFORMATION;
  169.   PJobObjectBasicAccountingInformation = PJOBOBJECT_BASIC_ACCOUNTING_INFORMATION;
  171.   PJOBOBJECT_BASIC_LIMIT_INFORMATION = ^JOBOBJECT_BASIC_LIMIT_INFORMATION;
  172.   {$EXTERNALSYM PJOBOBJECT_BASIC_LIMIT_INFORMATION}
  173.   _JOBOBJECT_BASIC_LIMIT_INFORMATION = record
  174.     PerProcessUserTimeLimit: LARGE_INTEGER;
  175.     PerJobUserTimeLimit: LARGE_INTEGER;
  176.     LimitFlags: DWORD;
  177.     MinimumWorkingSetSize: SIZE_T;
  178.     MaximumWorkingSetSize: SIZE_T;
  179.     ActiveProcessLimit: DWORD;
  180.     Affinity: ULONG_PTR;
  181.     PriorityClass: DWORD;
  182.     SchedulingClass: DWORD;
  183.   end;
  184.   {$EXTERNALSYM _JOBOBJECT_BASIC_LIMIT_INFORMATION}
  185.   JOBOBJECT_BASIC_LIMIT_INFORMATION = _JOBOBJECT_BASIC_LIMIT_INFORMATION;
  186.   {$EXTERNALSYM JOBOBJECT_BASIC_LIMIT_INFORMATION}
  187.   TJobObjectBasicLimitInformation = JOBOBJECT_BASIC_LIMIT_INFORMATION;
  188.   PJobObjectBasicLimitInformation = PJOBOBJECT_BASIC_LIMIT_INFORMATION;
  190.   PJOBOBJECT_EXTENDED_LIMIT_INFORMATION = ^JOBOBJECT_EXTENDED_LIMIT_INFORMATION;
  191.   {$EXTERNALSYM PJOBOBJECT_EXTENDED_LIMIT_INFORMATION}
  192.   _JOBOBJECT_EXTENDED_LIMIT_INFORMATION = record
  193.     BasicLimitInformation: JOBOBJECT_BASIC_LIMIT_INFORMATION;
  194.     IoInfo: IO_COUNTERS;
  195.     ProcessMemoryLimit: SIZE_T;
  196.     JobMemoryLimit: SIZE_T;
  197.     PeakProcessMemoryUsed: SIZE_T;
  198.     PeakJobMemoryUsed: SIZE_T;
  199.   end;
  200.   {$EXTERNALSYM _JOBOBJECT_EXTENDED_LIMIT_INFORMATION}
  201.   JOBOBJECT_EXTENDED_LIMIT_INFORMATION = _JOBOBJECT_EXTENDED_LIMIT_INFORMATION;
  202.   {$EXTERNALSYM JOBOBJECT_EXTENDED_LIMIT_INFORMATION}
  203.   TJobObjectExtendedLimitInformation = JOBOBJECT_EXTENDED_LIMIT_INFORMATION;
  204.   PJobObjectExtendedLimitInformation = PJOBOBJECT_EXTENDED_LIMIT_INFORMATION;
  206.   PJOBOBJECT_BASIC_PROCESS_ID_LIST = ^JOBOBJECT_BASIC_PROCESS_ID_LIST;
  207.   {$EXTERNALSYM PJOBOBJECT_BASIC_PROCESS_ID_LIST}
  208.   _JOBOBJECT_BASIC_PROCESS_ID_LIST = record
  209.     NumberOfAssignedProcesses: DWORD;
  210.     NumberOfProcessIdsInList: DWORD;
  211.     ProcessIdList: array [0..0] of ULONG_PTR;
  212.   end;
  213.   {$EXTERNALSYM _JOBOBJECT_BASIC_PROCESS_ID_LIST}
  214.   JOBOBJECT_BASIC_PROCESS_ID_LIST = _JOBOBJECT_BASIC_PROCESS_ID_LIST;
  215.   {$EXTERNALSYM JOBOBJECT_BASIC_PROCESS_ID_LIST}
  216.   TJobObjectBasicProcessIdList = JOBOBJECT_BASIC_PROCESS_ID_LIST;
  217.   PJobObjectBasicProcessIdList = PJOBOBJECT_BASIC_PROCESS_ID_LIST;
  219.   PJOBOBJECT_BASIC_UI_RESTRICTIONS = ^JOBOBJECT_BASIC_UI_RESTRICTIONS;
  220.   {$EXTERNALSYM PJOBOBJECT_BASIC_UI_RESTRICTIONS}
  221.   _JOBOBJECT_BASIC_UI_RESTRICTIONS = record
  222.     UIRestrictionsClass: DWORD;
  223.   end;
  224.   {$EXTERNALSYM _JOBOBJECT_BASIC_UI_RESTRICTIONS}
  225.   JOBOBJECT_BASIC_UI_RESTRICTIONS = _JOBOBJECT_BASIC_UI_RESTRICTIONS;
  226.   {$EXTERNALSYM JOBOBJECT_BASIC_UI_RESTRICTIONS}
  227.   TJobObjectBasicUiRestrictions = JOBOBJECT_BASIC_UI_RESTRICTIONS;
  228.   PJobObjectBasicUiRestrictions = PJOBOBJECT_BASIC_UI_RESTRICTIONS;
  230.   PJOBOBJECT_SECURITY_LIMIT_INFORMATION = ^JOBOBJECT_SECURITY_LIMIT_INFORMATION;
  231.   {$EXTERNALSYM PJOBOBJECT_SECURITY_LIMIT_INFORMATION}
  232.   _JOBOBJECT_SECURITY_LIMIT_INFORMATION = record
  233.     SecurityLimitFlags : DWORD;
  234.     JobToken : THandle;
  235.     SidsToDisable : PTOKEN_GROUPS;
  236.     PrivilegesToDelete : PTOKEN_PRIVILEGES;
  237.     RestrictedSids : PTOKEN_GROUPS;
  238.   end;
  239.   {$EXTERNALSYM _JOBOBJECT_SECURITY_LIMIT_INFORMATION}
  240.   JOBOBJECT_SECURITY_LIMIT_INFORMATION = _JOBOBJECT_SECURITY_LIMIT_INFORMATION;
  241.   {$EXTERNALSYM JOBOBJECT_SECURITY_LIMIT_INFORMATION}
  242.   TJobObjectSecurityLimitInformation = JOBOBJECT_SECURITY_LIMIT_INFORMATION;
  243.   PJobObjectSecurityLimitInformation = PJOBOBJECT_SECURITY_LIMIT_INFORMATION;
  245.   PJOBOBJECT_END_OF_JOB_TIME_INFORMATION = ^JOBOBJECT_END_OF_JOB_TIME_INFORMATION;
  246.   {$EXTERNALSYM PJOBOBJECT_END_OF_JOB_TIME_INFORMATION}
  247.   _JOBOBJECT_END_OF_JOB_TIME_INFORMATION = record
  248.     EndOfJobTimeAction: DWORD;
  249.   end;
  250.   {$EXTERNALSYM _JOBOBJECT_END_OF_JOB_TIME_INFORMATION}
  251.   JOBOBJECT_END_OF_JOB_TIME_INFORMATION = _JOBOBJECT_END_OF_JOB_TIME_INFORMATION;
  252.   {$EXTERNALSYM JOBOBJECT_END_OF_JOB_TIME_INFORMATION}
  253.   TJobObjectEndOfJobTimeInformation = JOBOBJECT_END_OF_JOB_TIME_INFORMATION;
  254.   PJobObjectEndOfJobTimeInformation = PJOBOBJECT_END_OF_JOB_TIME_INFORMATION;
  256.   PJOBOBJECT_ASSOCIATE_COMPLETION_PORT = ^JOBOBJECT_ASSOCIATE_COMPLETION_PORT;
  257.   {$EXTERNALSYM PJOBOBJECT_ASSOCIATE_COMPLETION_PORT}
  258.   _JOBOBJECT_ASSOCIATE_COMPLETION_PORT = record
  259.     CompletionKey: Pointer;
  260.     CompletionPort: THandle;
  261.   end;
  262.   {$EXTERNALSYM _JOBOBJECT_ASSOCIATE_COMPLETION_PORT}
  263.   JOBOBJECT_ASSOCIATE_COMPLETION_PORT = _JOBOBJECT_ASSOCIATE_COMPLETION_PORT;
  264.   {$EXTERNALSYM JOBOBJECT_ASSOCIATE_COMPLETION_PORT}
  265.   TJobObjectAssociateCompletionPort = JOBOBJECT_ASSOCIATE_COMPLETION_PORT;
  266.   PJobObjectAssociateCompletionPort = PJOBOBJECT_ASSOCIATE_COMPLETION_PORT;
  268.   PJOBOBJECT_BASIC_AND_IO_ACCOUNTING_INFORMATION = ^JOBOBJECT_BASIC_AND_IO_ACCOUNTING_INFORMATION;
  269.   {$EXTERNALSYM PJOBOBJECT_BASIC_AND_IO_ACCOUNTING_INFORMATION}
  270.   _JOBOBJECT_BASIC_AND_IO_ACCOUNTING_INFORMATION = record
  271.     BasicInfo: JOBOBJECT_BASIC_ACCOUNTING_INFORMATION;
  272.     IoInfo: IO_COUNTERS;
  273.   end;
  274.   {$EXTERNALSYM _JOBOBJECT_BASIC_AND_IO_ACCOUNTING_INFORMATION}
  275.   JOBOBJECT_BASIC_AND_IO_ACCOUNTING_INFORMATION = _JOBOBJECT_BASIC_AND_IO_ACCOUNTING_INFORMATION;
  276.   {$EXTERNALSYM JOBOBJECT_BASIC_AND_IO_ACCOUNTING_INFORMATION}
  277.   TJobObjectBasicAndIoAccountingInformation = JOBOBJECT_BASIC_AND_IO_ACCOUNTING_INFORMATION;
  278.   PJobObjectBasicAndIoAccountingInformation = PJOBOBJECT_BASIC_AND_IO_ACCOUNTING_INFORMATION;
  280.   _JOBOBJECT_JOBSET_INFORMATION = record
  281.     MemberLevel: DWORD;
  282.   end;
  283.   {$EXTERNALSYM _JOBOBJECT_JOBSET_INFORMATION}
  284.   JOBOBJECT_JOBSET_INFORMATION = _JOBOBJECT_JOBSET_INFORMATION;
  285.   {$EXTERNALSYM JOBOBJECT_JOBSET_INFORMATION}
  286.   PJOBOBJECT_JOBSET_INFORMATION = ^JOBOBJECT_JOBSET_INFORMATION;
  287.   {$EXTERNALSYM PJOBOBJECT_JOBSET_INFORMATION}
  288.   TJobObjectSetInformation = JOBOBJECT_JOBSET_INFORMATION;
  289.   PJobObjectSetInformation = PJOBOBJECT_JOBSET_INFORMATION;  
  291. const
  292.   JOB_OBJECT_TERMINATE_AT_END_OF_JOB = 0;
  293.   {$EXTERNALSYM JOB_OBJECT_TERMINATE_AT_END_OF_JOB}
  294.   JOB_OBJECT_POST_AT_END_OF_JOB      = 1;
  295.   {$EXTERNALSYM JOB_OBJECT_POST_AT_END_OF_JOB}
  297. //
  298. // Completion Port Messages for job objects
  299. //
  300. // These values are returned via the lpNumberOfBytesTransferred parameter
  301. //
  303.   JOB_OBJECT_MSG_END_OF_JOB_TIME       = 1;
  304.   {$EXTERNALSYM JOB_OBJECT_MSG_END_OF_JOB_TIME}
  305.   JOB_OBJECT_MSG_END_OF_PROCESS_TIME   = 2;
  306.   {$EXTERNALSYM JOB_OBJECT_MSG_END_OF_PROCESS_TIME}
  307.   JOB_OBJECT_MSG_ACTIVE_PROCESS_LIMIT  = 3;
  308.   {$EXTERNALSYM JOB_OBJECT_MSG_ACTIVE_PROCESS_LIMIT}
  309.   JOB_OBJECT_MSG_ACTIVE_PROCESS_ZERO   = 4;
  310.   {$EXTERNALSYM JOB_OBJECT_MSG_ACTIVE_PROCESS_ZERO}
  311.   JOB_OBJECT_MSG_NEW_PROCESS           = 6;
  312.   {$EXTERNALSYM JOB_OBJECT_MSG_NEW_PROCESS}
  313.   JOB_OBJECT_MSG_EXIT_PROCESS          = 7;
  314.   {$EXTERNALSYM JOB_OBJECT_MSG_EXIT_PROCESS}
  315.   JOB_OBJECT_MSG_ABNORMAL_EXIT_PROCESS = 8;
  316.   {$EXTERNALSYM JOB_OBJECT_MSG_ABNORMAL_EXIT_PROCESS}
  317.   JOB_OBJECT_MSG_PROCESS_MEMORY_LIMIT  = 9;
  318.   {$EXTERNALSYM JOB_OBJECT_MSG_PROCESS_MEMORY_LIMIT}
  319.   JOB_OBJECT_MSG_JOB_MEMORY_LIMIT      = 10;
  320.   {$EXTERNALSYM JOB_OBJECT_MSG_JOB_MEMORY_LIMIT}
  322. //
  323. // Basic Limits
  324. //
  326.   JOB_OBJECT_LIMIT_WORKINGSET        = $00000001;
  327.   {$EXTERNALSYM JOB_OBJECT_LIMIT_WORKINGSET}
  328.   JOB_OBJECT_LIMIT_PROCESS_TIME      = $00000002;
  329.   {$EXTERNALSYM JOB_OBJECT_LIMIT_PROCESS_TIME}
  330.   JOB_OBJECT_LIMIT_JOB_TIME          = $00000004;
  331.   {$EXTERNALSYM JOB_OBJECT_LIMIT_JOB_TIME}
  332.   JOB_OBJECT_LIMIT_ACTIVE_PROCESS    = $00000008;
  333.   {$EXTERNALSYM JOB_OBJECT_LIMIT_ACTIVE_PROCESS}
  334.   JOB_OBJECT_LIMIT_AFFINITY          = $00000010;
  335.   {$EXTERNALSYM JOB_OBJECT_LIMIT_AFFINITY}
  336.   JOB_OBJECT_LIMIT_PRIORITY_CLASS    = $00000020;
  337.   {$EXTERNALSYM JOB_OBJECT_LIMIT_PRIORITY_CLASS}
  338.   JOB_OBJECT_LIMIT_PRESERVE_JOB_TIME = $00000040;
  339.   {$EXTERNALSYM JOB_OBJECT_LIMIT_PRESERVE_JOB_TIME}
  340.   JOB_OBJECT_LIMIT_SCHEDULING_CLASS  = $00000080;
  341.   {$EXTERNALSYM JOB_OBJECT_LIMIT_SCHEDULING_CLASS}
  343. //
  344. // Extended Limits
  345. //
  347.   JOB_OBJECT_LIMIT_PROCESS_MEMORY             = $00000100;
  348.   {$EXTERNALSYM JOB_OBJECT_LIMIT_PROCESS_MEMORY}
  349.   JOB_OBJECT_LIMIT_JOB_MEMORY                 = $00000200;
  350.   {$EXTERNALSYM JOB_OBJECT_LIMIT_JOB_MEMORY}
  351.   JOB_OBJECT_LIMIT_DIE_ON_UNHANDLED_EXCEPTION = $00000400;
  352.   {$EXTERNALSYM JOB_OBJECT_LIMIT_DIE_ON_UNHANDLED_EXCEPTION}
  353.   JOB_OBJECT_LIMIT_BREAKAWAY_OK               = $00000800;
  354.   {$EXTERNALSYM JOB_OBJECT_LIMIT_BREAKAWAY_OK}
  355.   JOB_OBJECT_LIMIT_SILENT_BREAKAWAY_OK        = $00001000;
  356.   {$EXTERNALSYM JOB_OBJECT_LIMIT_SILENT_BREAKAWAY_OK}
  357.   JOB_OBJECT_LIMIT_KILL_ON_JOB_CLOSE          = $00002000;
  358.   {$EXTERNALSYM JOB_OBJECT_LIMIT_KILL_ON_JOB_CLOSE}
  360.   JOB_OBJECT_LIMIT_RESERVED2 = $00004000;
  361.   {$EXTERNALSYM JOB_OBJECT_LIMIT_RESERVED2}
  362.   JOB_OBJECT_LIMIT_RESERVED3 = $00008000;
  363.   {$EXTERNALSYM JOB_OBJECT_LIMIT_RESERVED3}
  364.   JOB_OBJECT_LIMIT_RESERVED4 = $00010000;
  365.   {$EXTERNALSYM JOB_OBJECT_LIMIT_RESERVED4}
  366.   JOB_OBJECT_LIMIT_RESERVED5 = $00020000;
  367.   {$EXTERNALSYM JOB_OBJECT_LIMIT_RESERVED5}
  368.   JOB_OBJECT_LIMIT_RESERVED6 = $00040000;
  369.   {$EXTERNALSYM JOB_OBJECT_LIMIT_RESERVED6}
  371.   JOB_OBJECT_LIMIT_VALID_FLAGS = $0007ffff;
  372.   {$EXTERNALSYM JOB_OBJECT_LIMIT_VALID_FLAGS}
  374.   JOB_OBJECT_BASIC_LIMIT_VALID_FLAGS    = $000000ff;
  375.   {$EXTERNALSYM JOB_OBJECT_BASIC_LIMIT_VALID_FLAGS}
  376.   JOB_OBJECT_EXTENDED_LIMIT_VALID_FLAGS = $00003fff;
  377.   {$EXTERNALSYM JOB_OBJECT_EXTENDED_LIMIT_VALID_FLAGS}
  378.   JOB_OBJECT_RESERVED_LIMIT_VALID_FLAGS = $0007ffff;
  379.   {$EXTERNALSYM JOB_OBJECT_RESERVED_LIMIT_VALID_FLAGS}
  381. //
  382. // UI restrictions for jobs
  383. //
  385.   JOB_OBJECT_UILIMIT_NONE = $00000000;
  386.   {$EXTERNALSYM JOB_OBJECT_UILIMIT_NONE}
  388.   JOB_OBJECT_UILIMIT_HANDLES          = $00000001;
  389.   {$EXTERNALSYM JOB_OBJECT_UILIMIT_HANDLES}
  390.   JOB_OBJECT_UILIMIT_READCLIPBOARD    = $00000002;
  391.   {$EXTERNALSYM JOB_OBJECT_UILIMIT_READCLIPBOARD}
  392.   JOB_OBJECT_UILIMIT_WRITECLIPBOARD   = $00000004;
  393.   {$EXTERNALSYM JOB_OBJECT_UILIMIT_WRITECLIPBOARD}
  394.   JOB_OBJECT_UILIMIT_SYSTEMPARAMETERS = $00000008;
  395.   {$EXTERNALSYM JOB_OBJECT_UILIMIT_SYSTEMPARAMETERS}
  396.   JOB_OBJECT_UILIMIT_DISPLAYSETTINGS  = $00000010;
  397.   {$EXTERNALSYM JOB_OBJECT_UILIMIT_DISPLAYSETTINGS}
  398.   JOB_OBJECT_UILIMIT_GLOBALATOMS      = $00000020;
  399.   {$EXTERNALSYM JOB_OBJECT_UILIMIT_GLOBALATOMS}
  400.   JOB_OBJECT_UILIMIT_DESKTOP          = $00000040;
  401.   {$EXTERNALSYM JOB_OBJECT_UILIMIT_DESKTOP}
  402.   JOB_OBJECT_UILIMIT_EXITWINDOWS      = $00000080;
  403.   {$EXTERNALSYM JOB_OBJECT_UILIMIT_EXITWINDOWS}
  405.   JOB_OBJECT_UILIMIT_ALL = $000000FF;
  406.   {$EXTERNALSYM JOB_OBJECT_UILIMIT_ALL}
  408.   JOB_OBJECT_UI_VALID_FLAGS = $000000FF;
  409.   {$EXTERNALSYM JOB_OBJECT_UI_VALID_FLAGS}
  411.   JOB_OBJECT_SECURITY_NO_ADMIN         = $00000001;
  412.   {$EXTERNALSYM JOB_OBJECT_SECURITY_NO_ADMIN}
  413.   JOB_OBJECT_SECURITY_RESTRICTED_TOKEN = $00000002;
  414.   {$EXTERNALSYM JOB_OBJECT_SECURITY_RESTRICTED_TOKEN}
  415.   JOB_OBJECT_SECURITY_ONLY_TOKEN       = $00000004;
  416.   {$EXTERNALSYM JOB_OBJECT_SECURITY_ONLY_TOKEN}
  417.   JOB_OBJECT_SECURITY_FILTER_TOKENS    = $00000008;
  418.   {$EXTERNALSYM JOB_OBJECT_SECURITY_FILTER_TOKENS}
  420.   JOB_OBJECT_SECURITY_VALID_FLAGS = $0000000f;
  421.   {$EXTERNALSYM JOB_OBJECT_SECURITY_VALID_FLAGS}
  423. type
  424.   _JOBOBJECTINFOCLASS = (
  425.     JobObjectInfoClassPadding0,
  426.     JobObjectBasicAccountingInformation,
  427.     JobObjectBasicLimitInformation,
  428.     JobObjectBasicProcessIdList,
  429.     JobObjectBasicUIRestrictions,
  430.     JobObjectSecurityLimitInformation,
  431.     JobObjectEndOfJobTimeInformation,
  432.     JobObjectAssociateCompletionPortInformation,
  433.     JobObjectBasicAndIoAccountingInformation,
  434.     JobObjectExtendedLimitInformation,
  435.     JobObjectJobSetInformation,
  436.     MaxJobObjectInfoClass);
  437.   {$EXTERNALSYM _JOBOBJECTINFOCLASS}
  438.   JOBOBJECTINFOCLASS = _JOBOBJECTINFOCLASS;
  439.   {$EXTERNALSYM JOBOBJECTINFOCLASS}
  440.   TJobObjectInfoClass = JOBOBJECTINFOCLASS;
  442. const
  443.   EVENT_MODIFY_STATE = $0002;
  444.   {$EXTERNALSYM EVENT_MODIFY_STATE}
  445.   EVENT_ALL_ACCESS   = (STANDARD_RIGHTS_REQUIRED or SYNCHRONIZE or $3);
  446.   {$EXTERNALSYM EVENT_ALL_ACCESS}
  447.   MUTANT_QUERY_STATE = $0001;
  448.   {$EXTERNALSYM MUTANT_QUERY_STATE}
  450.   MUTANT_ALL_ACCESS      = (STANDARD_RIGHTS_REQUIRED or SYNCHRONIZE or MUTANT_QUERY_STATE);
  451.   {$EXTERNALSYM MUTANT_ALL_ACCESS}
  452.   SEMAPHORE_MODIFY_STATE = $0002;
  453.   {$EXTERNALSYM SEMAPHORE_MODIFY_STATE}
  454.   SEMAPHORE_ALL_ACCESS   = (STANDARD_RIGHTS_REQUIRED or SYNCHRONIZE or $3);
  455.   {$EXTERNALSYM SEMAPHORE_ALL_ACCESS}
  457. //
  458. // Timer Specific Access Rights.
  459. //
  461.   TIMER_QUERY_STATE  = $0001;
  462.   {$EXTERNALSYM TIMER_QUERY_STATE}
  463.   TIMER_MODIFY_STATE = $0002;
  464.   {$EXTERNALSYM TIMER_MODIFY_STATE}
  466.   TIMER_ALL_ACCESS = (STANDARD_RIGHTS_REQUIRED or SYNCHRONIZE or TIMER_QUERY_STATE or TIMER_MODIFY_STATE);
  467.   {$EXTERNALSYM TIMER_ALL_ACCESS}
  469.   TIME_ZONE_ID_UNKNOWN  = 0;
  470.   {$EXTERNALSYM TIME_ZONE_ID_UNKNOWN}
  471.   TIME_ZONE_ID_STANDARD = 1;
  472.   {$EXTERNALSYM TIME_ZONE_ID_STANDARD}
  473.   TIME_ZONE_ID_DAYLIGHT = 2;
  474.   {$EXTERNALSYM TIME_ZONE_ID_DAYLIGHT}
  476. type
  477.   _LOGICAL_PROCESSOR_RELATIONSHIP = (RelationProcessorCore, RelationNumaNode);
  478.   {$EXTERNALSYM _LOGICAL_PROCESSOR_RELATIONSHIP}
  479.   LOGICAL_PROCESSOR_RELATIONSHIP = _LOGICAL_PROCESSOR_RELATIONSHIP;
  480.   {$EXTERNALSYM LOGICAL_PROCESSOR_RELATIONSHIP}
  481.   TLogicalProcessorRelationship = LOGICAL_PROCESSOR_RELATIONSHIP;
  483. const
  484.   LTP_PC_SMT = $1;
  485.   {$EXTERNALSYM LTP_PC_SMT}
  487. type
  488.   _SYSTEM_LOGICAL_PROCESSOR_INFORMATION = record
  489.     ProcessorMask: ULONG_PTR;
  490.     Relationship: LOGICAL_PROCESSOR_RELATIONSHIP;
  491.     case Integer of
  492.       0: (Flags: BYTE); // ProcessorCore
  493.       1: (NodeNumber: DWORD); // NumaNode
  494.       2: (Reserved: array [0..1] of ULONGLONG);
  495.   end;
  496.   {$EXTERNALSYM _SYSTEM_LOGICAL_PROCESSOR_INFORMATION}
  497.   SYSTEM_LOGICAL_PROCESSOR_INFORMATION = _SYSTEM_LOGICAL_PROCESSOR_INFORMATION;
  498.   {$EXTERNALSYM SYSTEM_LOGICAL_PROCESSOR_INFORMATION}
  499.   PSYSTEM_LOGICAL_PROCESSOR_INFORMATION = ^SYSTEM_LOGICAL_PROCESSOR_INFORMATION;
  500.   TSystemLogicalProcessorInformation = SYSTEM_LOGICAL_PROCESSOR_INFORMATION;
  501.   PSystemLogicalProcessorInformation = PSYSTEM_LOGICAL_PROCESSOR_INFORMATION;  
  503. const
  504.   PROCESSOR_INTEL_386     = 386;
  505.   {$EXTERNALSYM PROCESSOR_INTEL_386}
  506.   PROCESSOR_INTEL_486     = 486;
  507.   {$EXTERNALSYM PROCESSOR_INTEL_486}
  508.   PROCESSOR_INTEL_PENTIUM = 586;
  509.   {$EXTERNALSYM PROCESSOR_INTEL_PENTIUM}
  510.   PROCESSOR_INTEL_IA64    = 2200;
  511.   {$EXTERNALSYM PROCESSOR_INTEL_IA64}
  512.   PROCESSOR_AMD_X8664     = 8664;
  513.   {$EXTERNALSYM PROCESSOR_AMD_X8664}
  514.   PROCESSOR_MIPS_R4000    = 4000; // incl R4101 & R3910 for Windows CE
  515.   {$EXTERNALSYM PROCESSOR_MIPS_R4000}
  516.   PROCESSOR_ALPHA_21064   = 21064;
  517.   {$EXTERNALSYM PROCESSOR_ALPHA_21064}
  518.   PROCESSOR_PPC_601       = 601;
  519.   {$EXTERNALSYM PROCESSOR_PPC_601}
  520.   PROCESSOR_PPC_603       = 603;
  521.   {$EXTERNALSYM PROCESSOR_PPC_603}
  522.   PROCESSOR_PPC_604       = 604;
  523.   {$EXTERNALSYM PROCESSOR_PPC_604}
  524.   PROCESSOR_PPC_620       = 620;
  525.   {$EXTERNALSYM PROCESSOR_PPC_620}
  526.   PROCESSOR_HITACHI_SH3   = 10003; // Windows CE
  527.   {$EXTERNALSYM PROCESSOR_HITACHI_SH3}
  528.   PROCESSOR_HITACHI_SH3E  = 10004; // Windows CE
  529.   {$EXTERNALSYM PROCESSOR_HITACHI_SH3E}
  530.   PROCESSOR_HITACHI_SH4   = 10005; // Windows CE
  531.   {$EXTERNALSYM PROCESSOR_HITACHI_SH4}
  532.   PROCESSOR_MOTOROLA_821  = 821; // Windows CE
  533.   {$EXTERNALSYM PROCESSOR_MOTOROLA_821}
  534.   PROCESSOR_SHx_SH3       = 103; // Windows CE
  535.   {$EXTERNALSYM PROCESSOR_SHx_SH3}
  536.   PROCESSOR_SHx_SH4       = 104; // Windows CE
  537.   {$EXTERNALSYM PROCESSOR_SHx_SH4}
  538.   PROCESSOR_STRONGARM     = 2577; // Windows CE - 0xA11
  539.   {$EXTERNALSYM PROCESSOR_STRONGARM}
  540.   PROCESSOR_ARM720        = 1824; // Windows CE - 0x720
  541.   {$EXTERNALSYM PROCESSOR_ARM720}
  542.   PROCESSOR_ARM820        = 2080; // Windows CE - 0x820
  543.   {$EXTERNALSYM PROCESSOR_ARM820}
  544.   PROCESSOR_ARM920        = 2336; // Windows CE - 0x920
  545.   {$EXTERNALSYM PROCESSOR_ARM920}
  546.   PROCESSOR_ARM_7TDMI     = 70001; // Windows CE
  547.   {$EXTERNALSYM PROCESSOR_ARM_7TDMI}
  548.   PROCESSOR_OPTIL         = $494f; // MSIL
  549.   {$EXTERNALSYM PROCESSOR_OPTIL}
  551.   PROCESSOR_ARCHITECTURE_INTEL   = 0;
  552.   {$EXTERNALSYM PROCESSOR_ARCHITECTURE_INTEL}
  553.   PROCESSOR_ARCHITECTURE_MIPS    = 1;
  554.   {$EXTERNALSYM PROCESSOR_ARCHITECTURE_MIPS}
  555.   PROCESSOR_ARCHITECTURE_ALPHA   = 2;
  556.   {$EXTERNALSYM PROCESSOR_ARCHITECTURE_ALPHA}
  557.   PROCESSOR_ARCHITECTURE_PPC     = 3;
  558.   {$EXTERNALSYM PROCESSOR_ARCHITECTURE_PPC}
  559.   PROCESSOR_ARCHITECTURE_SHX     = 4;
  560.   {$EXTERNALSYM PROCESSOR_ARCHITECTURE_SHX}
  561.   PROCESSOR_ARCHITECTURE_ARM     = 5;
  562.   {$EXTERNALSYM PROCESSOR_ARCHITECTURE_ARM}
  563.   PROCESSOR_ARCHITECTURE_IA64    = 6;
  564.   {$EXTERNALSYM PROCESSOR_ARCHITECTURE_IA64}
  565.   PROCESSOR_ARCHITECTURE_ALPHA64 = 7;
  566.   {$EXTERNALSYM PROCESSOR_ARCHITECTURE_ALPHA64}
  567.   PROCESSOR_ARCHITECTURE_MSIL    = 8;
  568.   {$EXTERNALSYM PROCESSOR_ARCHITECTURE_MSIL}
  569.   PROCESSOR_ARCHITECTURE_AMD64         = 9;
  570.   {$EXTERNALSYM PROCESSOR_ARCHITECTURE_AMD64}
  571.   PROCESSOR_ARCHITECTURE_IA32_ON_WIN64 = 10;
  572.   {$EXTERNALSYM PROCESSOR_ARCHITECTURE_IA32_ON_WIN64}
  574.   PROCESSOR_ARCHITECTURE_UNKNOWN = $FFFF;
  575.   {$EXTERNALSYM PROCESSOR_ARCHITECTURE_UNKNOWN}
  577.   PF_FLOATING_POINT_PRECISION_ERRATA = 0;
  578.   {$EXTERNALSYM PF_FLOATING_POINT_PRECISION_ERRATA}
  579.   PF_FLOATING_POINT_EMULATED         = 1;
  580.   {$EXTERNALSYM PF_FLOATING_POINT_EMULATED}
  581.   PF_COMPARE_EXCHANGE_DOUBLE         = 2;
  582.   {$EXTERNALSYM PF_COMPARE_EXCHANGE_DOUBLE}
  583.   PF_MMX_INSTRUCTIONS_AVAILABLE      = 3;
  584.   {$EXTERNALSYM PF_MMX_INSTRUCTIONS_AVAILABLE}
  585.   PF_PPC_MOVEMEM_64BIT_OK            = 4;
  586.   {$EXTERNALSYM PF_PPC_MOVEMEM_64BIT_OK}
  587.   PF_ALPHA_BYTE_INSTRUCTIONS         = 5;
  588.   {$EXTERNALSYM PF_ALPHA_BYTE_INSTRUCTIONS}
  589.   PF_XMMI_INSTRUCTIONS_AVAILABLE     = 6;
  590.   {$EXTERNALSYM PF_XMMI_INSTRUCTIONS_AVAILABLE}
  591.   PF_3DNOW_INSTRUCTIONS_AVAILABLE    = 7;
  592.   {$EXTERNALSYM PF_3DNOW_INSTRUCTIONS_AVAILABLE}
  593.   PF_RDTSC_INSTRUCTION_AVAILABLE     = 8;
  594.   {$EXTERNALSYM PF_RDTSC_INSTRUCTION_AVAILABLE}
  595.   PF_PAE_ENABLED                     = 9;
  596.   {$EXTERNALSYM PF_PAE_ENABLED}
  597.   PF_XMMI64_INSTRUCTIONS_AVAILABLE   = 10;
  598.   {$EXTERNALSYM PF_XMMI64_INSTRUCTIONS_AVAILABLE}
  600. type
  601.   PMEMORY_BASIC_INFORMATION = ^MEMORY_BASIC_INFORMATION;
  602.   {$EXTERNALSYM PMEMORY_BASIC_INFORMATION}
  603.   _MEMORY_BASIC_INFORMATION = record
  604.     BaseAddress: Pointer;
  605.     AllocationBase: Pointer;
  606.     AllocationProtect: DWORD;
  607.     RegionSize: SIZE_T;
  608.     State: DWORD;
  609.     Protect: DWORD;
  610.     Type_: DWORD;
  611.   end;
  612.   {$EXTERNALSYM _MEMORY_BASIC_INFORMATION}
  613.   MEMORY_BASIC_INFORMATION = _MEMORY_BASIC_INFORMATION;
  614.   {$EXTERNALSYM MEMORY_BASIC_INFORMATION}
  615.   TMemoryBasicInformation = MEMORY_BASIC_INFORMATION;
  616.   PMemoryBasicInformation = PMEMORY_BASIC_INFORMATION;
  618.   PMEMORY_BASIC_INFORMATION32 = ^MEMORY_BASIC_INFORMATION32;
  619.   {$EXTERNALSYM PMEMORY_BASIC_INFORMATION32}
  620.   _MEMORY_BASIC_INFORMATION32 = record
  621.     BaseAddress: DWORD;
  622.     AllocationBase: DWORD;
  623.     AllocationProtect: DWORD;
  624.     RegionSize: DWORD;
  625.     State: DWORD;
  626.     Protect: DWORD;
  627.     Type_: DWORD;
  628.   end;
  629.   {$EXTERNALSYM _MEMORY_BASIC_INFORMATION32}
  630.   MEMORY_BASIC_INFORMATION32 = _MEMORY_BASIC_INFORMATION32;
  631.   {$EXTERNALSYM MEMORY_BASIC_INFORMATION32}
  632.   TMemoryBasicInformation32 = MEMORY_BASIC_INFORMATION32;
  633.   PMemoryBasicInformation32 = PMEMORY_BASIC_INFORMATION32;
  635.   PMEMORY_BASIC_INFORMATION64 = ^MEMORY_BASIC_INFORMATION64;
  636.   {$EXTERNALSYM PMEMORY_BASIC_INFORMATION64}
  637.   _MEMORY_BASIC_INFORMATION64 = record
  638.     BaseAddress: ULONGLONG;
  639.     AllocationBase: ULONGLONG;
  640.     AllocationProtect: DWORD;
  641.     __alignment1: DWORD;
  642.     RegionSize: ULONGLONG;
  643.     State: DWORD;
  644.     Protect: DWORD;
  645.     Type_: DWORD;
  646.     __alignment2: DWORD;
  647.   end;
  648.   {$EXTERNALSYM _MEMORY_BASIC_INFORMATION64}
  649.   MEMORY_BASIC_INFORMATION64 = _MEMORY_BASIC_INFORMATION64;
  650.   {$EXTERNALSYM MEMORY_BASIC_INFORMATION64}
  651.   TMemoryBasicInformation64 = MEMORY_BASIC_INFORMATION64;
  652.   PMemoryBasicInformation64 = PMEMORY_BASIC_INFORMATION64;
  654. const
  655.   SECTION_QUERY       = $0001;
  656.   {$EXTERNALSYM SECTION_QUERY}
  657.   SECTION_MAP_WRITE   = $0002;
  658.   {$EXTERNALSYM SECTION_MAP_WRITE}
  659.   SECTION_MAP_READ    = $0004;
  660.   {$EXTERNALSYM SECTION_MAP_READ}
  661.   SECTION_MAP_EXECUTE = $0008;
  662.   {$EXTERNALSYM SECTION_MAP_EXECUTE}
  663.   SECTION_EXTEND_SIZE = $0010;
  664.   {$EXTERNALSYM SECTION_EXTEND_SIZE}
  666.   SECTION_ALL_ACCESS = (STANDARD_RIGHTS_REQUIRED or SECTION_QUERY or
  667.     SECTION_MAP_WRITE or SECTION_MAP_READ or SECTION_MAP_EXECUTE or
  668.     SECTION_EXTEND_SIZE);
  669.   {$EXTERNALSYM SECTION_ALL_ACCESS}
  671.   PAGE_NOACCESS          = $01;
  672.   {$EXTERNALSYM PAGE_NOACCESS}
  673.   PAGE_READONLY          = $02;
  674.   {$EXTERNALSYM PAGE_READONLY}
  675.   PAGE_READWRITE         = $04;
  676.   {$EXTERNALSYM PAGE_READWRITE}
  677.   PAGE_WRITECOPY         = $08;
  678.   {$EXTERNALSYM PAGE_WRITECOPY}
  679.   PAGE_EXECUTE           = $10;
  680.   {$EXTERNALSYM PAGE_EXECUTE}
  681.   PAGE_EXECUTE_READ      = $20;
  682.   {$EXTERNALSYM PAGE_EXECUTE_READ}
  683.   PAGE_EXECUTE_READWRITE = $40;
  684.   {$EXTERNALSYM PAGE_EXECUTE_READWRITE}
  685.   PAGE_EXECUTE_WRITECOPY = $80;
  686.   {$EXTERNALSYM PAGE_EXECUTE_WRITECOPY}
  687.   PAGE_GUARD             = $100;
  688.   {$EXTERNALSYM PAGE_GUARD}
  689.   PAGE_NOCACHE           = $200;
  690.   {$EXTERNALSYM PAGE_NOCACHE}
  691.   PAGE_WRITECOMBINE      = $400;
  692.   {$EXTERNALSYM PAGE_WRITECOMBINE}
  693.   MEM_COMMIT             = $1000;
  694.   {$EXTERNALSYM MEM_COMMIT}
  695.   MEM_RESERVE            = $2000;
  696.   {$EXTERNALSYM MEM_RESERVE}
  697.   MEM_DECOMMIT           = $4000;
  698.   {$EXTERNALSYM MEM_DECOMMIT}
  699.   MEM_RELEASE            = $8000;
  700.   {$EXTERNALSYM MEM_RELEASE}
  701.   MEM_FREE               = $10000;
  702.   {$EXTERNALSYM MEM_FREE}
  703.   MEM_PRIVATE            = $20000;
  704.   {$EXTERNALSYM MEM_PRIVATE}
  705.   MEM_MAPPED             = $40000;
  706.   {$EXTERNALSYM MEM_MAPPED}
  707.   MEM_RESET              = $80000;
  708.   {$EXTERNALSYM MEM_RESET}
  709.   MEM_TOP_DOWN           = $100000;
  710.   {$EXTERNALSYM MEM_TOP_DOWN}
  711.   MEM_WRITE_WATCH        = $200000;
  712.   {$EXTERNALSYM MEM_WRITE_WATCH}
  713.   MEM_PHYSICAL           = $400000;
  714.   {$EXTERNALSYM MEM_PHYSICAL}
  715.   MEM_LARGE_PAGES        = $20000000;
  716.   {$EXTERNALSYM MEM_LARGE_PAGES}
  717.   MEM_4MB_PAGES          = DWORD($80000000);
  718.   {$EXTERNALSYM MEM_4MB_PAGES}
  719.   SEC_FILE               = $800000;
  720.   {$EXTERNALSYM SEC_FILE}
  721.   SEC_IMAGE              = $1000000;
  722.   {$EXTERNALSYM SEC_IMAGE}
  723.   SEC_RESERVE            = $4000000;
  724.   {$EXTERNALSYM SEC_RESERVE}
  725.   SEC_COMMIT             = DWORD($8000000);
  726.   {$EXTERNALSYM SEC_COMMIT}
  727.   SEC_NOCACHE            = $10000000;
  728.   {$EXTERNALSYM SEC_NOCACHE}
  729.   MEM_IMAGE              = SEC_IMAGE;
  730.   {$EXTERNALSYM MEM_IMAGE}
  731.   WRITE_WATCH_FLAG_RESET = $01;
  732.   {$EXTERNALSYM WRITE_WATCH_FLAG_RESET}
  734. //
  735. // Define access rights to files and directories
  736. //
  738. //
  739. // The FILE_READ_DATA and FILE_WRITE_DATA constants are also defined in
  740. // devioctl.h as FILE_READ_ACCESS and FILE_WRITE_ACCESS. The values for these
  741. // constants *MUST* always be in sync.
  742. // The values are redefined in devioctl.h because they must be available to
  743. // both DOS and NT.
  744. //
  746.   FILE_READ_DATA            = ($0001); // file & pipe
  747.   {$EXTERNALSYM FILE_READ_DATA}
  748.   FILE_LIST_DIRECTORY       = ($0001); // directory
  749.   {$EXTERNALSYM FILE_LIST_DIRECTORY}
  751.   FILE_WRITE_DATA           = ($0002); // file & pipe
  752.   {$EXTERNALSYM FILE_WRITE_DATA}
  753.   FILE_ADD_FILE             = ($0002); // directory
  754.   {$EXTERNALSYM FILE_ADD_FILE}
  756.   FILE_APPEND_DATA          = ($0004); // file
  757.   {$EXTERNALSYM FILE_APPEND_DATA}
  758.   FILE_ADD_SUBDIRECTORY     = ($0004); // directory
  759.   {$EXTERNALSYM FILE_ADD_SUBDIRECTORY}
  760.   FILE_CREATE_PIPE_INSTANCE = ($0004); // named pipe
  761.   {$EXTERNALSYM FILE_CREATE_PIPE_INSTANCE}
  763.   FILE_READ_EA = ($0008); // file & directory
  764.   {$EXTERNALSYM FILE_READ_EA}
  766.   FILE_WRITE_EA = ($0010); // file & directory
  767.   {$EXTERNALSYM FILE_WRITE_EA}
  769.   FILE_EXECUTE = ($0020); // file
  770.   {$EXTERNALSYM FILE_EXECUTE}
  771.   FILE_TRAVERSE = ($0020); // directory
  772.   {$EXTERNALSYM FILE_TRAVERSE}
  774.   FILE_DELETE_CHILD = ($0040); // directory
  775.   {$EXTERNALSYM FILE_DELETE_CHILD}
  777.   FILE_READ_ATTRIBUTES = ($0080); // all
  778.   {$EXTERNALSYM FILE_READ_ATTRIBUTES}
  780.   FILE_WRITE_ATTRIBUTES = ($0100); // all
  781.   {$EXTERNALSYM FILE_WRITE_ATTRIBUTES}
  783.   FILE_ALL_ACCESS = (STANDARD_RIGHTS_REQUIRED or SYNCHRONIZE or $1FF);
  784.   {$EXTERNALSYM FILE_ALL_ACCESS}
  786.   FILE_GENERIC_READ = (STANDARD_RIGHTS_READ or FILE_READ_DATA or
  787.     FILE_READ_ATTRIBUTES or FILE_READ_EA or SYNCHRONIZE);
  788.   {$EXTERNALSYM FILE_GENERIC_READ}
  790.   FILE_GENERIC_WRITE = (STANDARD_RIGHTS_WRITE or FILE_WRITE_DATA or
  791.     FILE_WRITE_ATTRIBUTES or FILE_WRITE_EA or FILE_APPEND_DATA or SYNCHRONIZE);
  792.   {$EXTERNALSYM FILE_GENERIC_WRITE}
  794.   FILE_GENERIC_EXECUTE = (STANDARD_RIGHTS_EXECUTE or FILE_READ_ATTRIBUTES or
  795.     FILE_EXECUTE or SYNCHRONIZE);
  796.   {$EXTERNALSYM FILE_GENERIC_EXECUTE}
  798.   FILE_SHARE_READ                    = $00000001;
  799.   {$EXTERNALSYM FILE_SHARE_READ}
  800.   FILE_SHARE_WRITE                   = $00000002;
  801.   {$EXTERNALSYM FILE_SHARE_WRITE}
  802.   FILE_SHARE_DELETE                  = $00000004;
  803.   {$EXTERNALSYM FILE_SHARE_DELETE}
  804.   FILE_ATTRIBUTE_READONLY            = $00000001;
  805.   {$EXTERNALSYM FILE_ATTRIBUTE_READONLY}
  806.   FILE_ATTRIBUTE_HIDDEN              = $00000002;
  807.   {$EXTERNALSYM FILE_ATTRIBUTE_HIDDEN}
  808.   FILE_ATTRIBUTE_SYSTEM              = $00000004;
  809.   {$EXTERNALSYM FILE_ATTRIBUTE_SYSTEM}
  810.   FILE_ATTRIBUTE_DIRECTORY           = $00000010;
  811.   {$EXTERNALSYM FILE_ATTRIBUTE_DIRECTORY}
  812.   FILE_ATTRIBUTE_ARCHIVE             = $00000020;
  813.   {$EXTERNALSYM FILE_ATTRIBUTE_ARCHIVE}
  814.   FILE_ATTRIBUTE_DEVICE              = $00000040;
  815.   {$EXTERNALSYM FILE_ATTRIBUTE_DEVICE}
  816.   FILE_ATTRIBUTE_NORMAL              = $00000080;
  817.   {$EXTERNALSYM FILE_ATTRIBUTE_NORMAL}
  818.   FILE_ATTRIBUTE_TEMPORARY           = $00000100;
  819.   {$EXTERNALSYM FILE_ATTRIBUTE_TEMPORARY}
  820.   FILE_ATTRIBUTE_SPARSE_FILE         = $00000200;
  821.   {$EXTERNALSYM FILE_ATTRIBUTE_SPARSE_FILE}
  822.   FILE_ATTRIBUTE_REPARSE_POINT       = $00000400;
  823.   {$EXTERNALSYM FILE_ATTRIBUTE_REPARSE_POINT}
  824.   FILE_ATTRIBUTE_COMPRESSED          = $00000800;
  825.   {$EXTERNALSYM FILE_ATTRIBUTE_COMPRESSED}
  826.   FILE_ATTRIBUTE_OFFLINE             = $00001000;
  827.   {$EXTERNALSYM FILE_ATTRIBUTE_OFFLINE}
  828.   FILE_ATTRIBUTE_NOT_CONTENT_INDEXED = $00002000;
  829.   {$EXTERNALSYM FILE_ATTRIBUTE_NOT_CONTENT_INDEXED}
  830.   FILE_ATTRIBUTE_ENCRYPTED           = $00004000;
  831.   {$EXTERNALSYM FILE_ATTRIBUTE_ENCRYPTED}
  832.   FILE_NOTIFY_CHANGE_FILE_NAME       = $00000001;
  833.   {$EXTERNALSYM FILE_NOTIFY_CHANGE_FILE_NAME}
  834.   FILE_NOTIFY_CHANGE_DIR_NAME        = $00000002;
  835.   {$EXTERNALSYM FILE_NOTIFY_CHANGE_DIR_NAME}
  836.   FILE_NOTIFY_CHANGE_ATTRIBUTES      = $00000004;
  837.   {$EXTERNALSYM FILE_NOTIFY_CHANGE_ATTRIBUTES}
  838.   FILE_NOTIFY_CHANGE_SIZE            = $00000008;
  839.   {$EXTERNALSYM FILE_NOTIFY_CHANGE_SIZE}
  840.   FILE_NOTIFY_CHANGE_LAST_WRITE      = $00000010;
  841.   {$EXTERNALSYM FILE_NOTIFY_CHANGE_LAST_WRITE}
  842.   FILE_NOTIFY_CHANGE_LAST_ACCESS     = $00000020;
  843.   {$EXTERNALSYM FILE_NOTIFY_CHANGE_LAST_ACCESS}
  844.   FILE_NOTIFY_CHANGE_CREATION        = $00000040;
  845.   {$EXTERNALSYM FILE_NOTIFY_CHANGE_CREATION}
  846.   FILE_NOTIFY_CHANGE_SECURITY        = $00000100;
  847.   {$EXTERNALSYM FILE_NOTIFY_CHANGE_SECURITY}
  848.   FILE_ACTION_ADDED                  = $00000001;
  849.   {$EXTERNALSYM FILE_ACTION_ADDED}
  850.   FILE_ACTION_REMOVED                = $00000002;
  851.   {$EXTERNALSYM FILE_ACTION_REMOVED}
  852.   FILE_ACTION_MODIFIED               = $00000003;
  853.   {$EXTERNALSYM FILE_ACTION_MODIFIED}
  854.   FILE_ACTION_RENAMED_OLD_NAME       = $00000004;
  855.   {$EXTERNALSYM FILE_ACTION_RENAMED_OLD_NAME}
  856.   FILE_ACTION_RENAMED_NEW_NAME       = $00000005;
  857.   {$EXTERNALSYM FILE_ACTION_RENAMED_NEW_NAME}
  858.   MAILSLOT_NO_MESSAGE                = DWORD(-1);
  859.   {$EXTERNALSYM MAILSLOT_NO_MESSAGE}
  860.   MAILSLOT_WAIT_FOREVER              = DWORD(-1);
  861.   {$EXTERNALSYM MAILSLOT_WAIT_FOREVER}
  862.   FILE_CASE_SENSITIVE_SEARCH         = $00000001;
  863.   {$EXTERNALSYM FILE_CASE_SENSITIVE_SEARCH}
  864.   FILE_CASE_PRESERVED_NAMES          = $00000002;
  865.   {$EXTERNALSYM FILE_CASE_PRESERVED_NAMES}
  866.   FILE_UNICODE_ON_DISK               = $00000004;
  867.   {$EXTERNALSYM FILE_UNICODE_ON_DISK}
  868.   FILE_PERSISTENT_ACLS               = $00000008;
  869.   {$EXTERNALSYM FILE_PERSISTENT_ACLS}
  870.   FILE_FILE_COMPRESSION              = $00000010;
  871.   {$EXTERNALSYM FILE_FILE_COMPRESSION}
  872.   FILE_VOLUME_QUOTAS                 = $00000020;
  873.   {$EXTERNALSYM FILE_VOLUME_QUOTAS}
  874.   FILE_SUPPORTS_SPARSE_FILES         = $00000040;
  875.   {$EXTERNALSYM FILE_SUPPORTS_SPARSE_FILES}
  876.   FILE_SUPPORTS_REPARSE_POINTS       = $00000080;
  877.   {$EXTERNALSYM FILE_SUPPORTS_REPARSE_POINTS}
  878.   FILE_SUPPORTS_REMOTE_STORAGE       = $00000100;
  879.   {$EXTERNALSYM FILE_SUPPORTS_REMOTE_STORAGE}
  880.   FILE_VOLUME_IS_COMPRESSED          = $00008000;
  881.   {$EXTERNALSYM FILE_VOLUME_IS_COMPRESSED}
  882.   FILE_SUPPORTS_OBJECT_IDS           = $00010000;
  883.   {$EXTERNALSYM FILE_SUPPORTS_OBJECT_IDS}
  884.   FILE_SUPPORTS_ENCRYPTION           = $00020000;
  885.   {$EXTERNALSYM FILE_SUPPORTS_ENCRYPTION}
  886.   FILE_NAMED_STREAMS                 = $00040000;
  887.   {$EXTERNALSYM FILE_NAMED_STREAMS}
  888.   FILE_READ_ONLY_VOLUME              = $00080000;
  889.   {$EXTERNALSYM FILE_READ_ONLY_VOLUME}
  891. //
  892. // Define the file notification information structure
  893. //
  895. type
  896.   PFILE_NOTIFY_INFORMATION = ^FILE_NOTIFY_INFORMATION;
  897.   {$EXTERNALSYM PFILE_NOTIFY_INFORMATION}
  898.   _FILE_NOTIFY_INFORMATION = record
  899.     NextEntryOffset: DWORD;
  900.     Action: DWORD;
  901.     FileNameLength: DWORD;
  902.     FileName: array [0..0] of WCHAR;
  903.   end;
  904.   {$EXTERNALSYM _FILE_NOTIFY_INFORMATION}
  905.   FILE_NOTIFY_INFORMATION = _FILE_NOTIFY_INFORMATION;
  906.   {$EXTERNALSYM FILE_NOTIFY_INFORMATION}
  907.   TFileNotifyInformation = FILE_NOTIFY_INFORMATION;
  908.   PFileNotifyInformation = PFILE_NOTIFY_INFORMATION;
  910. //
  911. // Define segement buffer structure for scatter/gather read/write.
  912. //
  914. type
  915.   PFILE_SEGMENT_ELEMENT = ^FILE_SEGMENT_ELEMENT;
  916.   {$EXTERNALSYM PFILE_SEGMENT_ELEMENT}
  917.   _FILE_SEGMENT_ELEMENT = record
  918.     case Integer of
  919.       0: (Buffer: PVOID64);
  920.       1: (Alignment: ULONGLONG);
  921.   end;
  922.   {$EXTERNALSYM _FILE_SEGMENT_ELEMENT}
  923.   FILE_SEGMENT_ELEMENT = _FILE_SEGMENT_ELEMENT;
  924.   {$EXTERNALSYM FILE_SEGMENT_ELEMENT}
  925.   TFileSegmentElement = FILE_SEGMENT_ELEMENT;
  926.   PFileSegmentElement = PFILE_SEGMENT_ELEMENT;
  928. //
  929. // The reparse GUID structure is used by all 3rd party layered drivers to
  930. // store data in a reparse point. For non-Microsoft tags, The GUID field
  931. // cannot be GUID_NULL.
  932. // The constraints on reparse tags are defined below.
  933. // Microsoft tags can also be used with this format of the reparse point buffer.
  934. //
  935.   TGenericReparseBuffer = record
  936.     DataBuffer: array [0..0] of BYTE;
  937.   end;
  939.   PREPARSE_GUID_DATA_BUFFER = ^REPARSE_GUID_DATA_BUFFER;
  940.   {$EXTERNALSYM PREPARSE_GUID_DATA_BUFFER}
  941.   _REPARSE_GUID_DATA_BUFFER = record
  942.     ReparseTag: DWORD;
  943.     ReparseDataLength: WORD;
  944.     Reserved: WORD;
  945.     ReparseGuid: GUID;
  946.     GenericReparseBuffer: TGenericReparseBuffer;
  947.   end;
  948.   {$EXTERNALSYM _REPARSE_GUID_DATA_BUFFER}
  949.   REPARSE_GUID_DATA_BUFFER = _REPARSE_GUID_DATA_BUFFER;
  950.   {$EXTERNALSYM REPARSE_GUID_DATA_BUFFER}
  951.   TReparseGuidDataBuffer = REPARSE_GUID_DATA_BUFFER;
  952.   PReparseGuidDataBuffer = PREPARSE_GUID_DATA_BUFFER;
  954. const
  955.   REPARSE_GUID_DATA_BUFFER_HEADER_SIZE = 24;
  956.   {$EXTERNALSYM REPARSE_GUID_DATA_BUFFER_HEADER_SIZE}
  957. //
  958. // Maximum allowed size of the reparse data.
  959. //
  961. const
  962.   MAXIMUM_REPARSE_DATA_BUFFER_SIZE = 16 * 1024;
  963.   {$EXTERNALSYM MAXIMUM_REPARSE_DATA_BUFFER_SIZE}
  965. //
  966. // Predefined reparse tags.
  967. // These tags need to avoid conflicting with IO_REMOUNT defined in ntosincio.h
  968. //
  970.   IO_REPARSE_TAG_RESERVED_ZERO = (0);
  971.   {$EXTERNALSYM IO_REPARSE_TAG_RESERVED_ZERO}
  972.   IO_REPARSE_TAG_RESERVED_ONE  = (1);
  973.   {$EXTERNALSYM IO_REPARSE_TAG_RESERVED_ONE}
  975. //
  976. // The value of the following constant needs to satisfy the following conditions:
  977. //  (1) Be at least as large as the largest of the reserved tags.
  978. //  (2) Be strictly smaller than all the tags in use.
  979. //
  981.   IO_REPARSE_TAG_RESERVED_RANGE = IO_REPARSE_TAG_RESERVED_ONE;
  982.   {$EXTERNALSYM IO_REPARSE_TAG_RESERVED_RANGE}
  984. //
  985. // The reparse tags are a DWORD. The 32 bits are laid out as follows:
  986. //
  987. //   3 3 2 2 2 2 2 2 2 2 2 2 1 1 1 1 1 1 1 1 1 1
  988. //   1 0 9 8 7 6 5 4 3 2 1 0 9 8 7 6 5 4 3 2 1 0 9 8 7 6 5 4 3 2 1 0
  989. //  +-+-+-+-+-----------------------+-------------------------------+
  990. //  |M|R|N|R|     Reserved bits     |       Reparse Tag Value       |
  991. //  +-+-+-+-+-----------------------+-------------------------------+
  992. //
  993. // M is the Microsoft bit. When set to 1, it denotes a tag owned by Microsoft.
  994. //   All ISVs must use a tag with a 0 in this position.
  995. //   Note: If a Microsoft tag is used by non-Microsoft software, the
  996. //   behavior is not defined.
  997. //
  998. // R is reserved.  Must be zero for non-Microsoft tags.
  999. //
  1000. // N is name surrogate. When set to 1, the file represents another named
  1001. //   entity in the system.
  1002. //
  1003. // The M and N bits are OR-able.
  1004. // The following macros check for the M and N bit values:
  1005. //
  1007. //
  1008. // Macro to determine whether a reparse point tag corresponds to a tag
  1009. // owned by Microsoft.
  1010. //
  1012. function IsReparseTagMicrosoft(Tag: ULONG): Boolean;
  1013. {$EXTERNALSYM IsReparseTagMicrosoft}
  1015. //
  1016. // Macro to determine whether a reparse point tag corresponds to a file
  1017. // that is to be displayed with the slow icon overlay.
  1018. //
  1020. function IsReparseTagHighLatency(Tag: ULONG): Boolean;
  1021. {$EXTERNALSYM IsReparseTagHighLatency}
  1023. //
  1024. // Macro to determine whether a reparse point tag is a name surrogate
  1025. //
  1027. function IsReparseTagNameSurrogate(Tag: ULONG): Boolean;
  1028. {$EXTERNALSYM IsReparseTagNameSurrogate}
  1030. const
  1031.   IO_REPARSE_TAG_MOUNT_POINT = DWORD($A0000003);
  1032.   {$EXTERNALSYM IO_REPARSE_TAG_MOUNT_POINT}
  1033.   IO_REPARSE_TAG_HSM         = DWORD($C0000004);
  1034.   {$EXTERNALSYM IO_REPARSE_TAG_HSM}
  1035.   IO_REPARSE_TAG_SIS         = DWORD($80000007);
  1036.   {$EXTERNALSYM IO_REPARSE_TAG_SIS}
  1037.   IO_REPARSE_TAG_DFS         = DWORD($8000000A);
  1038.   {$EXTERNALSYM IO_REPARSE_TAG_DFS}
  1039.   IO_REPARSE_TAG_FILTER_MANAGER = DWORD($8000000B);
  1040.   {$EXTERNALSYM IO_REPARSE_TAG_FILTER_MANAGER}
  1041.   IO_COMPLETION_MODIFY_STATE = $0002;
  1042.   {$EXTERNALSYM IO_COMPLETION_MODIFY_STATE}
  1043.   IO_COMPLETION_ALL_ACCESS   = DWORD(STANDARD_RIGHTS_REQUIRED or SYNCHRONIZE or $3);
  1044.   {$EXTERNALSYM IO_COMPLETION_ALL_ACCESS}
  1045.   DUPLICATE_CLOSE_SOURCE     = $00000001;
  1046.   {$EXTERNALSYM DUPLICATE_CLOSE_SOURCE}
  1047.   DUPLICATE_SAME_ACCESS      = $00000002;
  1048.   {$EXTERNALSYM DUPLICATE_SAME_ACCESS}
  1050. type
  1051.   _SYSTEM_POWER_STATE = (
  1052.     PowerSystemUnspecified,
  1053.     PowerSystemWorking,
  1054.     PowerSystemSleeping1,
  1055.     PowerSystemSleeping2,
  1056.     PowerSystemSleeping3,
  1057.     PowerSystemHibernate,
  1058.     PowerSystemShutdown,
  1059.     PowerSystemMaximum);
  1060.   {$EXTERNALSYM _SYSTEM_POWER_STATE}
  1061.   SYSTEM_POWER_STATE = _SYSTEM_POWER_STATE;
  1062.   {$EXTERNALSYM SYSTEM_POWER_STATE}
  1063.   PSYSTEM_POWER_STATE = ^SYSTEM_POWER_STATE;
  1064.   {$EXTERNALSYM PSYSTEM_POWER_STATE}
  1065.   TSystemPowerState = SYSTEM_POWER_STATE;
  1066.   PSystemPowerState = PSYSTEM_POWER_STATE;
  1068. const
  1069.   POWER_SYSTEM_MAXIMUM = 7;
  1070.   {$EXTERNALSYM POWER_SYSTEM_MAXIMUM}
  1072. type
  1073.   POWER_ACTION = (
  1074.     PowerActionNone,
  1075.     PowerActionReserved,
  1076.     PowerActionSleep,
  1077.     PowerActionHibernate,
  1078.     PowerActionShutdown,
  1079.     PowerActionShutdownReset,
  1080.     PowerActionShutdownOff,
  1081.     PowerActionWarmEject);
  1082.   {$EXTERNALSYM POWER_ACTION}
  1083.   PPOWER_ACTION = ^POWER_ACTION;
  1084.   {$EXTERNALSYM PPOWER_ACTION}
  1085.   TPowerAction = POWER_ACTION;
  1086.   PPowerAction = PPOWER_ACTION;
  1088.   _DEVICE_POWER_STATE = (
  1089.     PowerDeviceUnspecified,
  1090.     PowerDeviceD0,
  1091.     PowerDeviceD1,
  1092.     PowerDeviceD2,
  1093.     PowerDeviceD3,
  1094.     PowerDeviceMaximum);
  1095.   {$EXTERNALSYM _DEVICE_POWER_STATE}
  1096.   DEVICE_POWER_STATE = _DEVICE_POWER_STATE;
  1097.   {$EXTERNALSYM DEVICE_POWER_STATE}
  1098.   PDEVICE_POWER_STATE = ^DEVICE_POWER_STATE;
  1099.   {$EXTERNALSYM PDEVICE_POWER_STATE}
  1100.   TDevicePowerState = DEVICE_POWER_STATE;
  1101.   PDevicePowerState = PDEVICE_POWER_STATE;
  1103. const
  1104.   ES_SYSTEM_REQUIRED  = DWORD($00000001);
  1105.   {$EXTERNALSYM ES_SYSTEM_REQUIRED}
  1106.   ES_DISPLAY_REQUIRED = DWORD($00000002);
  1107.   {$EXTERNALSYM ES_DISPLAY_REQUIRED}
  1108.   ES_USER_PRESENT     = DWORD($00000004);
  1109.   {$EXTERNALSYM ES_USER_PRESENT}
  1110.   ES_CONTINUOUS       = DWORD($80000000);
  1111.   {$EXTERNALSYM ES_CONTINUOUS}
  1113. type
  1114.   EXECUTION_STATE = DWORD;
  1115.   {$EXTERNALSYM EXECUTION_STATE}
  1117.   LATENCY_TIME = (LT_DONT_CARE, LT_LOWEST_LATENCY);
  1118.   {$EXTERNALSYM LATENCY_TIME}
  1119.   TLatencyTime = LATENCY_TIME;
  1121. //-----------------------------------------------------------------------------
  1122. // Device Power Information
  1123. // Accessable via CM_Get_DevInst_Registry_Property_Ex(CM_DRP_DEVICE_POWER_DATA)
  1124. //-----------------------------------------------------------------------------
  1126. const
  1127.   PDCAP_D0_SUPPORTED           = $00000001;
  1128.   {$EXTERNALSYM PDCAP_D0_SUPPORTED}
  1129.   PDCAP_D1_SUPPORTED           = $00000002;
  1130.   {$EXTERNALSYM PDCAP_D1_SUPPORTED}
  1131.   PDCAP_D2_SUPPORTED           = $00000004;
  1132.   {$EXTERNALSYM PDCAP_D2_SUPPORTED}
  1133.   PDCAP_D3_SUPPORTED           = $00000008;
  1134.   {$EXTERNALSYM PDCAP_D3_SUPPORTED}
  1135.   PDCAP_WAKE_FROM_D0_SUPPORTED = $00000010;
  1136.   {$EXTERNALSYM PDCAP_WAKE_FROM_D0_SUPPORTED}
  1137.   PDCAP_WAKE_FROM_D1_SUPPORTED = $00000020;
  1138.   {$EXTERNALSYM PDCAP_WAKE_FROM_D1_SUPPORTED}
  1139.   PDCAP_WAKE_FROM_D2_SUPPORTED = $00000040;
  1140.   {$EXTERNALSYM PDCAP_WAKE_FROM_D2_SUPPORTED}
  1141.   PDCAP_WAKE_FROM_D3_SUPPORTED = $00000080;
  1142.   {$EXTERNALSYM PDCAP_WAKE_FROM_D3_SUPPORTED}
  1143.   PDCAP_WARM_EJECT_SUPPORTED   = $00000100;
  1144.   {$EXTERNALSYM PDCAP_WARM_EJECT_SUPPORTED}
  1146. type
  1147.   CM_Power_Data_s = record
  1148.     PD_Size: DWORD;
  1149.     PD_MostRecentPowerState: DEVICE_POWER_STATE;
  1150.     PD_Capabilities: DWORD;
  1151.     PD_D1Latency: DWORD;
  1152.     PD_D2Latency: DWORD;
  1153.     PD_D3Latency: DWORD;
  1154.     PD_PowerStateMapping: array [0..POWER_SYSTEM_MAXIMUM - 1] of DEVICE_POWER_STATE;
  1155.     PD_DeepestSystemWake: SYSTEM_POWER_STATE;
  1156.   end;
  1157.   {$EXTERNALSYM CM_Power_Data_s}
  1158.   CM_POWER_DATA = CM_Power_Data_s;
  1159.   {$EXTERNALSYM CM_POWER_DATA}
  1160.   PCM_POWER_DATA = ^CM_POWER_DATA;
  1161.   {$EXTERNALSYM PCM_POWER_DATA}
  1162.   TCmPowerData = CM_POWER_DATA;
  1163.   PCmPowerData = PCM_POWER_DATA;
  1165.   POWER_INFORMATION_LEVEL = (
  1166.     SystemPowerPolicyAc,
  1167.     SystemPowerPolicyDc,
  1168.     VerifySystemPolicyAc,
  1169.     VerifySystemPolicyDc,
  1170.     SystemPowerCapabilities,
  1171.     SystemBatteryState,
  1172.     SystemPowerStateHandler,
  1173.     ProcessorStateHandler,
  1174.     SystemPowerPolicyCurrent,
  1175.     AdministratorPowerPolicy,
  1176.     SystemReserveHiberFile,
  1177.     ProcessorInformation,
  1178.     SystemPowerInformation,
  1179.     ProcessorStateHandler2,
  1180.     LastWakeTime,                                   // Compare with KeQueryInterruptTime()
  1181.     LastSleepTime,                                  // Compare with KeQueryInterruptTime()
  1182.     SystemExecutionState,
  1183.     SystemPowerStateNotifyHandler,
  1184.     ProcessorPowerPolicyAc,
  1185.     ProcessorPowerPolicyDc,
  1186.     VerifyProcessorPowerPolicyAc,
  1187.     VerifyProcessorPowerPolicyDc,
  1188.     ProcessorPowerPolicyCurrent,
  1189.     SystemPowerStateLogging,
  1190.     SystemPowerLoggingEntry);
  1191.   {$EXTERNALSYM POWER_INFORMATION_LEVEL}
  1192.   TPowerInformationLevel = POWER_INFORMATION_LEVEL;
  1194. //
  1195. // System power manager capabilities
  1196. //
  1198.   BATTERY_REPORTING_SCALE = record
  1199.     Granularity: DWORD;
  1200.     Capacity: DWORD;
  1201.   end;
  1202.   {$EXTERNALSYM BATTERY_REPORTING_SCALE}
  1203.   PBATTERY_REPORTING_SCALE = ^BATTERY_REPORTING_SCALE;
  1204.   {$EXTERNALSYM PBATTERY_REPORTING_SCALE}
  1205.   TBatteryReportingScale = BATTERY_REPORTING_SCALE;
  1206.   PBatteryReportingScale = PBATTERY_REPORTING_SCALE;
  1208. // Power Policy Management interfaces
  1209. //
  1211.   PPOWER_ACTION_POLICY = ^POWER_ACTION_POLICY;
  1212.   {$EXTERNALSYM PPOWER_ACTION_POLICY}
  1213.   POWER_ACTION_POLICY = record
  1214.     Action: POWER_ACTION;
  1215.     Flags: DWORD;
  1216.     EventCode: DWORD;
  1217.   end;
  1218.   {$EXTERNALSYM POWER_ACTION_POLICY}
  1219.   TPowerActionPolicy = POWER_ACTION_POLICY;
  1220.   PPowerActionPolicy = PPOWER_ACTION_POLICY;
  1222. // POWER_ACTION_POLICY->Flags:
  1224. const
  1225.   POWER_ACTION_QUERY_ALLOWED  = $00000001;
  1226.   {$EXTERNALSYM POWER_ACTION_QUERY_ALLOWED}
  1227.   POWER_ACTION_UI_ALLOWED     = $00000002;
  1228.   {$EXTERNALSYM POWER_ACTION_UI_ALLOWED}
  1229.   POWER_ACTION_OVERRIDE_APPS  = $00000004;
  1230.   {$EXTERNALSYM POWER_ACTION_OVERRIDE_APPS}
  1231.   POWER_ACTION_LIGHTEST_FIRST = $10000000;
  1232.   {$EXTERNALSYM POWER_ACTION_LIGHTEST_FIRST}
  1233.   POWER_ACTION_LOCK_CONSOLE   = $20000000;
  1234.   {$EXTERNALSYM POWER_ACTION_LOCK_CONSOLE}
  1235.   POWER_ACTION_DISABLE_WAKES  = $40000000;
  1236.   {$EXTERNALSYM POWER_ACTION_DISABLE_WAKES}
  1237.   POWER_ACTION_CRITICAL       = DWORD($80000000);
  1238.   {$EXTERNALSYM POWER_ACTION_CRITICAL}
  1240. // POWER_ACTION_POLICY->EventCode flags
  1242.   POWER_LEVEL_USER_NOTIFY_TEXT  = $00000001;
  1243.   {$EXTERNALSYM POWER_LEVEL_USER_NOTIFY_TEXT}
  1244.   POWER_LEVEL_USER_NOTIFY_SOUND = $00000002;
  1245.   {$EXTERNALSYM POWER_LEVEL_USER_NOTIFY_SOUND}
  1246.   POWER_LEVEL_USER_NOTIFY_EXEC  = $00000004;
  1247.   {$EXTERNALSYM POWER_LEVEL_USER_NOTIFY_EXEC}
  1248.   POWER_USER_NOTIFY_BUTTON      = $00000008;
  1249.   {$EXTERNALSYM POWER_USER_NOTIFY_BUTTON}
  1250.   POWER_USER_NOTIFY_SHUTDOWN    = $00000010;
  1251.   {$EXTERNALSYM POWER_USER_NOTIFY_SHUTDOWN}
  1252.   POWER_FORCE_TRIGGER_RESET     = DWORD($80000000);
  1253.   {$EXTERNALSYM POWER_FORCE_TRIGGER_RESET}
  1255. // system battery drain policies
  1257. type
  1258.   PSYSTEM_POWER_LEVEL = ^SYSTEM_POWER_LEVEL;
  1259.   {$EXTERNALSYM PSYSTEM_POWER_LEVEL}
  1260.   SYSTEM_POWER_LEVEL = record
  1261.     Enable: BOOLEAN;
  1262.     Spare: array [0..3 - 1] of BYTE;
  1263.     BatteryLevel: DWORD;
  1264.     PowerPolicy: POWER_ACTION_POLICY;
  1265.     MinSystemState: SYSTEM_POWER_STATE;
  1266.   end;
  1267.   {$EXTERNALSYM SYSTEM_POWER_LEVEL}
  1268.   TSystemPowerLevel = SYSTEM_POWER_LEVEL;
  1269.   PSystemPowerLevel = PSYSTEM_POWER_LEVEL;
  1271. // Discharge policy constants
  1273. const
  1274.   NUM_DISCHARGE_POLICIES    = 4;
  1275.   {$EXTERNALSYM NUM_DISCHARGE_POLICIES}
  1276.   DISCHARGE_POLICY_CRITICAL = 0;
  1277.   {$EXTERNALSYM DISCHARGE_POLICY_CRITICAL}
  1278.   DISCHARGE_POLICY_LOW      = 1;
  1279.   {$EXTERNALSYM DISCHARGE_POLICY_LOW}
  1281. //
  1282. // Throttling policies
  1283. //
  1285.   PO_THROTTLE_NONE     = 0;
  1286.   {$EXTERNALSYM PO_THROTTLE_NONE}
  1287.   PO_THROTTLE_CONSTANT = 1;
  1288.   {$EXTERNALSYM PO_THROTTLE_CONSTANT}
  1289.   PO_THROTTLE_DEGRADE  = 2;
  1290.   {$EXTERNALSYM PO_THROTTLE_DEGRADE}
  1291.   PO_THROTTLE_ADAPTIVE = 3;
  1292.   {$EXTERNALSYM PO_THROTTLE_ADAPTIVE}
  1293.   PO_THROTTLE_MAXIMUM  = 4; // not a policy, just a limit
  1294.   {$EXTERNALSYM PO_THROTTLE_MAXIMUM}
  1296. // system power policies
  1298. type
  1299.   PSYSTEM_POWER_POLICY = ^SYSTEM_POWER_POLICY;
  1300.   {$EXTERNALSYM PSYSTEM_POWER_POLICY}
  1301.   _SYSTEM_POWER_POLICY = record
  1302.     Revision: DWORD; // 1
  1303.     // events
  1304.     PowerButton: POWER_ACTION_POLICY;
  1305.     SleepButton: POWER_ACTION_POLICY;
  1306.     LidClose: POWER_ACTION_POLICY;
  1307.     LidOpenWake: SYSTEM_POWER_STATE;
  1308.     Reserved: DWORD;
  1309.     // "system idle" detection
  1310.     Idle: POWER_ACTION_POLICY;
  1311.     IdleTimeout: DWORD;
  1312.     IdleSensitivity: BYTE;
  1313.     // dynamic throttling policy
  1314.     //      PO_THROTTLE_NONE, PO_THROTTLE_CONSTANT, PO_THROTTLE_DEGRADE, or PO_THROTTLE_ADAPTIVE
  1315.     DynamicThrottle: BYTE;
  1316.     Spare2: array [0..1] of BYTE;
  1317.     // meaning of power action "sleep"
  1318.     MinSleep: SYSTEM_POWER_STATE;
  1319.     MaxSleep: SYSTEM_POWER_STATE;
  1320.     ReducedLatencySleep: SYSTEM_POWER_STATE;
  1321.     WinLogonFlags: DWORD;
  1322.     // parameters for dozing
  1323.     Spare3: DWORD;
  1324.     DozeS4Timeout: DWORD;
  1325.     // battery policies
  1326.     BroadcastCapacityResolution: DWORD;
  1327.     DischargePolicy: array [0..NUM_DISCHARGE_POLICIES - 1] of SYSTEM_POWER_LEVEL;
  1328.     // video policies
  1329.     VideoTimeout: DWORD;
  1330.     VideoDimDisplay: BOOLEAN;
  1331.     VideoReserved: array [0..2] of DWORD;
  1332.     // hard disk policies
  1333.     SpindownTimeout: DWORD;
  1334.     // processor policies
  1335.     OptimizeForPower: LongBool;
  1336.     FanThrottleTolerance: BYTE;
  1337.     ForcedThrottle: BYTE;
  1338.     MinThrottle: BYTE;
  1339.     OverThrottled: POWER_ACTION_POLICY;
  1340.   end;
  1341.   {$EXTERNALSYM _SYSTEM_POWER_POLICY}
  1342.   SYSTEM_POWER_POLICY = _SYSTEM_POWER_POLICY;
  1343.   {$EXTERNALSYM SYSTEM_POWER_POLICY}
  1344.   TSystemPowerPolicy = SYSTEM_POWER_POLICY;
  1345.   PSystemPowerPolicy = PSYSTEM_POWER_POLICY;
  1347. // processor power policy state
  1349.   PPROCESSOR_POWER_POLICY_INFO = ^PROCESSOR_POWER_POLICY_INFO;
  1350.   {$EXTERNALSYM PPROCESSOR_POWER_POLICY_INFO}
  1351.   _PROCESSOR_POWER_POLICY_INFO = record
  1352.     // Time based information (will be converted to kernel units)
  1353.     TimeCheck: DWORD; // in US
  1354.     DemoteLimit: DWORD; // in US
  1355.     PromoteLimit: DWORD; // in US
  1356.     // Percentage based information
  1357.     DemotePercent: BYTE;
  1358.     PromotePercent: BYTE;
  1359.     Spare: array [0..1] of BYTE;
  1360.     // Flags
  1361.     Flags: DWORD;
  1362.     //DWORD                   AllowDemotion:1;
  1363.     //DWORD                   AllowPromotion:1;
  1364.     //DWORD                   Reserved:30;
  1365.   end;
  1366.   {$EXTERNALSYM _PROCESSOR_POWER_POLICY_INFO}
  1367.   PROCESSOR_POWER_POLICY_INFO = _PROCESSOR_POWER_POLICY_INFO;
  1368.   {$EXTERNALSYM PROCESSOR_POWER_POLICY_INFO}
  1369.   TProcessorPowerPolicyInfo = PROCESSOR_POWER_POLICY_INFO;
  1370.   PProcessorPowerPolicyInfo = PPROCESSOR_POWER_POLICY_INFO;
  1372. // processor power policy
  1374.   PPROCESSOR_POWER_POLICY = ^PROCESSOR_POWER_POLICY;
  1375.   {$EXTERNALSYM PPROCESSOR_POWER_POLICY}
  1376.   _PROCESSOR_POWER_POLICY = record
  1377.     Revision: DWORD; // 1
  1378.     // Dynamic Throttling Policy
  1379.     DynamicThrottle: BYTE;
  1380.     Spare: array [0..2] of BYTE;
  1381.     // Flags
  1382.     Reserved: DWORD;
  1383.     //DWORD                       DisableCStates:1;
  1384.     //DWORD                       Reserved:31;
  1386.     // System policy information
  1387.     // The Array is last, in case it needs to be grown and the structure
  1388.     // revision incremented.
  1389.     PolicyCount: DWORD;
  1390.     Policy: array [0..2] of PROCESSOR_POWER_POLICY_INFO;
  1391.   end;
  1392.   {$EXTERNALSYM _PROCESSOR_POWER_POLICY}
  1393.   PROCESSOR_POWER_POLICY = _PROCESSOR_POWER_POLICY;
  1394.   {$EXTERNALSYM PROCESSOR_POWER_POLICY}
  1395.   TProcessorPowerPolicy = PROCESSOR_POWER_POLICY;
  1396.   PProcessorPowerPolicy = PPROCESSOR_POWER_POLICY;
  1398. // administrator power policy overrides
  1400.   PADMINISTRATOR_POWER_POLICY = ^ADMINISTRATOR_POWER_POLICY;
  1401.   {$EXTERNALSYM PADMINISTRATOR_POWER_POLICY}
  1402.   _ADMINISTRATOR_POWER_POLICY = record
  1403.     // meaning of power action "sleep"
  1404.     MinSleep: SYSTEM_POWER_STATE;
  1405.     MaxSleep: SYSTEM_POWER_STATE;
  1406.     // video policies
  1407.     MinVideoTimeout: DWORD;
  1408.     MaxVideoTimeout: DWORD;
  1409.     // disk policies
  1410.     MinSpindownTimeout: DWORD;
  1411.     MaxSpindownTimeout: DWORD;
  1412.   end;
  1413.   {$EXTERNALSYM _ADMINISTRATOR_POWER_POLICY}
  1414.   ADMINISTRATOR_POWER_POLICY = _ADMINISTRATOR_POWER_POLICY;
  1415.   {$EXTERNALSYM ADMINISTRATOR_POWER_POLICY}
  1416.   TAdministratorPowerPolicy = ADMINISTRATOR_POWER_POLICY;
  1417.   PAdministratorPowerPolicy = PADMINISTRATOR_POWER_POLICY;
  1419.   PSYSTEM_POWER_CAPABILITIES = ^SYSTEM_POWER_CAPABILITIES;
  1420.   {$EXTERNALSYM PSYSTEM_POWER_CAPABILITIES}
  1421.   SYSTEM_POWER_CAPABILITIES = record
  1422.     // Misc supported system features
  1423.     PowerButtonPresent: BOOLEAN;
  1424.     SleepButtonPresent: BOOLEAN;
  1425.     LidPresent: BOOLEAN;
  1426.     SystemS1: BOOLEAN;
  1427.     SystemS2: BOOLEAN;
  1428.     SystemS3: BOOLEAN;
  1429.     SystemS4: BOOLEAN; // hibernate
  1430.     SystemS5: BOOLEAN; // off
  1431.     HiberFilePresent: BOOLEAN;
  1432.     FullWake: BOOLEAN;
  1433.     VideoDimPresent: BOOLEAN;
  1434.     ApmPresent: BOOLEAN;
  1435.     UpsPresent: BOOLEAN;
  1436.     // Processors
  1437.     ThermalControl: BOOLEAN;
  1438.     ProcessorThrottle: BOOLEAN;
  1439.     ProcessorMinThrottle: BYTE;
  1440.     ProcessorMaxThrottle: BYTE;
  1441.     spare2: array [0..4 - 1] of BYTE;
  1442.     // Disk
  1443.     DiskSpinDown: BOOLEAN;
  1444.     spare3: array [0..8 - 1] of BYTE;
  1445.     // System Battery
  1446.     SystemBatteriesPresent: BOOLEAN;
  1447.     BatteriesAreShortTerm: BOOLEAN;
  1448.     BatteryScale: array [0..3 - 1] of BATTERY_REPORTING_SCALE;
  1449.     // Wake
  1450.     AcOnLineWake: SYSTEM_POWER_STATE;
  1451.     SoftLidWake: SYSTEM_POWER_STATE;
  1452.     RtcWake: SYSTEM_POWER_STATE;
  1453.     MinDeviceWakeState: SYSTEM_POWER_STATE; // note this may change on driver load
  1454.     DefaultLowLatencyWake: SYSTEM_POWER_STATE;
  1455.   end;
  1456.   {$EXTERNALSYM SYSTEM_POWER_CAPABILITIES}
  1457.   TSystemPowerCapabilities = SYSTEM_POWER_CAPABILITIES;
  1458.   PSystemPowerCapabilities = PSYSTEM_POWER_CAPABILITIES;
  1460.   PSYSTEM_BATTERY_STATE = ^SYSTEM_BATTERY_STATE;
  1461.   {$EXTERNALSYM PSYSTEM_BATTERY_STATE}
  1462.   SYSTEM_BATTERY_STATE = record
  1463.     AcOnLine: BOOLEAN;
  1464.     BatteryPresent: BOOLEAN;
  1465.     Charging: BOOLEAN;
  1466.     Discharging: BOOLEAN;
  1467.     Spare1: array [0..3] of BOOLEAN;
  1468.     MaxCapacity: DWORD;
  1469.     RemainingCapacity: DWORD;
  1470.     Rate: DWORD;
  1471.     EstimatedTime: DWORD;
  1472.     DefaultAlert1: DWORD;
  1473.     DefaultAlert2: DWORD;
  1474.   end;
  1475.   {$EXTERNALSYM SYSTEM_BATTERY_STATE}
  1476.   TSystemBatteryState = SYSTEM_BATTERY_STATE;
  1477.   PSystemBatteryState = PSYSTEM_BATTERY_STATE;
  1479. //
  1480. // Image Format
  1481. //
  1483. // #include "pshpack4.h"                   // 4 byte packing is the default
  1485. const
  1486.   IMAGE_DOS_SIGNATURE    = $5A4D; // MZ
  1487.   {$EXTERNALSYM IMAGE_DOS_SIGNATURE}
  1488.   IMAGE_OS2_SIGNATURE    = $454E; // NE
  1489.   {$EXTERNALSYM IMAGE_OS2_SIGNATURE}
  1490.   IMAGE_OS2_SIGNATURE_LE = $454C; // LE
  1491.   {$EXTERNALSYM IMAGE_OS2_SIGNATURE_LE}
  1492.   IMAGE_VXD_SIGNATURE    = $454C; // LE
  1493.   {$EXTERNALSYM IMAGE_VXD_SIGNATURE}
  1494.   IMAGE_NT_SIGNATURE     = $00004550; // PE00
  1495.   {$EXTERNALSYM IMAGE_NT_SIGNATURE}
  1497. // #include "pshpack2.h"                   // 16 bit headers are 2 byte packed
  1499. type
  1501.   // DOS .EXE header
  1503.   PIMAGE_DOS_HEADER = ^IMAGE_DOS_HEADER;
  1504.   {$EXTERNALSYM PIMAGE_DOS_HEADER}
  1505.   _IMAGE_DOS_HEADER = record
  1506.     e_magic: Word;     // Magic number
  1507.     e_cblp: Word;      // Bytes on last page of file
  1508.     e_cp: Word;        // Pages in file
  1509.     e_crlc: Word;      // Relocations
  1510.     e_cparhdr: Word;   // Size of header in paragraphs
  1511.     e_minalloc: Word;  // Minimum extra paragraphs needed
  1512.     e_maxalloc: Word;  // Maximum extra paragraphs needed
  1513.     e_ss: Word;        // Initial (relative) SS value
  1514.     e_sp: Word;        // Initial SP value
  1515.     e_csum: Word;      // Checksum
  1516.     e_ip: Word;        // Initial IP value
  1517.     e_cs: Word;        // Initial (relative) CS value
  1518.     e_lfarlc: Word;    // File address of relocation table
  1519.     e_ovno: Word;      // Overlay number
  1520.     e_res: array [0..3] of Word;    // Reserved words
  1521.     e_oemid: Word;     // OEM identifier (for e_oeminfo)
  1522.     e_oeminfo: Word;   // OEM information; e_oemid specific
  1523.     e_res2: array [0..9] of Word;  // Reserved words
  1524.     e_lfanew: Longint; // File address of new exe header
  1525.   end;
  1526.   {$EXTERNALSYM _IMAGE_DOS_HEADER}
  1527.   IMAGE_DOS_HEADER = _IMAGE_DOS_HEADER;
  1528.   {$EXTERNALSYM IMAGE_DOS_HEADER}
  1529.   TImageDosHeader = IMAGE_DOS_HEADER;
  1530.   PImageDosHeader = PIMAGE_DOS_HEADER;
  1532.   // OS/2 .EXE header
  1534.   PIMAGE_OS2_HEADER = ^IMAGE_OS2_HEADER;
  1535.   {$EXTERNALSYM PIMAGE_OS2_HEADER}
  1536.   _IMAGE_OS2_HEADER = record
  1537.     ne_magic: Word;        // Magic number
  1538.     ne_ver: CHAR;          // Version number
  1539.     ne_rev: CHAR;          // Revision number
  1540.     ne_enttab: Word;       // Offset of Entry Table
  1541.     ne_cbenttab: Word;     // Number of bytes in Entry Table
  1542.     ne_crc: Longint;       // Checksum of whole file
  1543.     ne_flags: Word;        // Flag word
  1544.     ne_autodata: Word;     // Automatic data segment number
  1545.     ne_heap: Word;         // Initial heap allocation
  1546.     ne_stack: Word;        // Initial stack allocation
  1547.     ne_csip: Longint;      // Initial CS:IP setting
  1548.     ne_sssp: Longint;      // Initial SS:SP setting
  1549.     ne_cseg: Word;         // Count of file segments
  1550.     ne_cmod: Word;         // Entries in Module Reference Table
  1551.     ne_cbnrestab: Word;    // Size of non-resident name table
  1552.     ne_segtab: Word;       // Offset of Segment Table
  1553.     ne_rsrctab: Word;      // Offset of Resource Table
  1554.     ne_restab: Word;       // Offset of resident name table
  1555.     ne_modtab: Word;       // Offset of Module Reference Table
  1556.     ne_imptab: Word;       // Offset of Imported Names Table
  1557.     ne_nrestab: Longint;   // Offset of Non-resident Names Table
  1558.     ne_cmovent: Word;      // Count of movable entries
  1559.     ne_align: Word;        // Segment alignment shift count
  1560.     ne_cres: Word;         // Count of resource segments
  1561.     ne_exetyp: Byte;       // Target Operating system
  1562.     ne_flagsothers: Byte;  // Other .EXE flags
  1563.     ne_pretthunks: Word;   // offset to return thunks
  1564.     ne_psegrefbytes: Word; // offset to segment ref. bytes
  1565.     ne_swaparea: Word;     // Minimum code swap area size
  1566.     ne_expver: Word;       // Expected Windows version number
  1567.   end;
  1568.   {$EXTERNALSYM _IMAGE_OS2_HEADER}
  1569.   IMAGE_OS2_HEADER = _IMAGE_OS2_HEADER;
  1570.   {$EXTERNALSYM IMAGE_OS2_HEADER}
  1571.   TImageOs2Header = IMAGE_OS2_HEADER;
  1572.   PImageOs2Header = PIMAGE_OS2_HEADER;
  1574.   // Windows VXD header
  1576.   PIMAGE_VXD_HEADER = ^IMAGE_VXD_HEADER;
  1577.   {$EXTERNALSYM PIMAGE_VXD_HEADER}
  1578.   _IMAGE_VXD_HEADER = record
  1579.     e32_magic: Word;         // Magic number
  1580.     e32_border: Byte;        // The byte ordering for the VXD
  1581.     e32_worder: Byte;        // The word ordering for the VXD
  1582.     e32_level: DWORD;        // The EXE format level for now = 0
  1583.     e32_cpu: Word;           // The CPU type
  1584.     e32_os: Word;            // The OS type
  1585.     e32_ver: DWORD;          // Module version
  1586.     e32_mflags: DWORD;       // Module flags
  1587.     e32_mpages: DWORD;       // Module # pages
  1588.     e32_startobj: DWORD;     // Object # for instruction pointer
  1589.     e32_eip: DWORD;          // Extended instruction pointer
  1590.     e32_stackobj: DWORD;     // Object # for stack pointer
  1591.     e32_esp: DWORD;          // Extended stack pointer
  1592.     e32_pagesize: DWORD;     // VXD page size
  1593.     e32_lastpagesize: DWORD; // Last page size in VXD
  1594.     e32_fixupsize: DWORD;    // Fixup section size
  1595.     e32_fixupsum: DWORD;     // Fixup section checksum
  1596.     e32_ldrsize: DWORD;      // Loader section size
  1597.     e32_ldrsum: DWORD;       // Loader section checksum
  1598.     e32_objtab: DWORD;       // Object table offset
  1599.     e32_objcnt: DWORD;       // Number of objects in module
  1600.     e32_objmap: DWORD;       // Object page map offset
  1601.     e32_itermap: DWORD;      // Object iterated data map offset
  1602.     e32_rsrctab: DWORD;      // Offset of Resource Table
  1603.     e32_rsrccnt: DWORD;      // Number of resource entries
  1604.     e32_restab: DWORD;       // Offset of resident name table
  1605.     e32_enttab: DWORD;       // Offset of Entry Table
  1606.     e32_dirtab: DWORD;       // Offset of Module Directive Table
  1607.     e32_dircnt: DWORD;       // Number of module directives
  1608.     e32_fpagetab: DWORD;     // Offset of Fixup Page Table
  1609.     e32_frectab: DWORD;      // Offset of Fixup Record Table
  1610.     e32_impmod: DWORD;       // Offset of Import Module Name Table
  1611.     e32_impmodcnt: DWORD;    // Number of entries in Import Module Name Table
  1612.     e32_impproc: DWORD;      // Offset of Import Procedure Name Table
  1613.     e32_pagesum: DWORD;      // Offset of Per-Page Checksum Table
  1614.     e32_datapage: DWORD;     // Offset of Enumerated Data Pages
  1615.     e32_preload: DWORD;      // Number of preload pages
  1616.     e32_nrestab: DWORD;      // Offset of Non-resident Names Table
  1617.     e32_cbnrestab: DWORD;    // Size of Non-resident Name Table
  1618.     e32_nressum: DWORD;      // Non-resident Name Table Checksum
  1619.     e32_autodata: DWORD;     // Object # for automatic data object
  1620.     e32_debuginfo: DWORD;    // Offset of the debugging information
  1621.     e32_debuglen: DWORD;     // The length of the debugging info. in bytes
  1622.     e32_instpreload: DWORD;  // Number of instance pages in preload section of VXD file
  1623.     e32_instdemand: DWORD;   // Number of instance pages in demand load section of VXD file
  1624.     e32_heapsize: DWORD;     // Size of heap - for 16-bit apps
  1625.     e32_res3: array [0..11] of Byte;      // Reserved words
  1626.     e32_winresoff: DWORD;
  1627.     e32_winreslen: DWORD;
  1628.     e32_devid: Word;         // Device ID for VxD
  1629.     e32_ddkver: Word;        // DDK version for VxD
  1630.   end;
  1631.   {$EXTERNALSYM _IMAGE_VXD_HEADER}
  1632.   IMAGE_VXD_HEADER = _IMAGE_VXD_HEADER;
  1633.   {$EXTERNALSYM IMAGE_VXD_HEADER}
  1634.   TImageVxdHeader = IMAGE_VXD_HEADER;
  1635.   PImageVxdHeader = PIMAGE_VXD_HEADER;
  1637. // #include "poppack.h"                    // Back to 4 byte packing
  1639. //
  1640. // File header format.
  1641. //
  1643.   PIMAGE_FILE_HEADER = ^IMAGE_FILE_HEADER;
  1644.   {$EXTERNALSYM PIMAGE_FILE_HEADER}
  1645.   _IMAGE_FILE_HEADER = record
  1646.     Machine: WORD;
  1647.     NumberOfSections: WORD;
  1648.     TimeDateStamp: DWORD;
  1649.     PointerToSymbolTable: DWORD;
  1650.     NumberOfSymbols: DWORD;
  1651.     SizeOfOptionalHeader: WORD;
  1652.     Characteristics: WORD;
  1653.   end;
  1654.   {$EXTERNALSYM _IMAGE_FILE_HEADER}
  1655.   IMAGE_FILE_HEADER = _IMAGE_FILE_HEADER;
  1656.   {$EXTERNALSYM IMAGE_FILE_HEADER}
  1657.   TImageFileHeader = IMAGE_FILE_HEADER;
  1658.   PImageFileHeader = PIMAGE_FILE_HEADER;
  1660. const
  1661.   IMAGE_SIZEOF_FILE_HEADER = 20;
  1662.   {$EXTERNALSYM IMAGE_SIZEOF_FILE_HEADER}
  1664.   IMAGE_FILE_RELOCS_STRIPPED         = $0001; // Relocation info stripped from file.
  1665.   {$EXTERNALSYM IMAGE_FILE_RELOCS_STRIPPED}
  1666.   IMAGE_FILE_EXECUTABLE_IMAGE        = $0002; // File is executable  (i.e. no unresolved externel references).
  1667.   {$EXTERNALSYM IMAGE_FILE_EXECUTABLE_IMAGE}
  1668.   IMAGE_FILE_LINE_NUMS_STRIPPED      = $0004; // Line nunbers stripped from file.
  1669.   {$EXTERNALSYM IMAGE_FILE_LINE_NUMS_STRIPPED}
  1670.   IMAGE_FILE_LOCAL_SYMS_STRIPPED     = $0008; // Local symbols stripped from file.
  1671.   {$EXTERNALSYM IMAGE_FILE_LOCAL_SYMS_STRIPPED}
  1672.   IMAGE_FILE_AGGRESIVE_WS_TRIM       = $0010; // Agressively trim working set
  1673.   {$EXTERNALSYM IMAGE_FILE_AGGRESIVE_WS_TRIM}
  1674.   IMAGE_FILE_LARGE_ADDRESS_AWARE     = $0020; // App can handle >2gb addresses
  1675.   {$EXTERNALSYM IMAGE_FILE_LARGE_ADDRESS_AWARE}
  1676.   IMAGE_FILE_BYTES_REVERSED_LO       = $0080; // Bytes of machine word are reversed.
  1677.   {$EXTERNALSYM IMAGE_FILE_BYTES_REVERSED_LO}
  1678.   IMAGE_FILE_32BIT_MACHINE           = $0100; // 32 bit word machine.
  1679.   {$EXTERNALSYM IMAGE_FILE_32BIT_MACHINE}
  1680.   IMAGE_FILE_DEBUG_STRIPPED          = $0200; // Debugging info stripped from file in .DBG file
  1681.   {$EXTERNALSYM IMAGE_FILE_DEBUG_STRIPPED}
  1682.   IMAGE_FILE_REMOVABLE_RUN_FROM_SWAP = $0400; // If Image is on removable media, copy and run from the swap file.
  1683.   {$EXTERNALSYM IMAGE_FILE_REMOVABLE_RUN_FROM_SWAP}
  1684.   IMAGE_FILE_NET_RUN_FROM_SWAP       = $0800; // If Image is on Net, copy and run from the swap file.
  1685.   {$EXTERNALSYM IMAGE_FILE_NET_RUN_FROM_SWAP}
  1686.   IMAGE_FILE_SYSTEM                  = $1000; // System File.
  1687.   {$EXTERNALSYM IMAGE_FILE_SYSTEM}
  1688.   IMAGE_FILE_DLL                     = $2000; // File is a DLL.
  1689.   {$EXTERNALSYM IMAGE_FILE_DLL}
  1690.   IMAGE_FILE_UP_SYSTEM_ONLY          = $4000; // File should only be run on a UP machine
  1691.   {$EXTERNALSYM IMAGE_FILE_UP_SYSTEM_ONLY}
  1692.   IMAGE_FILE_BYTES_REVERSED_HI       = $8000; // Bytes of machine word are reversed.
  1693.   {$EXTERNALSYM IMAGE_FILE_BYTES_REVERSED_HI}
  1695.   IMAGE_FILE_MACHINE_UNKNOWN   = 0;
  1696.   {$EXTERNALSYM IMAGE_FILE_MACHINE_UNKNOWN}
  1697.   IMAGE_FILE_MACHINE_I386      = $014c; // Intel 386.
  1698.   {$EXTERNALSYM IMAGE_FILE_MACHINE_I386}
  1699.   IMAGE_FILE_MACHINE_R3000     = $0162; // MIPS little-endian, 0x160 big-endian
  1700.   {$EXTERNALSYM IMAGE_FILE_MACHINE_R3000}
  1701.   IMAGE_FILE_MACHINE_R4000     = $0166; // MIPS little-endian
  1702.   {$EXTERNALSYM IMAGE_FILE_MACHINE_R4000}
  1703.   IMAGE_FILE_MACHINE_R10000    = $0168; // MIPS little-endian
  1704.   {$EXTERNALSYM IMAGE_FILE_MACHINE_R10000}
  1705.   IMAGE_FILE_MACHINE_WCEMIPSV2 = $0169; // MIPS little-endian WCE v2
  1706.   {$EXTERNALSYM IMAGE_FILE_MACHINE_WCEMIPSV2}
  1707.   IMAGE_FILE_MACHINE_ALPHA     = $0184; // Alpha_AXP
  1708.   {$EXTERNALSYM IMAGE_FILE_MACHINE_ALPHA}
  1709.   IMAGE_FILE_MACHINE_SH3       = $01a2; // SH3 little-endian
  1710.   {$EXTERNALSYM IMAGE_FILE_MACHINE_SH3}
  1711.   IMAGE_FILE_MACHINE_SH3DSP    = $01a3;
  1712.   {$EXTERNALSYM IMAGE_FILE_MACHINE_SH3DSP}
  1713.   IMAGE_FILE_MACHINE_SH3E      = $01a4; // SH3E little-endian
  1714.   {$EXTERNALSYM IMAGE_FILE_MACHINE_SH3E}
  1715.   IMAGE_FILE_MACHINE_SH4       = $01a6; // SH4 little-endian
  1716.   {$EXTERNALSYM IMAGE_FILE_MACHINE_SH4}
  1717.   IMAGE_FILE_MACHINE_SH5       = $01a8; // SH5
  1718.   {$EXTERNALSYM IMAGE_FILE_MACHINE_SH5}
  1719.   IMAGE_FILE_MACHINE_ARM       = $01c0; // ARM Little-Endian
  1720.   {$EXTERNALSYM IMAGE_FILE_MACHINE_ARM}
  1721.   IMAGE_FILE_MACHINE_THUMB     = $01c2;
  1722.   {$EXTERNALSYM IMAGE_FILE_MACHINE_THUMB}
  1723.   IMAGE_FILE_MACHINE_AM33      = $01d3;
  1724.   {$EXTERNALSYM IMAGE_FILE_MACHINE_AM33}
  1725.   IMAGE_FILE_MACHINE_POWERPC   = $01F0; // IBM PowerPC Little-Endian
  1726.   {$EXTERNALSYM IMAGE_FILE_MACHINE_POWERPC}
  1727.   IMAGE_FILE_MACHINE_POWERPCFP = $01f1;
  1728.   {$EXTERNALSYM IMAGE_FILE_MACHINE_POWERPCFP}
  1729.   IMAGE_FILE_MACHINE_IA64      = $0200; // Intel 64
  1730.   {$EXTERNALSYM IMAGE_FILE_MACHINE_IA64}
  1731.   IMAGE_FILE_MACHINE_MIPS16    = $0266; // MIPS
  1732.   {$EXTERNALSYM IMAGE_FILE_MACHINE_MIPS16}
  1733.   IMAGE_FILE_MACHINE_ALPHA64   = $0284; // ALPHA64
  1734.   {$EXTERNALSYM IMAGE_FILE_MACHINE_ALPHA64}
  1735.   IMAGE_FILE_MACHINE_MIPSFPU   = $0366; // MIPS
  1736.   {$EXTERNALSYM IMAGE_FILE_MACHINE_MIPSFPU}
  1737.   IMAGE_FILE_MACHINE_MIPSFPU16 = $0466; // MIPS
  1738.   {$EXTERNALSYM IMAGE_FILE_MACHINE_MIPSFPU16}
  1739.   IMAGE_FILE_MACHINE_AXP64     = IMAGE_FILE_MACHINE_ALPHA64;
  1740.   {$EXTERNALSYM IMAGE_FILE_MACHINE_AXP64}
  1741.   IMAGE_FILE_MACHINE_TRICORE   = $0520; // Infineon
  1742.   {$EXTERNALSYM IMAGE_FILE_MACHINE_TRICORE}
  1743.   IMAGE_FILE_MACHINE_CEF       = $0CEF;
  1744.   {$EXTERNALSYM IMAGE_FILE_MACHINE_CEF}
  1745.   IMAGE_FILE_MACHINE_EBC       = $0EBC; // EFI Byte Code
  1746.   {$EXTERNALSYM IMAGE_FILE_MACHINE_EBC}
  1747.   IMAGE_FILE_MACHINE_AMD64     = $8664; // AMD64 (K8)
  1748.   {$EXTERNALSYM IMAGE_FILE_MACHINE_AMD64}
  1749.   IMAGE_FILE_MACHINE_M32R      = $9041; // M32R little-endian
  1750.   {$EXTERNALSYM IMAGE_FILE_MACHINE_M32R}
  1751.   IMAGE_FILE_MACHINE_CEE       = $C0EE;
  1752.   {$EXTERNALSYM IMAGE_FILE_MACHINE_CEE}
  1754. //
  1755. // Directory format.
  1756. //
  1758. type
  1759.   PIMAGE_DATA_DIRECTORY = ^IMAGE_DATA_DIRECTORY;
  1760.   {$EXTERNALSYM PIMAGE_DATA_DIRECTORY}
  1761.   _IMAGE_DATA_DIRECTORY = record
  1762.     VirtualAddress: DWORD;
  1763.     Size: DWORD;
  1764.   end;
  1765.   {$EXTERNALSYM _IMAGE_DATA_DIRECTORY}
  1766.   IMAGE_DATA_DIRECTORY = _IMAGE_DATA_DIRECTORY;
  1767.   {$EXTERNALSYM IMAGE_DATA_DIRECTORY}
  1768.   TImageDataDirectory = IMAGE_DATA_DIRECTORY;
  1769.   PImageDataDirectory = PIMAGE_DATA_DIRECTORY;
  1771. const
  1772.   IMAGE_NUMBEROF_DIRECTORY_ENTRIES = 16;
  1773.   {$EXTERNALSYM IMAGE_NUMBEROF_DIRECTORY_ENTRIES}
  1775. //
  1776. // Optional header format.
  1777. //
  1779. type
  1780.   PIMAGE_OPTIONAL_HEADER32 = ^IMAGE_OPTIONAL_HEADER32;
  1781.   {$EXTERNALSYM PIMAGE_OPTIONAL_HEADER32}
  1782.   _IMAGE_OPTIONAL_HEADER = record
  1783.     //
  1784.     // Standard fields.
  1785.     //
  1786.     Magic: Word;
  1787.     MajorLinkerVersion: Byte;
  1788.     MinorLinkerVersion: Byte;
  1789.     SizeOfCode: DWORD;
  1790.     SizeOfInitializedData: DWORD;
  1791.     SizeOfUninitializedData: DWORD;
  1792.     AddressOfEntryPoint: DWORD;
  1793.     BaseOfCode: DWORD;
  1794.     BaseOfData: DWORD;
  1795.     //
  1796.     // NT additional fields.
  1797.     //
  1798.     ImageBase: DWORD;
  1799.     SectionAlignment: DWORD;
  1800.     FileAlignment: DWORD;
  1801.     MajorOperatingSystemVersion: Word;
  1802.     MinorOperatingSystemVersion: Word;
  1803.     MajorImageVersion: Word;
  1804.     MinorImageVersion: Word;
  1805.     MajorSubsystemVersion: Word;
  1806.     MinorSubsystemVersion: Word;
  1807.     Win32VersionValue: DWORD;
  1808.     SizeOfImage: DWORD;
  1809.     SizeOfHeaders: DWORD;
  1810.     CheckSum: DWORD;
  1811.     Subsystem: Word;
  1812.     DllCharacteristics: Word;
  1813.     SizeOfStackReserve: DWORD;
  1814.     SizeOfStackCommit: DWORD;
  1815.     SizeOfHeapReserve: DWORD;
  1816.     SizeOfHeapCommit: DWORD;
  1817.     LoaderFlags: DWORD;
  1818.     NumberOfRvaAndSizes: DWORD;
  1819.     DataDirectory: array [0..IMAGE_NUMBEROF_DIRECTORY_ENTRIES - 1] of IMAGE_DATA_DIRECTORY;
  1820.   end;
  1821.   {$EXTERNALSYM _IMAGE_OPTIONAL_HEADER}
  1822.   IMAGE_OPTIONAL_HEADER32 = _IMAGE_OPTIONAL_HEADER;
  1823.   {$EXTERNALSYM IMAGE_OPTIONAL_HEADER32}
  1824.   TImageOptionalHeader32 = IMAGE_OPTIONAL_HEADER32;
  1825.   PImageOptionalHeader32 = PIMAGE_OPTIONAL_HEADER32;
  1827.   PIMAGE_ROM_OPTIONAL_HEADER = ^IMAGE_ROM_OPTIONAL_HEADER;
  1828.   {$EXTERNALSYM PIMAGE_ROM_OPTIONAL_HEADER}
  1829.   _IMAGE_ROM_OPTIONAL_HEADER = record
  1830.     Magic: Word;
  1831.     MajorLinkerVersion: Byte;
  1832.     MinorLinkerVersion: Byte;
  1833.     SizeOfCode: DWORD;
  1834.     SizeOfInitializedData: DWORD;
  1835.     SizeOfUninitializedData: DWORD;
  1836.     AddressOfEntryPoint: DWORD;
  1837.     BaseOfCode: DWORD;
  1838.     BaseOfData: DWORD;
  1839.     BaseOfBss: DWORD;
  1840.     GprMask: DWORD;
  1841.     CprMask: array [0..3] of DWORD;
  1842.     GpValue: DWORD;
  1843.   end;
  1844.   {$EXTERNALSYM _IMAGE_ROM_OPTIONAL_HEADER}
  1845.   IMAGE_ROM_OPTIONAL_HEADER = _IMAGE_ROM_OPTIONAL_HEADER;
  1846.   {$EXTERNALSYM IMAGE_ROM_OPTIONAL_HEADER}
  1847.   TImageRomOptionalHeader = IMAGE_ROM_OPTIONAL_HEADER;
  1848.   PImageRomOptionalHeader = PIMAGE_ROM_OPTIONAL_HEADER;
  1850.   PIMAGE_OPTIONAL_HEADER64 = ^IMAGE_OPTIONAL_HEADER64;
  1851.   {$EXTERNALSYM PIMAGE_OPTIONAL_HEADER64}
  1852.   _IMAGE_OPTIONAL_HEADER64 = record
  1853.     Magic: Word;
  1854.     MajorLinkerVersion: Byte;
  1855.     MinorLinkerVersion: Byte;
  1856.     SizeOfCode: DWORD;
  1857.     SizeOfInitializedData: DWORD;
  1858.     SizeOfUninitializedData: DWORD;
  1859.     AddressOfEntryPoint: DWORD;
  1860.     BaseOfCode: DWORD;
  1861.     ImageBase: Int64;
  1862.     SectionAlignment: DWORD;
  1863.     FileAlignment: DWORD;
  1864.     MajorOperatingSystemVersion: Word;
  1865.     MinorOperatingSystemVersion: Word;
  1866.     MajorImageVersion: Word;
  1867.     MinorImageVersion: Word;
  1868.     MajorSubsystemVersion: Word;
  1869.     MinorSubsystemVersion: Word;
  1870.     Win32VersionValue: DWORD;
  1871.     SizeOfImage: DWORD;
  1872.     SizeOfHeaders: DWORD;
  1873.     CheckSum: DWORD;
  1874.     Subsystem: Word;
  1875.     DllCharacteristics: Word;
  1876.     SizeOfStackReserve: Int64;
  1877.     SizeOfStackCommit: Int64;
  1878.     SizeOfHeapReserve: Int64;
  1879.     SizeOfHeapCommit: Int64;
  1880.     LoaderFlags: DWORD;
  1881.     NumberOfRvaAndSizes: DWORD;
  1882.     DataDirectory: array [0..IMAGE_NUMBEROF_DIRECTORY_ENTRIES - 1] of IMAGE_DATA_DIRECTORY;
  1883.   end;
  1884.   {$EXTERNALSYM _IMAGE_OPTIONAL_HEADER64}
  1885.   IMAGE_OPTIONAL_HEADER64 = _IMAGE_OPTIONAL_HEADER64;
  1886.   {$EXTERNALSYM IMAGE_OPTIONAL_HEADER64}
  1887.   TImageOptionalHeader64 = IMAGE_OPTIONAL_HEADER64;
  1888.   PImageOptionalHeader64 = PIMAGE_OPTIONAL_HEADER64;
  1890. const
  1891.   IMAGE_SIZEOF_ROM_OPTIONAL_HEADER  = 56;
  1892.   {$EXTERNALSYM IMAGE_SIZEOF_ROM_OPTIONAL_HEADER}
  1893.   IMAGE_SIZEOF_STD_OPTIONAL_HEADER  = 28;
  1894.   {$EXTERNALSYM IMAGE_SIZEOF_STD_OPTIONAL_HEADER}
  1895.   IMAGE_SIZEOF_NT_OPTIONAL32_HEADER = 224;
  1896.   {$EXTERNALSYM IMAGE_SIZEOF_NT_OPTIONAL32_HEADER}
  1897.   IMAGE_SIZEOF_NT_OPTIONAL64_HEADER = 240;
  1898.   {$EXTERNALSYM IMAGE_SIZEOF_NT_OPTIONAL64_HEADER}
  1900.   IMAGE_NT_OPTIONAL_HDR32_MAGIC = $10b;
  1901.   {$EXTERNALSYM IMAGE_NT_OPTIONAL_HDR32_MAGIC}
  1902.   IMAGE_NT_OPTIONAL_HDR64_MAGIC = $20b;
  1903.   {$EXTERNALSYM IMAGE_NT_OPTIONAL_HDR64_MAGIC}
  1904.   IMAGE_ROM_OPTIONAL_HDR_MAGIC  = $107;
  1905.   {$EXTERNALSYM IMAGE_ROM_OPTIONAL_HDR_MAGIC}
  1907. type
  1908.   IMAGE_OPTIONAL_HEADER = IMAGE_OPTIONAL_HEADER32;
  1909.   {$EXTERNALSYM IMAGE_OPTIONAL_HEADER}
  1910.   PIMAGE_OPTIONAL_HEADER = PIMAGE_OPTIONAL_HEADER32;
  1911.   {$EXTERNALSYM PIMAGE_OPTIONAL_HEADER}
  1913. const
  1914.   IMAGE_SIZEOF_NT_OPTIONAL_HEADER = IMAGE_SIZEOF_NT_OPTIONAL32_HEADER;
  1915.   {$EXTERNALSYM IMAGE_SIZEOF_NT_OPTIONAL_HEADER}
  1916.   IMAGE_NT_OPTIONAL_HDR_MAGIC     = IMAGE_NT_OPTIONAL_HDR32_MAGIC;
  1917.   {$EXTERNALSYM IMAGE_NT_OPTIONAL_HDR_MAGIC}
  1919. type
  1920.   PIMAGE_NT_HEADERS64 = ^IMAGE_NT_HEADERS64;
  1921.   {$EXTERNALSYM PIMAGE_NT_HEADERS64}
  1922.   _IMAGE_NT_HEADERS64 = record
  1923.     Signature: DWORD;
  1924.     FileHeader: IMAGE_FILE_HEADER;
  1925.     OptionalHeader: IMAGE_OPTIONAL_HEADER64;
  1926.   end;
  1927.   {$EXTERNALSYM _IMAGE_NT_HEADERS64}
  1928.   IMAGE_NT_HEADERS64 = _IMAGE_NT_HEADERS64;
  1929.   {$EXTERNALSYM IMAGE_NT_HEADERS64}
  1930.   TImageNtHeaders64 = IMAGE_NT_HEADERS64;
  1931.   PImageNtHeaders64 = PIMAGE_NT_HEADERS64;
  1933.   PIMAGE_NT_HEADERS32 = ^IMAGE_NT_HEADERS32;
  1934.   {$EXTERNALSYM PIMAGE_NT_HEADERS32}
  1935.   _IMAGE_NT_HEADERS = record
  1936.     Signature: DWORD;
  1937.     FileHeader: IMAGE_FILE_HEADER;
  1938.     OptionalHeader: IMAGE_OPTIONAL_HEADER32;
  1939.   end;
  1940.   {$EXTERNALSYM _IMAGE_NT_HEADERS}
  1941.   IMAGE_NT_HEADERS32 = _IMAGE_NT_HEADERS;
  1942.   {$EXTERNALSYM IMAGE_NT_HEADERS32}
  1943.   TImageNtHeaders32 = IMAGE_NT_HEADERS32;
  1944.   PImageNtHeaders32 = PIMAGE_NT_HEADERS32;
  1946.   PIMAGE_ROM_HEADERS = ^IMAGE_ROM_HEADERS;
  1947.   {$EXTERNALSYM PIMAGE_ROM_HEADERS}
  1948.   _IMAGE_ROM_HEADERS = record
  1949.     FileHeader: IMAGE_FILE_HEADER;
  1950.     OptionalHeader: IMAGE_ROM_OPTIONAL_HEADER;
  1951.   end;
  1952.   {$EXTERNALSYM _IMAGE_ROM_HEADERS}
  1953.   IMAGE_ROM_HEADERS = _IMAGE_ROM_HEADERS;
  1954.   {$EXTERNALSYM IMAGE_ROM_HEADERS}
  1955.   TImageRomHeaders = IMAGE_ROM_HEADERS;
  1956.   PImageRomHeaders = PIMAGE_ROM_HEADERS;
  1958.   IMAGE_NT_HEADERS = IMAGE_NT_HEADERS32;
  1959.   {$EXTERNALSYM IMAGE_NT_HEADERS}
  1960.   PIMAGE_NT_HEADERS = PIMAGE_NT_HEADERS32;
  1961.   {$EXTERNALSYM PIMAGE_NT_HEADERS}
  1963. // Subsystem Values
  1965. const
  1966.   IMAGE_SUBSYSTEM_UNKNOWN                 = 0; // Unknown subsystem.
  1967.   {$EXTERNALSYM IMAGE_SUBSYSTEM_UNKNOWN}
  1968.   IMAGE_SUBSYSTEM_NATIVE                  = 1; // Image doesn't require a subsystem.
  1969.   {$EXTERNALSYM IMAGE_SUBSYSTEM_NATIVE}
  1970.   IMAGE_SUBSYSTEM_WINDOWS_GUI             = 2; // Image runs in the Windows GUI subsystem.
  1971.   {$EXTERNALSYM IMAGE_SUBSYSTEM_WINDOWS_GUI}
  1972.   IMAGE_SUBSYSTEM_WINDOWS_CUI             = 3; // Image runs in the Windows character subsystem.
  1973.   {$EXTERNALSYM IMAGE_SUBSYSTEM_WINDOWS_CUI}
  1974.   IMAGE_SUBSYSTEM_OS2_CUI                 = 5; // image runs in the OS/2 character subsystem.
  1975.   {$EXTERNALSYM IMAGE_SUBSYSTEM_OS2_CUI}
  1976.   IMAGE_SUBSYSTEM_POSIX_CUI               = 7; // image runs in the Posix character subsystem.
  1977.   {$EXTERNALSYM IMAGE_SUBSYSTEM_POSIX_CUI}
  1978.   IMAGE_SUBSYSTEM_NATIVE_WINDOWS          = 8; // image is a native Win9x driver.
  1979.   {$EXTERNALSYM IMAGE_SUBSYSTEM_NATIVE_WINDOWS}
  1980.   IMAGE_SUBSYSTEM_WINDOWS_CE_GUI          = 9; // Image runs in the Windows CE subsystem.
  1981.   {$EXTERNALSYM IMAGE_SUBSYSTEM_WINDOWS_CE_GUI}
  1982.   IMAGE_SUBSYSTEM_EFI_APPLICATION         = 10;
  1983.   {$EXTERNALSYM IMAGE_SUBSYSTEM_EFI_APPLICATION}
  1984.   IMAGE_SUBSYSTEM_EFI_BOOT_SERVICE_DRIVER = 11;
  1985.   {$EXTERNALSYM IMAGE_SUBSYSTEM_EFI_BOOT_SERVICE_DRIVER}
  1986.   IMAGE_SUBSYSTEM_EFI_RUNTIME_DRIVER      = 12;
  1987.   {$EXTERNALSYM IMAGE_SUBSYSTEM_EFI_RUNTIME_DRIVER}
  1988.   IMAGE_SUBSYSTEM_EFI_ROM                 = 13;
  1989.   {$EXTERNALSYM IMAGE_SUBSYSTEM_EFI_ROM}
  1990.   IMAGE_SUBSYSTEM_XBOX                    = 14;
  1991.   {$EXTERNALSYM IMAGE_SUBSYSTEM_XBOX}
  1993. // DllCharacteristics Entries
  1995. //      IMAGE_LIBRARY_PROCESS_INIT           0x0001     // Reserved.
  1996. //      IMAGE_LIBRARY_PROCESS_TERM           0x0002     // Reserved.
  1997. //      IMAGE_LIBRARY_THREAD_INIT            0x0004     // Reserved.
  1998. //      IMAGE_LIBRARY_THREAD_TERM            0x0008     // Reserved.
  2000.   IMAGE_DLLCHARACTERISTICS_NO_BIND = $0800; // Do not bind this image.
  2001.   {$EXTERNALSYM IMAGE_DLLCHARACTERISTICS_NO_BIND}
  2003. //                                           0x1000     // Reserved.
  2005.   IMAGE_DLLCHARACTERISTICS_WDM_DRIVER = $2000; // Driver uses WDM model
  2006.   {$EXTERNALSYM IMAGE_DLLCHARACTERISTICS_WDM_DRIVER}
  2008. //                                           0x4000     // Reserved.
  2010.   IMAGE_DLLCHARACTERISTICS_TERMINAL_SERVER_AWARE = $8000;
  2011.   {$EXTERNALSYM IMAGE_DLLCHARACTERISTICS_TERMINAL_SERVER_AWARE}
  2013. // Directory Entries
  2015.   IMAGE_DIRECTORY_ENTRY_EXPORT    = 0; // Export Directory
  2016.   {$EXTERNALSYM IMAGE_DIRECTORY_ENTRY_EXPORT}
  2017.   IMAGE_DIRECTORY_ENTRY_IMPORT    = 1; // Import Directory
  2018.   {$EXTERNALSYM IMAGE_DIRECTORY_ENTRY_IMPORT}
  2019.   IMAGE_DIRECTORY_ENTRY_RESOURCE  = 2; // Resource Directory
  2020.   {$EXTERNALSYM IMAGE_DIRECTORY_ENTRY_RESOURCE}
  2021.   IMAGE_DIRECTORY_ENTRY_EXCEPTION = 3; // Exception Directory
  2022.   {$EXTERNALSYM IMAGE_DIRECTORY_ENTRY_EXCEPTION}
  2023.   IMAGE_DIRECTORY_ENTRY_SECURITY  = 4; // Security Directory
  2024.   {$EXTERNALSYM IMAGE_DIRECTORY_ENTRY_SECURITY}
  2025.   IMAGE_DIRECTORY_ENTRY_BASERELOC = 5; // Base Relocation Table
  2026.   {$EXTERNALSYM IMAGE_DIRECTORY_ENTRY_BASERELOC}
  2027.   IMAGE_DIRECTORY_ENTRY_DEBUG     = 6; // Debug Directory
  2028.   {$EXTERNALSYM IMAGE_DIRECTORY_ENTRY_DEBUG}
  2030. //      IMAGE_DIRECTORY_ENTRY_COPYRIGHT       7   // (X86 usage)
  2032.   IMAGE_DIRECTORY_ENTRY_ARCHITECTURE   = 7; // Architecture Specific Data
  2033.   {$EXTERNALSYM IMAGE_DIRECTORY_ENTRY_ARCHITECTURE}
  2034.   IMAGE_DIRECTORY_ENTRY_GLOBALPTR      = 8; // RVA of GP
  2035.   {$EXTERNALSYM IMAGE_DIRECTORY_ENTRY_GLOBALPTR}
  2036.   IMAGE_DIRECTORY_ENTRY_TLS            = 9; // TLS Directory
  2037.   {$EXTERNALSYM IMAGE_DIRECTORY_ENTRY_TLS}
  2038.   IMAGE_DIRECTORY_ENTRY_LOAD_CONFIG    = 10; // Load Configuration Directory
  2039.   {$EXTERNALSYM IMAGE_DIRECTORY_ENTRY_LOAD_CONFIG}
  2040.   IMAGE_DIRECTORY_ENTRY_BOUND_IMPORT   = 11; // Bound Import Directory in headers
  2041.   {$EXTERNALSYM IMAGE_DIRECTORY_ENTRY_BOUND_IMPORT}
  2042.   IMAGE_DIRECTORY_ENTRY_IAT            = 12; // Import Address Table
  2043.   {$EXTERNALSYM IMAGE_DIRECTORY_ENTRY_IAT}
  2044.   IMAGE_DIRECTORY_ENTRY_DELAY_IMPORT   = 13; // Delay Load Import Descriptors
  2045.   {$EXTERNALSYM IMAGE_DIRECTORY_ENTRY_DELAY_IMPORT}
  2046.   IMAGE_DIRECTORY_ENTRY_COM_DESCRIPTOR = 14; // COM Runtime descriptor
  2047.   {$EXTERNALSYM IMAGE_DIRECTORY_ENTRY_COM_DESCRIPTOR}
  2049. //
  2050. // Non-COFF Object file header
  2051. //
  2053. type
  2054.   PAnonObjectHeader = ^ANON_OBJECT_HEADER;
  2055.   ANON_OBJECT_HEADER = record
  2056.     Sig1: Word;        // Must be IMAGE_FILE_MACHINE_UNKNOWN
  2057.     Sig2: Word;        // Must be 0xffff
  2058.     Version: Word;     // >= 1 (implies the CLSID field is present)
  2059.     Machine: Word;
  2060.     TimeDateStamp: DWORD;
  2061.     ClassID: CLSID;    // Used to invoke CoCreateInstance
  2062.     SizeOfData: DWORD; // Size of data that follows the header
  2063.   end;
  2064.   {$EXTERNALSYM ANON_OBJECT_HEADER}
  2065.   TAnonObjectHeader = ANON_OBJECT_HEADER;
  2067. //
  2068. // Section header format.
  2069. //
  2071. const
  2072.   IMAGE_SIZEOF_SHORT_NAME = 8;
  2073.   {$EXTERNALSYM IMAGE_SIZEOF_SHORT_NAME}
  2075. type
  2076.   TImgSecHdrMisc = record
  2077.     case Integer of
  2078.       0: (PhysicalAddress: DWORD);
  2079.       1: (VirtualSize: DWORD);
  2080.   end;
  2082.   PIMAGE_SECTION_HEADER = ^IMAGE_SECTION_HEADER;
  2083.   {$EXTERNALSYM PIMAGE_SECTION_HEADER}
  2084.   _IMAGE_SECTION_HEADER = record
  2085.     Name: array [0..IMAGE_SIZEOF_SHORT_NAME - 1] of BYTE;
  2086.     Misc: TImgSecHdrMisc;
  2087.     VirtualAddress: DWORD;
  2088.     SizeOfRawData: DWORD;
  2089.     PointerToRawData: DWORD;
  2090.     PointerToRelocations: DWORD;
  2091.     PointerToLinenumbers: DWORD;
  2092.     NumberOfRelocations: WORD;
  2093.     NumberOfLinenumbers: WORD;
  2094.     Characteristics: DWORD;
  2095.   end;
  2096.   {$EXTERNALSYM _IMAGE_SECTION_HEADER}
  2097.   IMAGE_SECTION_HEADER = _IMAGE_SECTION_HEADER;
  2098.   {$EXTERNALSYM IMAGE_SECTION_HEADER}
  2099.   TImageSectionHeader = IMAGE_SECTION_HEADER;
  2100.   PImageSectionHeader = PIMAGE_SECTION_HEADER;
  2102. const
  2103.   IMAGE_SIZEOF_SECTION_HEADER = 40;
  2104.   {$EXTERNALSYM IMAGE_SIZEOF_SECTION_HEADER}
  2106. //
  2107. // Section characteristics.
  2108. //
  2109. //      IMAGE_SCN_TYPE_REG                   0x00000000  // Reserved.
  2110. //      IMAGE_SCN_TYPE_DSECT                 0x00000001  // Reserved.
  2111. //      IMAGE_SCN_TYPE_NOLOAD                0x00000002  // Reserved.
  2112. //      IMAGE_SCN_TYPE_GROUP                 0x00000004  // Reserved.
  2114.   IMAGE_SCN_TYPE_NO_PAD = $00000008; // Reserved.
  2115.   {$EXTERNALSYM IMAGE_SCN_TYPE_NO_PAD}
  2117. //      IMAGE_SCN_TYPE_COPY                  0x00000010  // Reserved.
  2119.   IMAGE_SCN_CNT_CODE               = $00000020; // Section contains code.
  2120.   {$EXTERNALSYM IMAGE_SCN_CNT_CODE}
  2121.   IMAGE_SCN_CNT_INITIALIZED_DATA   = $00000040; // Section contains initialized data.
  2122.   {$EXTERNALSYM IMAGE_SCN_CNT_INITIALIZED_DATA}
  2123.   IMAGE_SCN_CNT_UNINITIALIZED_DATA = $00000080; // Section contains uninitialized data.
  2124.   {$EXTERNALSYM IMAGE_SCN_CNT_UNINITIALIZED_DATA}
  2126.   IMAGE_SCN_LNK_OTHER = $00000100; // Reserved.
  2127.   {$EXTERNALSYM IMAGE_SCN_LNK_OTHER}
  2128.   IMAGE_SCN_LNK_INFO  = $00000200; // Section contains comments or some other type of information.
  2129.   {$EXTERNALSYM IMAGE_SCN_LNK_INFO}
  2131. //      IMAGE_SCN_TYPE_OVER                  0x00000400  // Reserved.
  2133.   IMAGE_SCN_LNK_REMOVE = $00000800; // Section contents will not become part of image.
  2134.   {$EXTERNALSYM IMAGE_SCN_LNK_REMOVE}
  2135.   IMAGE_SCN_LNK_COMDAT = $00001000; // Section contents comdat.
  2136.   {$EXTERNALSYM IMAGE_SCN_LNK_COMDAT}
  2138. //                                           0x00002000  // Reserved.
  2139. //      IMAGE_SCN_MEM_PROTECTED - Obsolete   0x00004000
  2141.   IMAGE_SCN_NO_DEFER_SPEC_EXC = $00004000; // Reset speculative exceptions handling bits in the TLB entries for this section.
  2142.   {$EXTERNALSYM IMAGE_SCN_NO_DEFER_SPEC_EXC}
  2143.   IMAGE_SCN_GPREL             = $00008000; // Section content can be accessed relative to GP
  2144.   {$EXTERNALSYM IMAGE_SCN_GPREL}
  2145.   IMAGE_SCN_MEM_FARDATA       = $00008000;
  2146.   {$EXTERNALSYM IMAGE_SCN_MEM_FARDATA}
  2148. //      IMAGE_SCN_MEM_SYSHEAP  - Obsolete    0x00010000
  2150.   IMAGE_SCN_MEM_PURGEABLE = $00020000;
  2151.   {$EXTERNALSYM IMAGE_SCN_MEM_PURGEABLE}
  2152.   IMAGE_SCN_MEM_16BIT     = $00020000;
  2153.   {$EXTERNALSYM IMAGE_SCN_MEM_16BIT}
  2154.   IMAGE_SCN_MEM_LOCKED    = $00040000;
  2155.   {$EXTERNALSYM IMAGE_SCN_MEM_LOCKED}
  2156.   IMAGE_SCN_MEM_PRELOAD   = $00080000;
  2157.   {$EXTERNALSYM IMAGE_SCN_MEM_PRELOAD}
  2159.   IMAGE_SCN_ALIGN_1BYTES    = $00100000;
  2160.   {$EXTERNALSYM IMAGE_SCN_ALIGN_1BYTES}
  2161.   IMAGE_SCN_ALIGN_2BYTES    = $00200000;
  2162.   {$EXTERNALSYM IMAGE_SCN_ALIGN_2BYTES}
  2163.   IMAGE_SCN_ALIGN_4BYTES    = $00300000;
  2164.   {$EXTERNALSYM IMAGE_SCN_ALIGN_4BYTES}
  2165.   IMAGE_SCN_ALIGN_8BYTES    = $00400000;
  2166.   {$EXTERNALSYM IMAGE_SCN_ALIGN_8BYTES}
  2167.   IMAGE_SCN_ALIGN_16BYTES   = $00500000; // Default alignment if no others are specified.
  2168.   {$EXTERNALSYM IMAGE_SCN_ALIGN_16BYTES}
  2169.   IMAGE_SCN_ALIGN_32BYTES   = $00600000;
  2170.   {$EXTERNALSYM IMAGE_SCN_ALIGN_32BYTES}
  2171.   IMAGE_SCN_ALIGN_64BYTES   = $00700000;
  2172.   {$EXTERNALSYM IMAGE_SCN_ALIGN_64BYTES}
  2173.   IMAGE_SCN_ALIGN_128BYTES  = $00800000;
  2174.   {$EXTERNALSYM IMAGE_SCN_ALIGN_128BYTES}
  2175.   IMAGE_SCN_ALIGN_256BYTES  = $00900000;
  2176.   {$EXTERNALSYM IMAGE_SCN_ALIGN_256BYTES}
  2177.   IMAGE_SCN_ALIGN_512BYTES  = $00A00000;
  2178.   {$EXTERNALSYM IMAGE_SCN_ALIGN_512BYTES}
  2179.   IMAGE_SCN_ALIGN_1024BYTES = $00B00000;
  2180.   {$EXTERNALSYM IMAGE_SCN_ALIGN_1024BYTES}
  2181.   IMAGE_SCN_ALIGN_2048BYTES = $00C00000;
  2182.   {$EXTERNALSYM IMAGE_SCN_ALIGN_2048BYTES}
  2183.   IMAGE_SCN_ALIGN_4096BYTES = $00D00000;
  2184.   {$EXTERNALSYM IMAGE_SCN_ALIGN_4096BYTES}
  2185.   IMAGE_SCN_ALIGN_8192BYTES = $00E00000;
  2186.   {$EXTERNALSYM IMAGE_SCN_ALIGN_8192BYTES}
  2188. // Unused                                    0x00F00000
  2190.   IMAGE_SCN_ALIGN_MASK = $00F00000;
  2191.   {$EXTERNALSYM IMAGE_SCN_ALIGN_MASK}
  2193.   IMAGE_SCN_LNK_NRELOC_OVFL = $01000000; // Section contains extended relocations.
  2194.   {$EXTERNALSYM IMAGE_SCN_LNK_NRELOC_OVFL}
  2195.   IMAGE_SCN_MEM_DISCARDABLE = $02000000; // Section can be discarded.
  2196.   {$EXTERNALSYM IMAGE_SCN_MEM_DISCARDABLE}
  2197.   IMAGE_SCN_MEM_NOT_CACHED  = $04000000; // Section is not cachable.
  2198.   {$EXTERNALSYM IMAGE_SCN_MEM_NOT_CACHED}
  2199.   IMAGE_SCN_MEM_NOT_PAGED   = $08000000; // Section is not pageable.
  2200.   {$EXTERNALSYM IMAGE_SCN_MEM_NOT_PAGED}
  2201.   IMAGE_SCN_MEM_SHARED      = $10000000; // Section is shareable.
  2202.   {$EXTERNALSYM IMAGE_SCN_MEM_SHARED}
  2203.   IMAGE_SCN_MEM_EXECUTE     = $20000000; // Section is executable.
  2204.   {$EXTERNALSYM IMAGE_SCN_MEM_EXECUTE}
  2205.   IMAGE_SCN_MEM_READ        = $40000000; // Section is readable.
  2206.   {$EXTERNALSYM IMAGE_SCN_MEM_READ}
  2207.   IMAGE_SCN_MEM_WRITE       = DWORD($80000000); // Section is writeable.
  2208.   {$EXTERNALSYM IMAGE_SCN_MEM_WRITE}
  2210. //
  2211. // TLS Chaacteristic Flags
  2212. //
  2214.   IMAGE_SCN_SCALE_INDEX = $00000001; // Tls index is scaled
  2215.   {$EXTERNALSYM IMAGE_SCN_SCALE_INDEX}
  2217. // #include "pshpack2.h"                       // Symbols, relocs, and linenumbers are 2 byte packed
  2219. //
  2220. // Symbol format.
  2221. //
  2223. type
  2224.   TImageSymbolN = record
  2225.     case Integer of
  2226.       0: (
  2227.         ShortName: array [0..7] of BYTE);
  2228.       1: (
  2229.         Short: DWORD;     // if 0, use LongName
  2230.         Long: DWORD);     // offset into string table
  2231.       2: (
  2232.         LongName: array [0..1] of DWORD);
  2233.   end;
  2235.   PIMAGE_SYMBOL = ^IMAGE_SYMBOL;
  2236.   {$EXTERNALSYM PIMAGE_SYMBOL}
  2237.   _IMAGE_SYMBOL = record
  2238.     N: TImageSymbolN;
  2239.     Value: DWORD;
  2240.     SectionNumber: SHORT;
  2241.     Type_: WORD;
  2242.     StorageClass: BYTE;
  2243.     NumberOfAuxSymbols: BYTE;
  2244.   end;
  2245.   {$EXTERNALSYM _IMAGE_SYMBOL}
  2246.   IMAGE_SYMBOL = _IMAGE_SYMBOL;
  2247.   {$EXTERNALSYM IMAGE_SYMBOL}
  2248.   TImageSymbol = IMAGE_SYMBOL;
  2249.   PImageSymbol = PIMAGE_SYMBOL;
  2251. const
  2252.   IMAGE_SIZEOF_SYMBOL = 18;
  2253.   {$EXTERNALSYM IMAGE_SIZEOF_SYMBOL}
  2255. //
  2256. // Section values.
  2257. //
  2258. // Symbols have a section number of the section in which they are
  2259. // defined. Otherwise, section numbers have the following meanings:
  2260. //
  2262.   IMAGE_SYM_UNDEFINED = SHORT(0);  // Symbol is undefined or is common.
  2263.   {$EXTERNALSYM IMAGE_SYM_UNDEFINED}
  2264.   IMAGE_SYM_ABSOLUTE  = SHORT(-1); // Symbol is an absolute value.
  2265.   {$EXTERNALSYM IMAGE_SYM_ABSOLUTE}
  2266.   IMAGE_SYM_DEBUG     = SHORT(-2); // Symbol is a special debug item.
  2267.   {$EXTERNALSYM IMAGE_SYM_DEBUG}
  2268.   IMAGE_SYM_SECTION_MAX = SHORT($FEFF ); // Values 0xFF00-0xFFFF are special
  2269.   {$EXTERNALSYM IMAGE_SYM_SECTION_MAX}
  2271. //
  2272. // Type (fundamental) values.
  2273. //
  2275.   IMAGE_SYM_TYPE_NULL   = $0000; // no type.
  2276.   {$EXTERNALSYM IMAGE_SYM_TYPE_NULL}
  2277.   IMAGE_SYM_TYPE_VOID   = $0001;
  2278.   {$EXTERNALSYM IMAGE_SYM_TYPE_VOID}
  2279.   IMAGE_SYM_TYPE_CHAR   = $0002; // type character.
  2280.   {$EXTERNALSYM IMAGE_SYM_TYPE_CHAR}
  2281.   IMAGE_SYM_TYPE_SHORT  = $0003; // type short integer.
  2282.   {$EXTERNALSYM IMAGE_SYM_TYPE_SHORT}
  2283.   IMAGE_SYM_TYPE_INT    = $0004;
  2284.   {$EXTERNALSYM IMAGE_SYM_TYPE_INT}
  2285.   IMAGE_SYM_TYPE_LONG   = $0005;
  2286.   {$EXTERNALSYM IMAGE_SYM_TYPE_LONG}
  2287.   IMAGE_SYM_TYPE_FLOAT  = $0006;
  2288.   {$EXTERNALSYM IMAGE_SYM_TYPE_FLOAT}
  2289.   IMAGE_SYM_TYPE_DOUBLE = $0007;
  2290.   {$EXTERNALSYM IMAGE_SYM_TYPE_DOUBLE}
  2291.   IMAGE_SYM_TYPE_STRUCT = $0008;
  2292.   {$EXTERNALSYM IMAGE_SYM_TYPE_STRUCT}
  2293.   IMAGE_SYM_TYPE_UNION  = $0009;
  2294.   {$EXTERNALSYM IMAGE_SYM_TYPE_UNION}
  2295.   IMAGE_SYM_TYPE_ENUM   = $000A; // enumeration.
  2296.   {$EXTERNALSYM IMAGE_SYM_TYPE_ENUM}
  2297.   IMAGE_SYM_TYPE_MOE    = $000B; // member of enumeration.
  2298.   {$EXTERNALSYM IMAGE_SYM_TYPE_MOE}
  2299.   IMAGE_SYM_TYPE_BYTE   = $000C;
  2300.   {$EXTERNALSYM IMAGE_SYM_TYPE_BYTE}
  2301.   IMAGE_SYM_TYPE_WORD   = $000D;
  2302.   {$EXTERNALSYM IMAGE_SYM_TYPE_WORD}
  2303.   IMAGE_SYM_TYPE_UINT   = $000E;
  2304.   {$EXTERNALSYM IMAGE_SYM_TYPE_UINT}
  2305.   IMAGE_SYM_TYPE_DWORD  = $000F;
  2306.   {$EXTERNALSYM IMAGE_SYM_TYPE_DWORD}
  2307.   IMAGE_SYM_TYPE_PCODE  = $8000;
  2308.   {$EXTERNALSYM IMAGE_SYM_TYPE_PCODE}
  2310. //
  2311. // Type (derived) values.
  2312. //
  2314.   IMAGE_SYM_DTYPE_NULL     = 0; // no derived type.
  2315.   {$EXTERNALSYM IMAGE_SYM_DTYPE_NULL}
  2316.   IMAGE_SYM_DTYPE_POINTER  = 1; // pointer.
  2317.   {$EXTERNALSYM IMAGE_SYM_DTYPE_POINTER}
  2318.   IMAGE_SYM_DTYPE_FUNCTION = 2; // function.
  2319.   {$EXTERNALSYM IMAGE_SYM_DTYPE_FUNCTION}
  2320.   IMAGE_SYM_DTYPE_ARRAY    = 3; // array.
  2321.   {$EXTERNALSYM IMAGE_SYM_DTYPE_ARRAY}
  2323. //
  2324. // Storage classes.
  2325. //
  2327.   IMAGE_SYM_CLASS_END_OF_FUNCTION  = BYTE(-1);
  2328.   {$EXTERNALSYM IMAGE_SYM_CLASS_END_OF_FUNCTION}
  2329.   IMAGE_SYM_CLASS_NULL             = $0000;
  2330.   {$EXTERNALSYM IMAGE_SYM_CLASS_NULL}
  2331.   IMAGE_SYM_CLASS_AUTOMATIC        = $0001;
  2332.   {$EXTERNALSYM IMAGE_SYM_CLASS_AUTOMATIC}
  2333.   IMAGE_SYM_CLASS_EXTERNAL         = $0002;
  2334.   {$EXTERNALSYM IMAGE_SYM_CLASS_EXTERNAL}
  2335.   IMAGE_SYM_CLASS_STATIC           = $0003;
  2336.   {$EXTERNALSYM IMAGE_SYM_CLASS_STATIC}
  2337.   IMAGE_SYM_CLASS_REGISTER         = $0004;
  2338.   {$EXTERNALSYM IMAGE_SYM_CLASS_REGISTER}
  2339.   IMAGE_SYM_CLASS_EXTERNAL_DEF     = $0005;
  2340.   {$EXTERNALSYM IMAGE_SYM_CLASS_EXTERNAL_DEF}
  2341.   IMAGE_SYM_CLASS_LABEL            = $0006;
  2342.   {$EXTERNALSYM IMAGE_SYM_CLASS_LABEL}
  2343.   IMAGE_SYM_CLASS_UNDEFINED_LABEL  = $0007;
  2344.   {$EXTERNALSYM IMAGE_SYM_CLASS_UNDEFINED_LABEL}
  2345.   IMAGE_SYM_CLASS_MEMBER_OF_STRUCT = $0008;
  2346.   {$EXTERNALSYM IMAGE_SYM_CLASS_MEMBER_OF_STRUCT}
  2347.   IMAGE_SYM_CLASS_ARGUMENT         = $0009;
  2348.   {$EXTERNALSYM IMAGE_SYM_CLASS_ARGUMENT}
  2349.   IMAGE_SYM_CLASS_STRUCT_TAG       = $000A;
  2350.   {$EXTERNALSYM IMAGE_SYM_CLASS_STRUCT_TAG}
  2351.   IMAGE_SYM_CLASS_MEMBER_OF_UNION  = $000B;
  2352.   {$EXTERNALSYM IMAGE_SYM_CLASS_MEMBER_OF_UNION}
  2353.   IMAGE_SYM_CLASS_UNION_TAG        = $000C;
  2354.   {$EXTERNALSYM IMAGE_SYM_CLASS_UNION_TAG}
  2355.   IMAGE_SYM_CLASS_TYPE_DEFINITION  = $000D;
  2356.   {$EXTERNALSYM IMAGE_SYM_CLASS_TYPE_DEFINITION}
  2357.   IMAGE_SYM_CLASS_UNDEFINED_STATIC = $000E;
  2358.   {$EXTERNALSYM IMAGE_SYM_CLASS_UNDEFINED_STATIC}
  2359.   IMAGE_SYM_CLASS_ENUM_TAG         = $000F;
  2360.   {$EXTERNALSYM IMAGE_SYM_CLASS_ENUM_TAG}
  2361.   IMAGE_SYM_CLASS_MEMBER_OF_ENUM   = $0010;
  2362.   {$EXTERNALSYM IMAGE_SYM_CLASS_MEMBER_OF_ENUM}
  2363.   IMAGE_SYM_CLASS_REGISTER_PARAM   = $0011;
  2364.   {$EXTERNALSYM IMAGE_SYM_CLASS_REGISTER_PARAM}
  2365.   IMAGE_SYM_CLASS_BIT_FIELD        = $0012;
  2366.   {$EXTERNALSYM IMAGE_SYM_CLASS_BIT_FIELD}
  2368.   IMAGE_SYM_CLASS_FAR_EXTERNAL = $0044;
  2369.   {$EXTERNALSYM IMAGE_SYM_CLASS_FAR_EXTERNAL}
  2371.   IMAGE_SYM_CLASS_BLOCK         = $0064;
  2372.   {$EXTERNALSYM IMAGE_SYM_CLASS_BLOCK}
  2373.   IMAGE_SYM_CLASS_FUNCTION      = $0065;
  2374.   {$EXTERNALSYM IMAGE_SYM_CLASS_FUNCTION}
  2375.   IMAGE_SYM_CLASS_END_OF_STRUCT = $0066;
  2376.   {$EXTERNALSYM IMAGE_SYM_CLASS_END_OF_STRUCT}
  2377.   IMAGE_SYM_CLASS_FILE          = $0067;
  2378.   {$EXTERNALSYM IMAGE_SYM_CLASS_FILE}
  2380. // new
  2382.   IMAGE_SYM_CLASS_SECTION       = $0068;
  2383.   {$EXTERNALSYM IMAGE_SYM_CLASS_SECTION}
  2384.   IMAGE_SYM_CLASS_WEAK_EXTERNAL = $0069;
  2385.   {$EXTERNALSYM IMAGE_SYM_CLASS_WEAK_EXTERNAL}
  2387.   IMAGE_SYM_CLASS_CLR_TOKEN     = $006B;
  2388.   {$EXTERNALSYM IMAGE_SYM_CLASS_CLR_TOKEN}
  2390. // type packing constants
  2392.   N_BTMASK = $000F;
  2393.   {$EXTERNALSYM N_BTMASK}
  2394.   N_TMASK  = $0030;
  2395.   {$EXTERNALSYM N_TMASK}
  2396.   N_TMASK1 = $00C0;
  2397.   {$EXTERNALSYM N_TMASK1}
  2398.   N_TMASK2 = $00F0;
  2399.   {$EXTERNALSYM N_TMASK2}
  2400.   N_BTSHFT = 4;
  2401.   {$EXTERNALSYM N_BTSHFT}
  2402.   N_TSHIFT = 2;
  2403.   {$EXTERNALSYM N_TSHIFT}
  2405. // MACROS
  2407. // Basic Type of  x
  2409. function BTYPE(x: DWORD): DWORD;
  2410. {$EXTERNALSYM BTYPE}
  2412. // Is x a pointer?
  2414. function ISPTR(x: DWORD): Boolean;
  2415. {$EXTERNALSYM ISPTR}
  2417. // Is x a function?
  2419. function ISFCN(x: DWORD): Boolean;
  2420. {$EXTERNALSYM ISFCN}
  2422. // Is x an array?
  2424. function ISARY(x: DWORD): Boolean;
  2425. {$EXTERNALSYM ISARY}
  2427. // Is x a structure, union, or enumeration TAG?
  2429. function ISTAG(x: DWORD): Boolean;
  2430. {$EXTERNALSYM ISTAG}
  2432. //
  2433. // Auxiliary entry format.
  2434. //
  2436. type
  2437.   TImgAuzSymSymMisc = record
  2438.     case Integer of
  2439.       0: (
  2440.         Linenumber: WORD;             // declaration line number
  2441.         Size: WORD);                  // size of struct, union, or enum
  2442.       1: (
  2443.         TotalSize: DWORD);
  2444.   end;
  2446.   TImgAuzSymSymFcnAry = record
  2447.     case Integer of
  2448.       0: ( // if ISFCN, tag, or .bb
  2449.         PointerToLinenumber: DWORD;
  2450.         PointerToNextFunction: DWORD);
  2451.       1: ( // if ISARY, up to 4 dimen.
  2452.         Dimension: array [0..3] of WORD);
  2453.   end;
  2455.   TImgAuxSymSym = record
  2456.     TagIndex: DWORD;                      // struct, union, or enum tag index
  2457.     Misc: TImgAuzSymSymMisc;
  2458.     FcnAry: TImgAuzSymSymFcnAry;
  2459.     TvIndex: WORD;                        // tv index
  2460.   end;
  2462.   TImgAuxSymFile = record
  2463.     Name: array [0..IMAGE_SIZEOF_SYMBOL - 1] of BYTE;
  2464.   end;
  2466.   TImgAuxSymSection = record
  2467.     Length: DWORD;                         // section length
  2468.     NumberOfRelocations: WORD;             // number of relocation entries
  2469.     NumberOfLinenumbers: WORD;             // number of line numbers
  2470.     CheckSum: DWORD;                       // checksum for communal
  2471.     Number: SHORT;                         // section number to associate with
  2472.     Selection: BYTE;                       // communal selection type
  2473.   end;
  2475.   PIMAGE_AUX_SYMBOL = ^IMAGE_AUX_SYMBOL;
  2476.   {$EXTERNALSYM PIMAGE_AUX_SYMBOL}
  2477.   _IMAGE_AUX_SYMBOL = record
  2478.     case Integer of
  2479.       0: (Sym: TImgAuxSymSym);
  2480.       1: (File_: TImgAuxSymFile);
  2481.       2: (Section: TImgAuxSymSection);
  2482.   end;
  2483.   {$EXTERNALSYM _IMAGE_AUX_SYMBOL}
  2484.   IMAGE_AUX_SYMBOL = _IMAGE_AUX_SYMBOL;
  2485.   {$EXTERNALSYM IMAGE_AUX_SYMBOL}
  2486.   TImageAuxSymbol = IMAGE_AUX_SYMBOL;
  2487.   PImageAuxSymbol = PIMAGE_AUX_SYMBOL;
  2489. const
  2490.   IMAGE_SIZEOF_AUX_SYMBOL = 18;
  2491.   {$EXTERNALSYM IMAGE_SIZEOF_AUX_SYMBOL}
  2493.   IMAGE_AUX_SYMBOL_TYPE_TOKEN_DEF = 1;
  2494.   {$EXTERNALSYM IMAGE_AUX_SYMBOL_TYPE_TOKEN_DEF}
  2496. type
  2497.   IMAGE_AUX_SYMBOL_TYPE = DWORD;
  2498.   {$EXTERNALSYM IMAGE_AUX_SYMBOL_TYPE}
  2499.   TImageAuxSymbolType = IMAGE_AUX_SYMBOL_TYPE;
  2501.   IMAGE_AUX_SYMBOL_TOKEN_DEF = packed record
  2502.     bAuxType: BYTE;                  // IMAGE_AUX_SYMBOL_TYPE
  2503.     bReserved: BYTE;                 // Must be 0
  2504.     SymbolTableIndex: DWORD;
  2505.     rgbReserved: array [0..11] of BYTE;           // Must be 0
  2506.   end;
  2507.   {$EXTERNALSYM IMAGE_AUX_SYMBOL_TOKEN_DEF}
  2508.   PIMAGE_AUX_SYMBOL_TOKEN_DEF = ^IMAGE_AUX_SYMBOL_TOKEN_DEF;
  2509.   {$EXTERNALSYM PIMAGE_AUX_SYMBOL_TOKEN_DEF}
  2510.   TImageAuxSymbolTokenDef = IMAGE_AUX_SYMBOL_TOKEN_DEF;
  2511.   PImageAuxSymbolTokenDef = PIMAGE_AUX_SYMBOL_TOKEN_DEF;
  2513. //
  2514. // Communal selection types.
  2515. //
  2517. const
  2518.   IMAGE_COMDAT_SELECT_NODUPLICATES = 1;
  2519.   {$EXTERNALSYM IMAGE_COMDAT_SELECT_NODUPLICATES}
  2520.   IMAGE_COMDAT_SELECT_ANY          = 2;
  2521.   {$EXTERNALSYM IMAGE_COMDAT_SELECT_ANY}
  2522.   IMAGE_COMDAT_SELECT_SAME_SIZE    = 3;
  2523.   {$EXTERNALSYM IMAGE_COMDAT_SELECT_SAME_SIZE}
  2524.   IMAGE_COMDAT_SELECT_EXACT_MATCH  = 4;
  2525.   {$EXTERNALSYM IMAGE_COMDAT_SELECT_EXACT_MATCH}
  2526.   IMAGE_COMDAT_SELECT_ASSOCIATIVE  = 5;
  2527.   {$EXTERNALSYM IMAGE_COMDAT_SELECT_ASSOCIATIVE}
  2528.   IMAGE_COMDAT_SELECT_LARGEST      = 6;
  2529.   {$EXTERNALSYM IMAGE_COMDAT_SELECT_LARGEST}
  2530.   IMAGE_COMDAT_SELECT_NEWEST       = 7;
  2531.   {$EXTERNALSYM IMAGE_COMDAT_SELECT_NEWEST}
  2533.   IMAGE_WEAK_EXTERN_SEARCH_NOLIBRARY = 1;
  2534.   {$EXTERNALSYM IMAGE_WEAK_EXTERN_SEARCH_NOLIBRARY}
  2535.   IMAGE_WEAK_EXTERN_SEARCH_LIBRARY   = 2;
  2536.   {$EXTERNALSYM IMAGE_WEAK_EXTERN_SEARCH_LIBRARY}
  2537.   IMAGE_WEAK_EXTERN_SEARCH_ALIAS     = 3;
  2538.   {$EXTERNALSYM IMAGE_WEAK_EXTERN_SEARCH_ALIAS}
  2540. //
  2541. // Relocation format.
  2542. //
  2544. type
  2545.   TImgRelocUnion = record
  2546.     case Integer of
  2547.       0: (VirtualAddress: DWORD);
  2548.       1: (RelocCount: DWORD);  // Set to the real count when IMAGE_SCN_LNK_NRELOC_OVFL is set
  2549.   end;
  2551.   PIMAGE_RELOCATION = ^IMAGE_RELOCATION;
  2552.   {$EXTERNALSYM PIMAGE_RELOCATION}
  2553.   _IMAGE_RELOCATION = record
  2554.     Union: TImgRelocUnion;
  2555.     SymbolTableIndex: DWORD;
  2556.     Type_: WORD;
  2557.   end;
  2558.   {$EXTERNALSYM _IMAGE_RELOCATION}
  2559.   IMAGE_RELOCATION = _IMAGE_RELOCATION;
  2560.   {$EXTERNALSYM IMAGE_RELOCATION}
  2561.   TImageRelocation = IMAGE_RELOCATION;
  2562.   PImageRelocation = PIMAGE_RELOCATION;
  2564. const
  2565.   IMAGE_SIZEOF_RELOCATION = 10;
  2566.   {$EXTERNALSYM IMAGE_SIZEOF_RELOCATION}
  2568. //
  2569. // I386 relocation types.
  2570. //
  2572.   IMAGE_REL_I386_ABSOLUTE = $0000; // Reference is absolute, no relocation is necessary
  2573.   {$EXTERNALSYM IMAGE_REL_I386_ABSOLUTE}
  2574.   IMAGE_REL_I386_DIR16    = $0001; // Direct 16-bit reference to the symbols virtual address
  2575.   {$EXTERNALSYM IMAGE_REL_I386_DIR16}
  2576.   IMAGE_REL_I386_REL16    = $0002; // PC-relative 16-bit reference to the symbols virtual address
  2577.   {$EXTERNALSYM IMAGE_REL_I386_REL16}
  2578.   IMAGE_REL_I386_DIR32    = $0006; // Direct 32-bit reference to the symbols virtual address
  2579.   {$EXTERNALSYM IMAGE_REL_I386_DIR32}
  2580.   IMAGE_REL_I386_DIR32NB  = $0007; // Direct 32-bit reference to the symbols virtual address, base not included
  2581.   {$EXTERNALSYM IMAGE_REL_I386_DIR32NB}
  2582.   IMAGE_REL_I386_SEG12    = $0009; // Direct 16-bit reference to the segment-selector bits of a 32-bit virtual address
  2583.   {$EXTERNALSYM IMAGE_REL_I386_SEG12}
  2584.   IMAGE_REL_I386_SECTION  = $000A;
  2585.   {$EXTERNALSYM IMAGE_REL_I386_SECTION}
  2586.   IMAGE_REL_I386_SECREL   = $000B;
  2587.   {$EXTERNALSYM IMAGE_REL_I386_SECREL}
  2588.   IMAGE_REL_MIPS_SECRELLO = $000C; // Low 16-bit section relative referemce (used for >32k TLS)
  2589.   {$EXTERNALSYM IMAGE_REL_MIPS_SECRELLO}
  2590.   IMAGE_REL_MIPS_SECRELHI = $000D; // High 16-bit section relative reference (used for >32k TLS)
  2591.   {$EXTERNALSYM IMAGE_REL_MIPS_SECRELHI}
  2592.   IMAGE_REL_I386_REL32    = $0014; // PC-relative 32-bit reference to the symbols virtual address
  2593.   {$EXTERNALSYM IMAGE_REL_I386_REL32}
  2595. //
  2596. // MIPS relocation types.
  2597. //
  2599.   IMAGE_REL_MIPS_ABSOLUTE  = $0000; // Reference is absolute, no relocation is necessary
  2600.   {$EXTERNALSYM IMAGE_REL_MIPS_ABSOLUTE}
  2601.   IMAGE_REL_MIPS_REFHALF   = $0001;
  2602.   {$EXTERNALSYM IMAGE_REL_MIPS_REFHALF}
  2603.   IMAGE_REL_MIPS_REFWORD   = $0002;
  2604.   {$EXTERNALSYM IMAGE_REL_MIPS_REFWORD}
  2605.   IMAGE_REL_MIPS_JMPADDR   = $0003;
  2606.   {$EXTERNALSYM IMAGE_REL_MIPS_JMPADDR}
  2607.   IMAGE_REL_MIPS_REFHI     = $0004;
  2608.   {$EXTERNALSYM IMAGE_REL_MIPS_REFHI}
  2609.   IMAGE_REL_MIPS_REFLO     = $0005;
  2610.   {$EXTERNALSYM IMAGE_REL_MIPS_REFLO}
  2611.   IMAGE_REL_MIPS_GPREL     = $0006;
  2612.   {$EXTERNALSYM IMAGE_REL_MIPS_GPREL}
  2613.   IMAGE_REL_MIPS_LITERAL   = $0007;
  2614.   {$EXTERNALSYM IMAGE_REL_MIPS_LITERAL}
  2615.   IMAGE_REL_MIPS_SECTION   = $000A;
  2616.   {$EXTERNALSYM IMAGE_REL_MIPS_SECTION}
  2617.   IMAGE_REL_MIPS_SECREL    = $000B;
  2618.   {$EXTERNALSYM IMAGE_REL_MIPS_SECREL}
  2619.   //IMAGE_REL_MIPS_SECRELLO  = $000C; // Low 16-bit section relative referemce (used for >32k TLS)
  2620.   //{$EXTERNALSYM IMAGE_REL_MIPS_SECRELLO}
  2621.   //IMAGE_REL_MIPS_SECRELHI  = $000D; // High 16-bit section relative reference (used for >32k TLS)
  2622.   //{$EXTERNALSYM IMAGE_REL_MIPS_SECRELHI}
  2623.   IMAGE_REL_MIPS_TOKEN     = $000E; // clr token
  2624.   {$EXTERNALSYM IMAGE_REL_MIPS_TOKEN}
  2625.   IMAGE_REL_MIPS_JMPADDR16 = $0010;
  2626.   {$EXTERNALSYM IMAGE_REL_MIPS_JMPADDR16}
  2627.   IMAGE_REL_MIPS_REFWORDNB = $0022;
  2628.   {$EXTERNALSYM IMAGE_REL_MIPS_REFWORDNB}
  2629.   IMAGE_REL_MIPS_PAIR      = $0025;
  2630.   {$EXTERNALSYM IMAGE_REL_MIPS_PAIR}
  2632. //
  2633. // Alpha Relocation types.
  2634. //
  2636.   IMAGE_REL_ALPHA_ABSOLUTE       = $0000;
  2637.   {$EXTERNALSYM IMAGE_REL_ALPHA_ABSOLUTE}
  2638.   IMAGE_REL_ALPHA_REFLONG        = $0001;
  2639.   {$EXTERNALSYM IMAGE_REL_ALPHA_REFLONG}
  2640.   IMAGE_REL_ALPHA_REFQUAD        = $0002;
  2641.   {$EXTERNALSYM IMAGE_REL_ALPHA_REFQUAD}
  2642.   IMAGE_REL_ALPHA_GPREL32        = $0003;
  2643.   {$EXTERNALSYM IMAGE_REL_ALPHA_GPREL32}
  2644.   IMAGE_REL_ALPHA_LITERAL        = $0004;
  2645.   {$EXTERNALSYM IMAGE_REL_ALPHA_LITERAL}
  2646.   IMAGE_REL_ALPHA_LITUSE         = $0005;
  2647.   {$EXTERNALSYM IMAGE_REL_ALPHA_LITUSE}
  2648.   IMAGE_REL_ALPHA_GPDISP         = $0006;
  2649.   {$EXTERNALSYM IMAGE_REL_ALPHA_GPDISP}
  2650.   IMAGE_REL_ALPHA_BRADDR         = $0007;
  2651.   {$EXTERNALSYM IMAGE_REL_ALPHA_BRADDR}
  2652.   IMAGE_REL_ALPHA_HINT           = $0008;
  2653.   {$EXTERNALSYM IMAGE_REL_ALPHA_HINT}
  2654.   IMAGE_REL_ALPHA_INLINE_REFLONG = $0009;
  2655.   {$EXTERNALSYM IMAGE_REL_ALPHA_INLINE_REFLONG}
  2656.   IMAGE_REL_ALPHA_REFHI          = $000A;
  2657.   {$EXTERNALSYM IMAGE_REL_ALPHA_REFHI}
  2658.   IMAGE_REL_ALPHA_REFLO          = $000B;
  2659.   {$EXTERNALSYM IMAGE_REL_ALPHA_REFLO}
  2660.   IMAGE_REL_ALPHA_PAIR           = $000C;
  2661.   {$EXTERNALSYM IMAGE_REL_ALPHA_PAIR}
  2662.   IMAGE_REL_ALPHA_MATCH          = $000D;
  2663.   {$EXTERNALSYM IMAGE_REL_ALPHA_MATCH}
  2664.   IMAGE_REL_ALPHA_SECTION        = $000E;
  2665.   {$EXTERNALSYM IMAGE_REL_ALPHA_SECTION}
  2666.   IMAGE_REL_ALPHA_SECREL         = $000F;
  2667.   {$EXTERNALSYM IMAGE_REL_ALPHA_SECREL}
  2668.   IMAGE_REL_ALPHA_REFLONGNB      = $0010;
  2669.   {$EXTERNALSYM IMAGE_REL_ALPHA_REFLONGNB}
  2670.   IMAGE_REL_ALPHA_SECRELLO       = $0011; // Low 16-bit section relative reference
  2671.   {$EXTERNALSYM IMAGE_REL_ALPHA_SECRELLO}
  2672.   IMAGE_REL_ALPHA_SECRELHI       = $0012; // High 16-bit section relative reference
  2673.   {$EXTERNALSYM IMAGE_REL_ALPHA_SECRELHI}
  2674.   IMAGE_REL_ALPHA_REFQ3          = $0013; // High 16 bits of 48 bit reference
  2675.   {$EXTERNALSYM IMAGE_REL_ALPHA_REFQ3}
  2676.   IMAGE_REL_ALPHA_REFQ2          = $0014; // Middle 16 bits of 48 bit reference
  2677.   {$EXTERNALSYM IMAGE_REL_ALPHA_REFQ2}
  2678.   IMAGE_REL_ALPHA_REFQ1          = $0015; // Low 16 bits of 48 bit reference
  2679.   {$EXTERNALSYM IMAGE_REL_ALPHA_REFQ1}
  2680.   IMAGE_REL_ALPHA_GPRELLO        = $0016; // Low 16-bit GP relative reference
  2681.   {$EXTERNALSYM IMAGE_REL_ALPHA_GPRELLO}
  2682.   IMAGE_REL_ALPHA_GPRELHI        = $0017; // High 16-bit GP relative reference
  2683.   {$EXTERNALSYM IMAGE_REL_ALPHA_GPRELHI}
  2685. //
  2686. // IBM PowerPC relocation types.
  2687. //
  2689.   IMAGE_REL_PPC_ABSOLUTE = $0000; // NOP
  2690.   {$EXTERNALSYM IMAGE_REL_PPC_ABSOLUTE}
  2691.   IMAGE_REL_PPC_ADDR64   = $0001; // 64-bit address
  2692.   {$EXTERNALSYM IMAGE_REL_PPC_ADDR64}
  2693.   IMAGE_REL_PPC_ADDR32   = $0002; // 32-bit address
  2694.   {$EXTERNALSYM IMAGE_REL_PPC_ADDR32}
  2695.   IMAGE_REL_PPC_ADDR24   = $0003; // 26-bit address, shifted left 2 (branch absolute)
  2696.   {$EXTERNALSYM IMAGE_REL_PPC_ADDR24}
  2697.   IMAGE_REL_PPC_ADDR16   = $0004; // 16-bit address
  2698.   {$EXTERNALSYM IMAGE_REL_PPC_ADDR16}
  2699.   IMAGE_REL_PPC_ADDR14   = $0005; // 16-bit address, shifted left 2 (load doubleword)
  2700.   {$EXTERNALSYM IMAGE_REL_PPC_ADDR14}
  2701.   IMAGE_REL_PPC_REL24    = $0006; // 26-bit PC-relative offset, shifted left 2 (branch relative)
  2702.   {$EXTERNALSYM IMAGE_REL_PPC_REL24}
  2703.   IMAGE_REL_PPC_REL14    = $0007; // 16-bit PC-relative offset, shifted left 2 (br cond relative)
  2704.   {$EXTERNALSYM IMAGE_REL_PPC_REL14}
  2705.   IMAGE_REL_PPC_TOCREL16 = $0008; // 16-bit offset from TOC base
  2706.   {$EXTERNALSYM IMAGE_REL_PPC_TOCREL16}
  2707.   IMAGE_REL_PPC_TOCREL14 = $0009; // 16-bit offset from TOC base, shifted left 2 (load doubleword)
  2708.   {$EXTERNALSYM IMAGE_REL_PPC_TOCREL14}
  2710.   IMAGE_REL_PPC_ADDR32NB = $000A; // 32-bit addr w/o image base
  2711.   {$EXTERNALSYM IMAGE_REL_PPC_ADDR32NB}
  2712.   IMAGE_REL_PPC_SECREL   = $000B; // va of containing section (as in an image sectionhdr)
  2713.   {$EXTERNALSYM IMAGE_REL_PPC_SECREL}
  2714.   IMAGE_REL_PPC_SECTION  = $000C; // sectionheader number
  2715.   {$EXTERNALSYM IMAGE_REL_PPC_SECTION}
  2716.   IMAGE_REL_PPC_IFGLUE   = $000D; // substitute TOC restore instruction iff symbol is glue code
  2717.   {$EXTERNALSYM IMAGE_REL_PPC_IFGLUE}
  2718.   IMAGE_REL_PPC_IMGLUE   = $000E; // symbol is glue code; virtual address is TOC restore instruction
  2719.   {$EXTERNALSYM IMAGE_REL_PPC_IMGLUE}
  2720.   IMAGE_REL_PPC_SECREL16 = $000F; // va of containing section (limited to 16 bits)
  2721.   {$EXTERNALSYM IMAGE_REL_PPC_SECREL16}
  2722.   IMAGE_REL_PPC_REFHI    = $0010;
  2723.   {$EXTERNALSYM IMAGE_REL_PPC_REFHI}
  2724.   IMAGE_REL_PPC_REFLO    = $0011;
  2725.   {$EXTERNALSYM IMAGE_REL_PPC_REFLO}
  2726.   IMAGE_REL_PPC_PAIR     = $0012;
  2727.   {$EXTERNALSYM IMAGE_REL_PPC_PAIR}
  2728.   IMAGE_REL_PPC_SECRELLO = $0013; // Low 16-bit section relative reference (used for >32k TLS)
  2729.   {$EXTERNALSYM IMAGE_REL_PPC_SECRELLO}
  2730.   IMAGE_REL_PPC_SECRELHI = $0014; // High 16-bit section relative reference (used for >32k TLS)
  2731.   {$EXTERNALSYM IMAGE_REL_PPC_SECRELHI}
  2732.   IMAGE_REL_PPC_GPREL    = $0015;
  2733.   {$EXTERNALSYM IMAGE_REL_PPC_GPREL}
  2734.   IMAGE_REL_PPC_TOKEN    = $0016; // clr token
  2735.   {$EXTERNALSYM IMAGE_REL_PPC_TOKEN}
  2737.   IMAGE_REL_PPC_TYPEMASK = $00FF; // mask to isolate above values in IMAGE_RELOCATION.Type
  2738.   {$EXTERNALSYM IMAGE_REL_PPC_TYPEMASK}
  2740. // Flag bits in IMAGE_RELOCATION.TYPE
  2742.   IMAGE_REL_PPC_NEG      = $0100; // subtract reloc value rather than adding it
  2743.   {$EXTERNALSYM IMAGE_REL_PPC_NEG}
  2744.   IMAGE_REL_PPC_BRTAKEN  = $0200; // fix branch prediction bit to predict branch taken
  2745.   {$EXTERNALSYM IMAGE_REL_PPC_BRTAKEN}
  2746.   IMAGE_REL_PPC_BRNTAKEN = $0400; // fix branch prediction bit to predict branch not taken
  2747.   {$EXTERNALSYM IMAGE_REL_PPC_BRNTAKEN}
  2748.   IMAGE_REL_PPC_TOCDEFN  = $0800; // toc slot defined in file (or, data in toc)
  2749.   {$EXTERNALSYM IMAGE_REL_PPC_TOCDEFN}
  2751. //
  2752. // Hitachi SH3 relocation types.
  2753. //
  2755.   IMAGE_REL_SH3_ABSOLUTE        = $0000; // No relocation
  2756.   {$EXTERNALSYM IMAGE_REL_SH3_ABSOLUTE}
  2757.   IMAGE_REL_SH3_DIRECT16        = $0001; // 16 bit direct
  2758.   {$EXTERNALSYM IMAGE_REL_SH3_DIRECT16}
  2759.   IMAGE_REL_SH3_DIRECT32        = $0002; // 32 bit direct
  2760.   {$EXTERNALSYM IMAGE_REL_SH3_DIRECT32}
  2761.   IMAGE_REL_SH3_DIRECT8         = $0003; // 8 bit direct, -128..255
  2762.   {$EXTERNALSYM IMAGE_REL_SH3_DIRECT8}
  2763.   IMAGE_REL_SH3_DIRECT8_WORD    = $0004; // 8 bit direct .W (0 ext.)
  2764.   {$EXTERNALSYM IMAGE_REL_SH3_DIRECT8_WORD}
  2765.   IMAGE_REL_SH3_DIRECT8_LONG    = $0005; // 8 bit direct .L (0 ext.)
  2766.   {$EXTERNALSYM IMAGE_REL_SH3_DIRECT8_LONG}
  2767.   IMAGE_REL_SH3_DIRECT4         = $0006; // 4 bit direct (0 ext.)
  2768.   {$EXTERNALSYM IMAGE_REL_SH3_DIRECT4}
  2769.   IMAGE_REL_SH3_DIRECT4_WORD    = $0007; // 4 bit direct .W (0 ext.)
  2770.   {$EXTERNALSYM IMAGE_REL_SH3_DIRECT4_WORD}
  2771.   IMAGE_REL_SH3_DIRECT4_LONG    = $0008; // 4 bit direct .L (0 ext.)
  2772.   {$EXTERNALSYM IMAGE_REL_SH3_DIRECT4_LONG}
  2773.   IMAGE_REL_SH3_PCREL8_WORD     = $0009; // 8 bit PC relative .W
  2774.   {$EXTERNALSYM IMAGE_REL_SH3_PCREL8_WORD}
  2775.   IMAGE_REL_SH3_PCREL8_LONG     = $000A; // 8 bit PC relative .L
  2776.   {$EXTERNALSYM IMAGE_REL_SH3_PCREL8_LONG}
  2777.   IMAGE_REL_SH3_PCREL12_WORD    = $000B; // 12 LSB PC relative .W
  2778.   {$EXTERNALSYM IMAGE_REL_SH3_PCREL12_WORD}
  2779.   IMAGE_REL_SH3_STARTOF_SECTION = $000C; // Start of EXE section
  2780.   {$EXTERNALSYM IMAGE_REL_SH3_STARTOF_SECTION}
  2781.   IMAGE_REL_SH3_SIZEOF_SECTION  = $000D; // Size of EXE section
  2782.   {$EXTERNALSYM IMAGE_REL_SH3_SIZEOF_SECTION}
  2783.   IMAGE_REL_SH3_SECTION         = $000E; // Section table index
  2784.   {$EXTERNALSYM IMAGE_REL_SH3_SECTION}
  2785.   IMAGE_REL_SH3_SECREL          = $000F; // Offset within section
  2786.   {$EXTERNALSYM IMAGE_REL_SH3_SECREL}
  2787.   IMAGE_REL_SH3_DIRECT32_NB     = $0010; // 32 bit direct not based
  2788.   {$EXTERNALSYM IMAGE_REL_SH3_DIRECT32_NB}
  2789.   IMAGE_REL_SH3_GPREL4_LONG     = $0011; // GP-relative addressing
  2790.   {$EXTERNALSYM IMAGE_REL_SH3_GPREL4_LONG}
  2791.   IMAGE_REL_SH3_TOKEN           = $0012; // clr token
  2792.   {$EXTERNALSYM IMAGE_REL_SH3_TOKEN}
  2794.   IMAGE_REL_ARM_ABSOLUTE = $0000; // No relocation required
  2795.   {$EXTERNALSYM IMAGE_REL_ARM_ABSOLUTE}
  2796.   IMAGE_REL_ARM_ADDR32   = $0001; // 32 bit address
  2797.   {$EXTERNALSYM IMAGE_REL_ARM_ADDR32}
  2798.   IMAGE_REL_ARM_ADDR32NB = $0002; // 32 bit address w/o image base
  2799.   {$EXTERNALSYM IMAGE_REL_ARM_ADDR32NB}
  2800.   IMAGE_REL_ARM_BRANCH24 = $0003; // 24 bit offset << 2 & sign ext.
  2801.   {$EXTERNALSYM IMAGE_REL_ARM_BRANCH24}
  2802.   IMAGE_REL_ARM_BRANCH11 = $0004; // Thumb: 2 11 bit offsets
  2803.   {$EXTERNALSYM IMAGE_REL_ARM_BRANCH11}
  2804.   IMAGE_REL_ARM_TOKEN    = $0005; // clr token
  2805.   {$EXTERNALSYM IMAGE_REL_ARM_TOKEN}
  2806.   IMAGE_REL_ARM_GPREL12  = $0006; // GP-relative addressing (ARM)
  2807.   {$EXTERNALSYM IMAGE_REL_ARM_GPREL12}
  2808.   IMAGE_REL_ARM_GPREL7   = $0007; // GP-relative addressing (Thumb)
  2809.   {$EXTERNALSYM IMAGE_REL_ARM_GPREL7}
  2810.   IMAGE_REL_ARM_BLX24    = $0008;
  2811.   {$EXTERNALSYM IMAGE_REL_ARM_BLX24}
  2812.   IMAGE_REL_ARM_BLX11    = $0009;
  2813.   {$EXTERNALSYM IMAGE_REL_ARM_BLX11}
  2814.   IMAGE_REL_ARM_SECTION  = $000E; // Section table index
  2815.   {$EXTERNALSYM IMAGE_REL_ARM_SECTION}
  2816.   IMAGE_REL_ARM_SECREL   = $000F; // Offset within section
  2817.   {$EXTERNALSYM IMAGE_REL_ARM_SECREL}
  2819.   IMAGE_REL_AM_ABSOLUTE = $0000;
  2820.   {$EXTERNALSYM IMAGE_REL_AM_ABSOLUTE}
  2821.   IMAGE_REL_AM_ADDR32   = $0001;
  2822.   {$EXTERNALSYM IMAGE_REL_AM_ADDR32}
  2823.   IMAGE_REL_AM_ADDR32NB = $0002;
  2824.   {$EXTERNALSYM IMAGE_REL_AM_ADDR32NB}
  2825.   IMAGE_REL_AM_CALL32   = $0003;
  2826.   {$EXTERNALSYM IMAGE_REL_AM_CALL32}
  2827.   IMAGE_REL_AM_FUNCINFO = $0004;
  2828.   {$EXTERNALSYM IMAGE_REL_AM_FUNCINFO}
  2829.   IMAGE_REL_AM_REL32_1  = $0005;
  2830.   {$EXTERNALSYM IMAGE_REL_AM_REL32_1}
  2831.   IMAGE_REL_AM_REL32_2  = $0006;
  2832.   {$EXTERNALSYM IMAGE_REL_AM_REL32_2}
  2833.   IMAGE_REL_AM_SECREL   = $0007;
  2834.   {$EXTERNALSYM IMAGE_REL_AM_SECREL}
  2835.   IMAGE_REL_AM_SECTION  = $0008;
  2836.   {$EXTERNALSYM IMAGE_REL_AM_SECTION}
  2837.   IMAGE_REL_AM_TOKEN    = $0009;
  2838.   {$EXTERNALSYM IMAGE_REL_AM_TOKEN}
  2840. //
  2841. // X86-64 relocations
  2842. //
  2844.   IMAGE_REL_AMD64_ABSOLUTE = $0000; // Reference is absolute, no relocation is necessary
  2845.   {$EXTERNALSYM IMAGE_REL_AMD64_ABSOLUTE}
  2846.   IMAGE_REL_AMD64_ADDR64   = $0001; // 64-bit address (VA).
  2847.   {$EXTERNALSYM IMAGE_REL_AMD64_ADDR64}
  2848.   IMAGE_REL_AMD64_ADDR32   = $0002; // 32-bit address (VA).
  2849.   {$EXTERNALSYM IMAGE_REL_AMD64_ADDR32}
  2850.   IMAGE_REL_AMD64_ADDR32NB = $0003; // 32-bit address w/o image base (RVA).
  2851.   {$EXTERNALSYM IMAGE_REL_AMD64_ADDR32NB}
  2852.   IMAGE_REL_AMD64_REL32    = $0004; // 32-bit relative address from byte following reloc
  2853.   {$EXTERNALSYM IMAGE_REL_AMD64_REL32}
  2854.   IMAGE_REL_AMD64_REL32_1  = $0005; // 32-bit relative address from byte distance 1 from reloc
  2855.   {$EXTERNALSYM IMAGE_REL_AMD64_REL32_1}
  2856.   IMAGE_REL_AMD64_REL32_2  = $0006; // 32-bit relative address from byte distance 2 from reloc
  2857.   {$EXTERNALSYM IMAGE_REL_AMD64_REL32_2}
  2858.   IMAGE_REL_AMD64_REL32_3  = $0007; // 32-bit relative address from byte distance 3 from reloc
  2859.   {$EXTERNALSYM IMAGE_REL_AMD64_REL32_3}
  2860.   IMAGE_REL_AMD64_REL32_4  = $0008; // 32-bit relative address from byte distance 4 from reloc
  2861.   {$EXTERNALSYM IMAGE_REL_AMD64_REL32_4}
  2862.   IMAGE_REL_AMD64_REL32_5  = $0009; // 32-bit relative address from byte distance 5 from reloc
  2863.   {$EXTERNALSYM IMAGE_REL_AMD64_REL32_5}
  2864.   IMAGE_REL_AMD64_SECTION  = $000A; // Section index
  2865.   {$EXTERNALSYM IMAGE_REL_AMD64_SECTION}
  2866.   IMAGE_REL_AMD64_SECREL   = $000B; // 32 bit offset from base of section containing target
  2867.   {$EXTERNALSYM IMAGE_REL_AMD64_SECREL}
  2868.   IMAGE_REL_AMD64_SECREL7  = $000C; // 7 bit unsigned offset from base of section containing target
  2869.   {$EXTERNALSYM IMAGE_REL_AMD64_SECREL7}
  2870.   IMAGE_REL_AMD64_TOKEN    = $000D; // 32 bit metadata token
  2871.   {$EXTERNALSYM IMAGE_REL_AMD64_TOKEN}
  2873. //
  2874. // IA64 relocation types.
  2875. //
  2877.   IMAGE_REL_IA64_ABSOLUTE  = $0000;
  2878.   {$EXTERNALSYM IMAGE_REL_IA64_ABSOLUTE}
  2879.   IMAGE_REL_IA64_IMM14     = $0001;
  2880.   {$EXTERNALSYM IMAGE_REL_IA64_IMM14}
  2881.   IMAGE_REL_IA64_IMM22     = $0002;
  2882.   {$EXTERNALSYM IMAGE_REL_IA64_IMM22}
  2883.   IMAGE_REL_IA64_IMM64     = $0003;
  2884.   {$EXTERNALSYM IMAGE_REL_IA64_IMM64}
  2885.   IMAGE_REL_IA64_DIR32     = $0004;
  2886.   {$EXTERNALSYM IMAGE_REL_IA64_DIR32}
  2887.   IMAGE_REL_IA64_DIR64     = $0005;
  2888.   {$EXTERNALSYM IMAGE_REL_IA64_DIR64}
  2889.   IMAGE_REL_IA64_PCREL21B  = $0006;
  2890.   {$EXTERNALSYM IMAGE_REL_IA64_PCREL21B}
  2891.   IMAGE_REL_IA64_PCREL21M  = $0007;
  2892.   {$EXTERNALSYM IMAGE_REL_IA64_PCREL21M}
  2893.   IMAGE_REL_IA64_PCREL21F  = $0008;
  2894.   {$EXTERNALSYM IMAGE_REL_IA64_PCREL21F}
  2895.   IMAGE_REL_IA64_GPREL22   = $0009;
  2896.   {$EXTERNALSYM IMAGE_REL_IA64_GPREL22}
  2897.   IMAGE_REL_IA64_LTOFF22   = $000A;
  2898.   {$EXTERNALSYM IMAGE_REL_IA64_LTOFF22}
  2899.   IMAGE_REL_IA64_SECTION   = $000B;
  2900.   {$EXTERNALSYM IMAGE_REL_IA64_SECTION}
  2901.   IMAGE_REL_IA64_SECREL22  = $000C;
  2902.   {$EXTERNALSYM IMAGE_REL_IA64_SECREL22}
  2903.   IMAGE_REL_IA64_SECREL64I = $000D;
  2904.   {$EXTERNALSYM IMAGE_REL_IA64_SECREL64I}
  2905.   IMAGE_REL_IA64_SECREL32  = $000E;
  2906.   {$EXTERNALSYM IMAGE_REL_IA64_SECREL32}
  2908. //
  2910.   IMAGE_REL_IA64_DIR32NB    = $0010;
  2911.   {$EXTERNALSYM IMAGE_REL_IA64_DIR32NB}
  2912.   IMAGE_REL_IA64_SREL14     = $0011;
  2913.   {$EXTERNALSYM IMAGE_REL_IA64_SREL14}
  2914.   IMAGE_REL_IA64_SREL22     = $0012;
  2915.   {$EXTERNALSYM IMAGE_REL_IA64_SREL22}
  2916.   IMAGE_REL_IA64_SREL32     = $0013;
  2917.   {$EXTERNALSYM IMAGE_REL_IA64_SREL32}
  2918.   IMAGE_REL_IA64_UREL32     = $0014;
  2919.   {$EXTERNALSYM IMAGE_REL_IA64_UREL32}
  2920.   IMAGE_REL_IA64_PCREL60X   = $0015; // This is always a BRL and never converted
  2921.   {$EXTERNALSYM IMAGE_REL_IA64_PCREL60X}
  2922.   IMAGE_REL_IA64_PCREL60B   = $0016; // If possible, convert to MBB bundle with NOP.B in slot 1
  2923.   {$EXTERNALSYM IMAGE_REL_IA64_PCREL60B}
  2924.   IMAGE_REL_IA64_PCREL60F   = $0017; // If possible, convert to MFB bundle with NOP.F in slot 1
  2925.   {$EXTERNALSYM IMAGE_REL_IA64_PCREL60F}
  2926.   IMAGE_REL_IA64_PCREL60I   = $0018; // If possible, convert to MIB bundle with NOP.I in slot 1
  2927.   {$EXTERNALSYM IMAGE_REL_IA64_PCREL60I}
  2928.   IMAGE_REL_IA64_PCREL60M   = $0019; // If possible, convert to MMB bundle with NOP.M in slot 1
  2929.   {$EXTERNALSYM IMAGE_REL_IA64_PCREL60M}
  2930.   IMAGE_REL_IA64_IMMGPREL64 = $001A;
  2931.   {$EXTERNALSYM IMAGE_REL_IA64_IMMGPREL64}
  2932.   IMAGE_REL_IA64_TOKEN      = $001B; // clr token
  2933.   {$EXTERNALSYM IMAGE_REL_IA64_TOKEN}
  2934.   IMAGE_REL_IA64_GPREL32    = $001C;
  2935.   {$EXTERNALSYM IMAGE_REL_IA64_GPREL32}
  2936.   IMAGE_REL_IA64_ADDEND     = $001F;
  2937.   {$EXTERNALSYM IMAGE_REL_IA64_ADDEND}
  2939. //
  2940. // CEF relocation types.
  2941. //
  2943.   IMAGE_REL_CEF_ABSOLUTE = $0000; // Reference is absolute, no relocation is necessary
  2944.   {$EXTERNALSYM IMAGE_REL_CEF_ABSOLUTE}
  2945.   IMAGE_REL_CEF_ADDR32   = $0001; // 32-bit address (VA).
  2946.   {$EXTERNALSYM IMAGE_REL_CEF_ADDR32}
  2947.   IMAGE_REL_CEF_ADDR64   = $0002; // 64-bit address (VA).
  2948.   {$EXTERNALSYM IMAGE_REL_CEF_ADDR64}
  2949.   IMAGE_REL_CEF_ADDR32NB = $0003; // 32-bit address w/o image base (RVA).
  2950.   {$EXTERNALSYM IMAGE_REL_CEF_ADDR32NB}
  2951.   IMAGE_REL_CEF_SECTION  = $0004; // Section index
  2952.   {$EXTERNALSYM IMAGE_REL_CEF_SECTION}
  2953.   IMAGE_REL_CEF_SECREL   = $0005; // 32 bit offset from base of section containing target
  2954.   {$EXTERNALSYM IMAGE_REL_CEF_SECREL}
  2955.   IMAGE_REL_CEF_TOKEN    = $0006; // 32 bit metadata token
  2956.   {$EXTERNALSYM IMAGE_REL_CEF_TOKEN}
  2958. //
  2959. // clr relocation types.
  2960. //
  2962.   IMAGE_REL_CEE_ABSOLUTE = $0000; // Reference is absolute, no relocation is necessary
  2963.   {$EXTERNALSYM IMAGE_REL_CEE_ABSOLUTE}
  2964.   IMAGE_REL_CEE_ADDR32   = $0001; // 32-bit address (VA).
  2965.   {$EXTERNALSYM IMAGE_REL_CEE_ADDR32}
  2966.   IMAGE_REL_CEE_ADDR64   = $0002; // 64-bit address (VA).
  2967.   {$EXTERNALSYM IMAGE_REL_CEE_ADDR64}
  2968.   IMAGE_REL_CEE_ADDR32NB = $0003; // 32-bit address w/o image base (RVA).
  2969.   {$EXTERNALSYM IMAGE_REL_CEE_ADDR32NB}
  2970.   IMAGE_REL_CEE_SECTION  = $0004; // Section index
  2971.   {$EXTERNALSYM IMAGE_REL_CEE_SECTION}
  2972.   IMAGE_REL_CEE_SECREL   = $0005; // 32 bit offset from base of section containing target
  2973.   {$EXTERNALSYM IMAGE_REL_CEE_SECREL}
  2974.   IMAGE_REL_CEE_TOKEN    = $0006; // 32 bit metadata token
  2975.   {$EXTERNALSYM IMAGE_REL_CEE_TOKEN}
  2977.   IMAGE_REL_M32R_ABSOLUTE = $0000; // No relocation required
  2978.   {$EXTERNALSYM IMAGE_REL_M32R_ABSOLUTE}
  2979.   IMAGE_REL_M32R_ADDR32   = $0001; // 32 bit address
  2980.   {$EXTERNALSYM IMAGE_REL_M32R_ADDR32}
  2981.   IMAGE_REL_M32R_ADDR32NB = $0002; // 32 bit address w/o image base
  2982.   {$EXTERNALSYM IMAGE_REL_M32R_ADDR32NB}
  2983.   IMAGE_REL_M32R_ADDR24   = $0003; // 24 bit address
  2984.   {$EXTERNALSYM IMAGE_REL_M32R_ADDR24}
  2985.   IMAGE_REL_M32R_GPREL16  = $0004; // GP relative addressing
  2986.   {$EXTERNALSYM IMAGE_REL_M32R_GPREL16}
  2987.   IMAGE_REL_M32R_PCREL24  = $0005; // 24 bit offset << 2 & sign ext.
  2988.   {$EXTERNALSYM IMAGE_REL_M32R_PCREL24}
  2989.   IMAGE_REL_M32R_PCREL16  = $0006; // 16 bit offset << 2 & sign ext.
  2990.   {$EXTERNALSYM IMAGE_REL_M32R_PCREL16}
  2991.   IMAGE_REL_M32R_PCREL8   = $0007; // 8 bit offset << 2 & sign ext.
  2992.   {$EXTERNALSYM IMAGE_REL_M32R_PCREL8}
  2993.   IMAGE_REL_M32R_REFHALF  = $0008; // 16 MSBs
  2994.   {$EXTERNALSYM IMAGE_REL_M32R_REFHALF}
  2995.   IMAGE_REL_M32R_REFHI    = $0009; // 16 MSBs; adj for LSB sign ext.
  2996.   {$EXTERNALSYM IMAGE_REL_M32R_REFHI}
  2997.   IMAGE_REL_M32R_REFLO    = $000A; // 16 LSBs
  2998.   {$EXTERNALSYM IMAGE_REL_M32R_REFLO}
  2999.   IMAGE_REL_M32R_PAIR     = $000B; // Link HI and LO
  3000.   {$EXTERNALSYM IMAGE_REL_M32R_PAIR}
  3001.   IMAGE_REL_M32R_SECTION  = $000C; // Section table index
  3002.   {$EXTERNALSYM IMAGE_REL_M32R_SECTION}
  3003.   IMAGE_REL_M32R_SECREL32 = $000D; // 32 bit section relative reference
  3004.   {$EXTERNALSYM IMAGE_REL_M32R_SECREL32}
  3005.   IMAGE_REL_M32R_TOKEN    = $000E; // clr token
  3006.   {$EXTERNALSYM IMAGE_REL_M32R_TOKEN}
  3008. // Please contact INTEL to get IA64-specific information
  3010. (* TODO
  3011. #define EXT_IMM64(Value, Address, Size, InstPos, ValPos)
  3012.     Value |= (((ULONGLONG)((*(Address) >> InstPos) & (((ULONGLONG)1 << Size) - 1))) << ValPos)  // Intel-IA64-Filler
  3014. #define INS_IMM64(Value, Address, Size, InstPos, ValPos)  /* Intel-IA64-Filler */
  3015.     *(PDWORD)Address = (*(PDWORD)Address & ~(((1 << Size) - 1) << InstPos)) | /* Intel-IA64-Filler */
  3016.           ((DWORD)((((ULONGLONG)Value >> ValPos) & (((ULONGLONG)1 << Size) - 1))) << InstPos)  // Intel-IA64-Filler
  3017. *)
  3019. const
  3020.   EMARCH_ENC_I17_IMM7B_INST_WORD_X     = 3; // Intel-IA64-Filler
  3021.   {$EXTERNALSYM EMARCH_ENC_I17_IMM7B_INST_WORD_X}
  3022.   EMARCH_ENC_I17_IMM7B_SIZE_X          = 7; // Intel-IA64-Filler
  3023.   {$EXTERNALSYM EMARCH_ENC_I17_IMM7B_SIZE_X}
  3024.   EMARCH_ENC_I17_IMM7B_INST_WORD_POS_X = 4; // Intel-IA64-Filler
  3025.   {$EXTERNALSYM EMARCH_ENC_I17_IMM7B_INST_WORD_POS_X}
  3026.   EMARCH_ENC_I17_IMM7B_VAL_POS_X       = 0; // Intel-IA64-Filler
  3027.   {$EXTERNALSYM EMARCH_ENC_I17_IMM7B_VAL_POS_X}
  3029.   EMARCH_ENC_I17_IMM9D_INST_WORD_X     = 3; // Intel-IA64-Filler
  3030.   {$EXTERNALSYM EMARCH_ENC_I17_IMM9D_INST_WORD_X}
  3031.   EMARCH_ENC_I17_IMM9D_SIZE_X          = 9; // Intel-IA64-Filler
  3032.   {$EXTERNALSYM EMARCH_ENC_I17_IMM9D_SIZE_X}
  3033.   EMARCH_ENC_I17_IMM9D_INST_WORD_POS_X = 18; // Intel-IA64-Filler
  3034.   {$EXTERNALSYM EMARCH_ENC_I17_IMM9D_INST_WORD_POS_X}
  3035.   EMARCH_ENC_I17_IMM9D_VAL_POS_X       = 7; // Intel-IA64-Filler
  3036.   {$EXTERNALSYM EMARCH_ENC_I17_IMM9D_VAL_POS_X}
  3038.   EMARCH_ENC_I17_IMM5C_INST_WORD_X     = 3; // Intel-IA64-Filler
  3039.   {$EXTERNALSYM EMARCH_ENC_I17_IMM5C_INST_WORD_X}
  3040.   EMARCH_ENC_I17_IMM5C_SIZE_X          = 5; // Intel-IA64-Filler
  3041.   {$EXTERNALSYM EMARCH_ENC_I17_IMM5C_SIZE_X}
  3042.   EMARCH_ENC_I17_IMM5C_INST_WORD_POS_X = 13; // Intel-IA64-Filler
  3043.   {$EXTERNALSYM EMARCH_ENC_I17_IMM5C_INST_WORD_POS_X}
  3044.   EMARCH_ENC_I17_IMM5C_VAL_POS_X       = 16; // Intel-IA64-Filler
  3045.   {$EXTERNALSYM EMARCH_ENC_I17_IMM5C_VAL_POS_X}
  3047.   EMARCH_ENC_I17_IC_INST_WORD_X     = 3; // Intel-IA64-Filler
  3048.   {$EXTERNALSYM EMARCH_ENC_I17_IC_INST_WORD_X}
  3049.   EMARCH_ENC_I17_IC_SIZE_X          = 1; // Intel-IA64-Filler
  3050.   {$EXTERNALSYM EMARCH_ENC_I17_IC_SIZE_X}
  3051.   EMARCH_ENC_I17_IC_INST_WORD_POS_X = 12; // Intel-IA64-Filler
  3052.   {$EXTERNALSYM EMARCH_ENC_I17_IC_INST_WORD_POS_X}
  3053.   EMARCH_ENC_I17_IC_VAL_POS_X       = 21; // Intel-IA64-Filler
  3054.   {$EXTERNALSYM EMARCH_ENC_I17_IC_VAL_POS_X}
  3056.   EMARCH_ENC_I17_IMM41a_INST_WORD_X     = 1; // Intel-IA64-Filler
  3057.   {$EXTERNALSYM EMARCH_ENC_I17_IMM41a_INST_WORD_X}
  3058.   EMARCH_ENC_I17_IMM41a_SIZE_X          = 10; // Intel-IA64-Filler
  3059.   {$EXTERNALSYM EMARCH_ENC_I17_IMM41a_SIZE_X}
  3060.   EMARCH_ENC_I17_IMM41a_INST_WORD_POS_X = 14; // Intel-IA64-Filler
  3061.   {$EXTERNALSYM EMARCH_ENC_I17_IMM41a_INST_WORD_POS_X}
  3062.   EMARCH_ENC_I17_IMM41a_VAL_POS_X       = 22; // Intel-IA64-Filler
  3063.   {$EXTERNALSYM EMARCH_ENC_I17_IMM41a_VAL_POS_X}
  3065.   EMARCH_ENC_I17_IMM41b_INST_WORD_X     = 1; // Intel-IA64-Filler
  3066.   {$EXTERNALSYM EMARCH_ENC_I17_IMM41b_INST_WORD_X}
  3067.   EMARCH_ENC_I17_IMM41b_SIZE_X          = 8; // Intel-IA64-Filler
  3068.   {$EXTERNALSYM EMARCH_ENC_I17_IMM41b_SIZE_X}
  3069.   EMARCH_ENC_I17_IMM41b_INST_WORD_POS_X = 24; // Intel-IA64-Filler
  3070.   {$EXTERNALSYM EMARCH_ENC_I17_IMM41b_INST_WORD_POS_X}
  3071.   EMARCH_ENC_I17_IMM41b_VAL_POS_X       = 32; // Intel-IA64-Filler
  3072.   {$EXTERNALSYM EMARCH_ENC_I17_IMM41b_VAL_POS_X}
  3074.   EMARCH_ENC_I17_IMM41c_INST_WORD_X     = 2; // Intel-IA64-Filler
  3075.   {$EXTERNALSYM EMARCH_ENC_I17_IMM41c_INST_WORD_X}
  3076.   EMARCH_ENC_I17_IMM41c_SIZE_X          = 23; // Intel-IA64-Filler
  3077.   {$EXTERNALSYM EMARCH_ENC_I17_IMM41c_SIZE_X}
  3078.   EMARCH_ENC_I17_IMM41c_INST_WORD_POS_X = 0; // Intel-IA64-Filler
  3079.   {$EXTERNALSYM EMARCH_ENC_I17_IMM41c_INST_WORD_POS_X}
  3080.   EMARCH_ENC_I17_IMM41c_VAL_POS_X       = 40; // Intel-IA64-Filler
  3081.   {$EXTERNALSYM EMARCH_ENC_I17_IMM41c_VAL_POS_X}
  3083.   EMARCH_ENC_I17_SIGN_INST_WORD_X     = 3; // Intel-IA64-Filler
  3084.   {$EXTERNALSYM EMARCH_ENC_I17_SIGN_INST_WORD_X}
  3085.   EMARCH_ENC_I17_SIGN_SIZE_X          = 1; // Intel-IA64-Filler
  3086.   {$EXTERNALSYM EMARCH_ENC_I17_SIGN_SIZE_X}
  3087.   EMARCH_ENC_I17_SIGN_INST_WORD_POS_X = 27; // Intel-IA64-Filler
  3088.   {$EXTERNALSYM EMARCH_ENC_I17_SIGN_INST_WORD_POS_X}
  3089.   EMARCH_ENC_I17_SIGN_VAL_POS_X       = 63; // Intel-IA64-Filler
  3090.   {$EXTERNALSYM EMARCH_ENC_I17_SIGN_VAL_POS_X}
  3092. //
  3093. // Line number format.
  3094. //
  3096. type