shel_envrn

function shel_envrn(

  sh_epvalue: PPAnsiChar;

  sh_eparm: PAnsiChar

):SmallInt;

function shel_envrn(

  out sh_epvalue: Pointer;

  const sh_eparm: string

):SmallInt;