易语言一键取路径模块

易语言 2020-08-17 18:26:30

易语言一键取路径模块

.如果真 (到小写 (目录名) = 到小写 (#目录_系统目录))

返回 (取文本左边 (读环境变量 (“ComSpec”), 倒找文本 (读环境变量 (“ComSpec”), “\”, , 假) - 1))
.如果真结束

返回 (取文本注册项 (选择 (到小写 (取文本左边 (目录名, 6)) = “common”, #本地机器, #现行用户), “Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\” + 目录名, ))