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