web自适应暗色登录窗口

.如果真 (到小写 (类型 [选择类型]) ＝ “程序运行目录”)
返回 (取运行目录 ())
.如果真结束
.如果真 (到小写 (类型 [选择类型]) ＝ 到小写 (“System32”))
返回 (取文本左边 (读环境变量 (“ComSpec”), 倒找文本 (读环境变量 (“ComSpec”), “\”, , 假) － 1))
.如果真结束
.如果真 (读环境变量 (到小写 (类型 [选择类型])) ≠ “”)
返回 (读环境变量 (到小写 (类型 [选择类型])))
.如果真结束
返回 (取文本注册项 (选择 (到小写 (取文本左边 (到小写 (类型 [选择类型]), 6)) ＝ “common”, #本地机器, #现行用户), “Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\” ＋ 到小写 (类型 [选择类型]), ))