TFileInfoBlock

type TFileInfoBlock = packed record

  fib_DiskKey: LongInt;

  fib_DirEntryType: LongInt;

  fib_FileName: array [0..107] of Char;

  fib_Protection: LongInt;

  fib_EntryType: LongInt;

  fib_Size: LongInt;

  fib_NumBlocks: LongInt;

  fib_Date: TDateStamp;

  fib_Comment: array [0..79] of Char;

  fib_OwnerUID: Word;

  fib_OwnerGID: Word;

  case SmallInt of

    0: (

        fib_Reserved: array [0..31] of Char;

      );

    1: (

        fib_Size64: QWord;

        fib_NumBlocks64: QWord;

      );

end;