shel_envrn

function shel_envrn(

  sh_epvalue: ppchar;

  sh_eparm: pchar

):SmallInt;

function shel_envrn(

  out sh_epvalue: Pointer;

  const sh_eparm: string

):SmallInt;