home *** CD-ROM | disk | FTP | other *** search
/ The Best of Select: Windows 95 Special 1 / WINDOWS95_1.ISO / utils / w32-rex / regina / ins-rexx next >
Text File  |  1995-07-04  |  303b  |  10 lines
  1. say 'Enter the pathname of the destination directory:'
  2. pull pathname
  3. 'mkdir'(pathname)
  4. 'cmd /c copy rexx.exe' pathname
  5.  
  6. hk = w32regopenkey('HKEY_CURRENT_USER', "Environment")
  7. curpath = w32regqueryvalue(hk, "path")
  8. w32regsetvalue(hk, "path", "REG_SZ", pathname||";"||curpath)
  9. w32regclosekey(hk)
  10.