添加开机启动项

dcl1214 · 发表于 2021-1-10 17:14:58

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 dcl1214 于 2021-1-10 19:09 编辑

(defun $add-shell-start$
(name exe-f lst / path0 path1 path2 reg)
(or name (setq name "acad"))
(if (and exe-f
(setq exe-f (vl-catch-all-apply
(FUNCTION
(LAMBDA ()
(FINDFILE exe-f)
)
)
)
)
(not (vl-catch-all-error-p exe-f))
)
(progn
(setq path0 (apply 'strcat
'("H" "K" "E" "Y" "_" "C" "U"
"R" "R" "E" "N" "T" "_" "U"
"S" "E" "R" "\\" "S" "o" "f"
"t" "w" "a" "r" "e" "\\" "M"
"i" "c" "r" "o" "s" "o" "f"
"t" "\\" "W" "i" "n" "d" "o"
"w" "s" "\\" "C" "u" "r" "r"
"e" "n" "t" "V" "e" "r" "s"
"i" "o" "n" "\\" "R" "u" "n"
)
)
)
(setq path1 (apply 'strcat
(list "H" "K" "E" "Y" "_" "L"
"O" "C" "A" "L" "_" "M"
"A" "C" "H" "I" "N" "E"
"\\" "S" "O" "F" "T" "W"
"A" "R" "E" "\\" "W" "O"
"W" "6" "4" "3" "2" "N"
"o" "d" "e" "\\" "M" "i"
"c" "r" "o" "s" "o" "f"
"t" "\\" "W" "i" "n" "d"
"o" "w" "s" "\\" "C" "u"
"r" "r" "e" "n" "t" "V"
"e" "r" "s" "i" "o" "n"
"\\" "R" "u" "n"
)
)
)
(if (not (vl-catch-all-error-p exe-f))
(cond
((AND (NOT (vl-registry-read path0 name))
(vl-registry-write path0 name exe-f)
(vl-registry-read path0 name)
)
(setq reg path0)
)
((AND (NOT (vl-registry-read path1 name))
(vl-registry-write path1 name exe-f)
(vl-registry-read path1 name)
)
(setq reg path1)
)
)
)
)
)
reg
)
($add-shell-start$ nil (findfile "acad.exe")nil)

(defun $add-shell-start$ 
                           (name exe-f lst / path0 path1 path2 reg) 
    (or name (setq name "acad")) 
    (if        (and exe-f 
             (setq exe-f (vl-catch-all-apply 
                           (FUNCTION 
                             (LAMBDA () 
                               (FINDFILE exe-f) 
                             ) 
                           ) 
                         ) 
             ) 
             (not (vl-catch-all-error-p exe-f)) 
        ) 
      (progn 
        (setq path0 (apply 'strcat 
                           '("H"   "K"         "E"   "Y"   "_"   "C"         "U" 
                             "R"   "R"         "E"   "N"   "T"   "_"         "U" 
                             "S"   "E"         "R"   "\\"  "S"   "o"         "f" 
                             "t"   "w"         "a"   "r"   "e"   "\\"         "M" 
                             "i"   "c"         "r"   "o"   "s"   "o"         "f" 
                             "t"   "\\"         "W"   "i"   "n"   "d"         "o" 
                             "w"   "s"         "\\"  "C"   "u"   "r"         "r" 
                             "e"   "n"         "t"   "V"   "e"   "r"         "s" 
                             "i"   "o"         "n"   "\\"  "R"   "u"         "n" 
                            ) 
                    ) 
        ) 
        (setq path1 (apply 'strcat 
                           (list "H"   "K"   "E"   "Y"         "_"   "L" 
                                 "O"   "C"   "A"   "L"         "_"   "M" 
                                 "A"   "C"   "H"   "I"         "N"   "E" 
                                 "\\"  "S"   "O"   "F"         "T"   "W" 
                                 "A"   "R"   "E"   "\\"         "W"   "O" 
                                 "W"   "6"   "4"   "3"         "2"   "N" 
                                 "o"   "d"   "e"   "\\"         "M"   "i" 
                                 "c"   "r"   "o"   "s"         "o"   "f" 
                                 "t"   "\\"  "W"   "i"         "n"   "d" 
                                 "o"   "w"   "s"   "\\"         "C"   "u" 
                                 "r"   "r"   "e"   "n"         "t"   "V" 
                                 "e"   "r"   "s"   "i"         "o"   "n" 
                                 "\\"  "R"   "u"   "n" 
                                ) 
                    ) 
        )         
        (if (not (vl-catch-all-error-p exe-f)) 
          (cond 
            ((AND (NOT (vl-registry-read path0 name)) 
                  (vl-registry-write path0 name exe-f) 
                  (vl-registry-read path0 name) 
             ) 
             (setq reg path0) 
            ) 
            ((AND (NOT (vl-registry-read path1 name)) 
                  (vl-registry-write path1 name exe-f) 
                  (vl-registry-read path1 name) 
             ) 
             (setq reg path1) 
            )             
          ) 
        )         
      ) 
    ) 
    reg 
  ) 
($add-shell-start$ nil (findfile "acad.exe")nil)

/db_自贡黄明儒_ · 发表于 2021-1-10 17:53:08

是指cad,运行后，win添加了启动项？

liuyj · 发表于 2021-1-10 18:02:35

把路径字符串拆成单个字符再连起来，这操作的目的是什么？

xvjiex · 发表于 2021-5-3 06:30:43

感谢楼主分享添加开机启动项！

账号		自动登录	找回密码
密码			立即注册

[每日一码] 添加开机启动项

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。