>function Do_it() > > declare integer GetEnvironmentVariable in kernel32 ; > string @lpName, ; && // environment variable name > string @lpBuffer,; && // buffer for variable value > integer nSize && // size of buffer > > declare integer SetEnvironmentVariable in kernel32 ; > string @lpName,; && // environment variable name > string @lpValue && // new value for variable > > > local Success > Success = TRUE > > local s, n > s = space(8192) > > do case > case !m.Success > > otherwise > n = GetEnvironmentVariable('PATH', @s, len(m.s)) > > endcase > > do case > case !m.Success > > case empty(m.n) > assert FALSE > Success = FALSE > > > case empty(SetEnvironmentVariable('PATH', left(m.s, m.n) + ';c:\temp')) > assert FALSE > Success = FALSE > > endcase > > return m.Success > > >endfunc >*--------------------------------------------------------------------------- >