tDosInfo

type tDosInfo = record

  case SmallInt of

    0: (

        di_ResList: BPTR;

      );

    1: (

        di_McName: BPTR;

        di_DevInfo: BPTR;

        di_Devices: BPTR;

        di_Handlers: BPTR;

        di_NetHand: Pointer;

        di_DevLock: tSignalSemaphore;

        di_EntryLock: tSignalSemaphore;

        di_DeleteLock: tSignalSemaphore;

      );

end;