关于添加支持路径函数在WIN7下失效问题。

ambox

;; 添加支持路径。这里只添加一条。多条的话自行修改。
  (Xman_AddSupportPath (GetXmanPath) nil)
  (Xman_AddSupportPath (strcat (GetXmanPath) "\\SYS") nil)
;;--------------------------------------------------------------
    (setq acadver (atof (getvar "acadver")))
    (cond
      ((and (>= acadver 16.0) (<= acadver 16.2))
  (Xman_AddSupportPath (strcat (GetXmanPath) "\\SYS16") nil)
      )
      ((and (>= acadver 17.0) (<= acadver 17.2))
  (Xman_AddSupportPath (strcat (GetXmanPath) "\\SYS17") nil)
      )
      ((> acadver 17.2)
  (Xman_AddSupportPath (strcat (GetXmanPath) "\\SYS18") nil)
    )
  )
;;--------------------------------------------------------------
  (Xman_AddSupportPath (strcat (GetXmanPath) "\\APS有雪") nil)
  (Xman_AddSupportPath (strcat (GetXmanPath) "\\Dwb") nil)
  (Xman_AddSupportPath (strcat (GetXmanPath) "\\MSteel") nil)
  (Xman_AddSupportPath (strcat (GetXmanPath) "\\常用程序") nil)
  (Xman_AddSupportPath (strcat (GetXmanPath) "\\高山流水") nil)
  (Xman_AddSupportPath (strcat (GetXmanPath) "\\小伙拾遗") nil)
  (Xman_AddSupportPath (strcat "E:\\结构电子书籍") nil)


上面的函数在XP下运行没有问题，但是在WIN7下无法增加搜索路径？什么问题？
还有一个问题，我想把这些路径前置到搜索路径的最上方，要怎么写？