怎样让LISP程序在预定的时期失效!!?
<p>怎样让LISP程序在预定的时期失效!!?</p><p>如LISP在2008年以后就不能运行!</p> <p>采用注册表的方法吧</p><p>去编程区找找吧</p><p>我以前见过的</p> <p><font color="#000000">加入这段代码就行了</font></p><p>(setq dt (getvar "cdate"))</p><p> (if ( < dt 01000101.0) (progn</p><p> (setq dt( + dt 20000000.0))</p><p> )</p><p> )</p><p> (if ( < dt 20080401.0) (progn</p><p>function xxx//你的程序代码</p><p>)</p><p>)</p><p></p><p></p>
页:
[1]