本帖最后由 waterchen 于 2015-12-29 14:12 编辑
 - (setq overtim (vl-registry-read "reg_path"))
- (if (< overtim 200)
- (progn
- (vl-registry-write "reg_path" "" (+ overtim 1))
- ;continue on other code ...
- )
- (progn
- (alert "該程式使用已超過200次,不能再使用!")
- (exit)
- )
- )
"reg_path"为实际注册表路径。 |