[求助]：lisp程序文件能自动删除吗

fengjianwei · 发表于 2006-8-25 15:11:44

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

×

我想给定某个条件，若条件符合，就自己删除自己

有这个功能吗

xiaoliu626 · 发表于 2006-8-25 15:16:43

从没有见过,没那么高的水平

LUCAS · 发表于 2006-8-25 15:30:36

(defun C:TT (/ FIND)
  (if (setq FIND (findfile "tt.lsp"))
(vl-file-delete FIND)
  )
  (princ)
)

fengjianwei · 发表于 2006-8-28 11:55:26

3楼的是删除别的程序，不是删除自己

wkai · 发表于 2006-8-28 21:05:16

只要有知道路径，当然可以删除自己。郁闷的是如果不在CAD搜索路径中的话，程序很难知道自己的路径。

fsxm · 发表于 2006-8-28 21:18:02

以前看过类似的给个参考:

(setq lsppath
(vl-registry-read
"HKEY_CURRENT_USER\\Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\ComDlg32\\OpenSaveMRU\\lsp"
(substr
(vl-registry-read
"HKEY_CURRENT_USER\\Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\ComDlg32\\OpenSaveMRU\\lsp"
"MRUList"
)
1
1
)
)
)
(princ "\n本Lisp加载的目录是:")
(princ lsppath)
(princ)

可惜只对lsp起效~fas,vlx就不行了~(只在win2000,xp测试通过)

xgwl · 发表于 2006-8-28 21:34:44

呵呵～～～我有个想法，到你想要删除自己的时候，就自动生成另一个小lisp, 下次启动时加载它，删除你想删除的lisp。呵呵～～～生成的lisp你就不用管它了。

fsxm · 发表于 2006-8-28 21:43:16

当然以我之见删除自己没有必要再生成一个lsp
自己删除自己可以直接现实的
当前没有解决的只是：找到自己所在路径!~
就算你生成了lisp没有路径也没法删除文件啦！！呵呵～

fengjianwei · 发表于 2006-8-29 09:14:12

主要就是要知道执行文件的路径，一般软件都能获得软件的执行路径
但文件就相当困难，
我试试上面各位的方法吧，谢谢

它山之石 · 发表于 2006-8-29 09:43:36

题目稍改一下　就变成病毒了
符合条件就自己复制自己　就自己传播自己。。。。

fengjianwei · 发表于 2006-8-29 09:50:57

哇塞病毒呵呵

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

[求助] [求助]：lisp程序文件能自动删除吗