TCeOIdInfo

type TCeOIdInfo = record

  wObjType: Word;

  wPad: Word;

  case Integer of

    0: (

        infFile: TCeFileInfo;

      );

    1: (

        infDirectory: TCeDirInfo;

      );

    2: (

        infDatabase: TCeDBaseInfo;

      );

    3: (

        infRecord: TCeRecordInfo;

      );

end;