Introduction

typedef struct _GUID {
  DWORD Data1;
  WORD  Data2;
  WORD  Data3;
  BYTE  Data4[8];
} GUID;

TGUID = record
  D1: Cardinal;
  D2: Word;
  D3: Word;
  D4: array[0..7] of Byte;
end;

TGuid = packed record
  case integer of
     1 : (
          Data1 : DWord;
          Data2 : word;
          Data3 : word;
          Data4 : array[0..7] of byte;
         );
     2 : (
          D1 : DWord;
          D2 : word;
          D3 : word;
          D4 : array[0..7] of byte;
         );
     3 : ( { uuid fields according to RFC4122 }
          time_low : dword;	            // The low field of the timestamp
          time_mid : word;                  // The middle field of the timestamp
          time_hi_and_version : word;       // The high field of the timestamp multiplexed with the version number
          clock_seq_hi_and_reserved : byte; // The high field of the clock sequence multiplexed with the variant
          clock_seq_low : byte;             // The low field of the clock sequence
          node : array[0..5] of byte;       // The spatially unique node identifier
         );
end;

Private Type GUID
    PartOne As Long
    PartTwo As Integer
    PartThree As Integer
    PartFour(7) As Byte
End Type

class GUID(Structure):
    _fields_ = [("Data1", DWORD),
                ("Data2", WORD),
                ("Data3", WORD),
                ("Data4", BYTE * 8)]