[编程交流] [帮助]将函数设置为anot

(defun a ()...)
(defun b ()...)
....
(defun arlet-unreg ()...)
;EOF
(if unregistered
 (foreach func
    (list a b)
  (setq func arlet-unreg)
)
)

(if unregistered
 (progn
   
  (setq a arlet-unreg)
  (setq b arlet-unreg)
.....
 )
)
)

(defun a ...) ;do sth
(defun b...) ; do sth
(defun C:doA nil (a)) ;call macro
(defun C:doB nil (b)) ;call macro
....
;Defun to alert Unregistered
(defun ST:Sys-Alert-Unregistered nil (alert "B\U+1EA1n ch\U+01B0a \U+0111\U+0103ng k\U+00FD n\U+00EAn kh\U+00F4ng s\U+1EED d\U+1EE5ng \U+0111\U+01B0\U+1EE3c l\U+1EC7nh n\U+00E0y :)"))
(setq #ST:Key "080227BB0300WCC6MPUA1") ;this key is HDD serial with some encrypt to check with
(defun ST:Sys-CheckKey (key) ...) ; this function to check key
;list all function use :
(setq #funclst '(a b ....))
(if (not (ST:Sys-CheckKey #ST:key)) ;unregisterd
   (progn    
       (mapcar '(lambda (x)(set x ST:Sys-Alert-Unregistered)) #funclst)            
   )
)