2 типа из C++ в delphi

[Человек_Борща]

Доброго времени!

2 описания типов просто вбили в ступор.
http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx

typedef union _PSAPI_WORKING_SET_BLOCK {
  ULONG_PTR Flags;
  struct {
    ULONG_PTR Protection  :5;
    ULONG_PTR ShareCount  :3;
    ULONG_PTR Shared  :1;
    ULONG_PTR Reserved  :3;
    ULONG_PTR VirtualPage  :20;
  };
} PSAPI_WORKING_SET_BLOCK, *PPSAPI_WORKING_SET_BLOCK;

и второй: http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx

typedef union _PSAPI_WORKING_SET_EX_BLOCK {
  ULONG_PTR Flags;
  struct {
    ULONG_PTR Valid  :1;
    ULONG_PTR ShareCount  :3;
    ULONG_PTR Win32Protection  :11;
    ULONG_PTR Shared  :1;
    ULONG_PTR Node  :6;
    ULONG_PTR Locked  :1;
    ULONG_PTR LargePage  :1;
    ULONG_PTR Reserved  :7;
    ULONG_PTR Bad  :1;
#if defined(_WIN64)
    ULONG_PTR ReservedUlong  :32;
#endif 
  };
  struct {
    ULONG_PTR Valid  :1;
    ULONG_PTR Reserved0  :14;
    ULONG_PTR Shared  :1;
    ULONG_PTR Reserved1  :15;
    ULONG_PTR Bad  :1;
#if defined(_WIN64)
    ULONG_PTR ReservedUlong  :32;
#endif 
  } Invalid;
} PSAPI_WORKING_SET_EX_BLOCK, *PPSAPI_WORKING_SET_EX_BLOCK;

Как их толком представить в delphi?
Всю голову уже сломал.

Спасибо за внимание.

[veniside]

я бы особо не заморачивался, а просто обе структуры воспринимал бы как 4 байта флагов (8 байт для х64), с которыми надо работать побитово, вот и всё. Как пример, получили мы значение _PSAPI_WORKING_SET_EX_BLOCK, берем младший бит первого байта, это будет поле Valid. Если там 1, значит далее идут 3 бита ShareCount, иначе 14 бит на Reserved0 и далее по списку:

type
  _PSAPI_WORKING_SET_EX_BLOCK = ULONG_PTR;

var
  s: _PSAPI_WORKING_SET_EX_BLOCK;

begin
  .....
  // получили s и работаем с ним:
  if (1 = (s and 1)) then
    ShareCount := (s shr 1) and 7
  else
    Shared := (s shr 15) and 1;

в таком духе.

[Человек_Борща]

Не особый вариант. Мб другие ппредложения есть?

[Пепел Феникса]

я бы особо не заморачивался

а там и не заморочишься, ибо в Делфи не припомню работы с битовыми полями.

Мб другие ппредложения есть?

класс обертка.

[veniside]

Не особый вариант

собственно, как верно отметил Пепел, других нет

[Человек_Борща]

пойду копать C++ и битовые поля.