TSHELW

type TSHELW = record

  newcmd: PAnsiChar;

  psetlimit: LongInt;

  prenice: LongInt;

  defdir: PAnsiChar;

  env: pointer;

  case Boolean of

    False: (

        uid: SmallInt;

        gid: SmallInt;

      );

    True: (

        flags: LongInt;

      );

end;