>>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 >>*--------------------------------------------------------------------------- >>