说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

用Delphi制作能够干净地删除自己的程序

HTML文档下载 WORD文档下载 PDF文档下载
用Delphi制作能够干净地删除自己的程序

我们经常遇到这样的软件,运行之后就消失的无影无踪,特别是一些黑客的木马工具。如果我们能掌握这个技术,即使不做黑客工具,也可以在程序加密、软件卸载等方面发挥作用。那么他们是怎样实现的呢?

---- 以delphi为例,在form关闭的时候执行以下函数closeme即可:

procedure TForm1.closeme;

var f:textfile;

begin

assignfile(f

'.\delme.bat');

rewrite(f);

writeln(f

'@echo off');

writeln(f

':loop');

writeln(f

'del "'+application.ExeName+'"');

writeln(f

'if exist .\file.exe goto loop');

writeln(f

'del .\delme.bat');

closefile(f);

winexec('.\delme.bat'

SW_HIDE);

close;

end;

2013年终盘点:10款最精巧的硬件开发板 SquareWear:可替代Lilypad Arduino的开发板 开放数据:2014年最热门的竞争领域 IE11虚拟机免费面向广大开发者 九城搭建的一个以Hadoop为基础的大数据平台 各位大虾求救!!!!!!!!!!!!! 我的Mysql罢工了。。。。。 DropDownList的问题。 哪里有SQL Server2000简体中文下载,谢谢 哪里有SQL Server2000简体中文下载,谢谢 请问能用什么压缩软件压缩到最小? 各位,请帮忙啊,急!急!急!急!急!(Struts 连接数据库配置server.xml的问题)郁闷好几天了,如过能帮助,我把分都给他! 我想出去找工作,只带毕业证的复印件行不行? 我的XP所有的程序都被锁定,单击后提示请与系统管理员联系,怎么解决? 怎样区分包装纸箱的材质? 手提扣 塑胶手提扣 塑料手提扣 包装手提扣 纸箱手 徐州哪有卖淘宝箱 邮政纸箱的吗?哪家纸箱包装最好 请问能用塑料瓶装食用油吗? 食用油用规定的哪号塑料瓶装?塑料瓶膜有一三角符号, 刚看了塑料瓶不能装油和酒,那为什么我们超市里买的食 想问一下美孚150号液压油和美孚150号机械润滑油 今天厂里买了一桶抗磨液压油,上边标的是长城润滑油. 为什么要高沸点酸制低沸点酸 浙江萧山冤错命案一审审判长辞去法院院朝鲜平壤国家杂技团“空中飞人”摘吴桥英媒称欧洲五国情报机构合作搞监听洛杉矶机场枪击案致航班受阻 华人伸援印尼黑客袭击澳大利亚200多家网站 车厢内手机被扒 凭铃声抓获窃贼女子涉嫌多次 绑藏走私手机310名书法教师 在深进行集中培训我国第二季度出口呈正增长法国关闭驻土耳其 全部使领馆穿越之大唐2012创世纪神脉时代傲气游龙枪血东福山旅游庙子湖岛旅游半升洞码头旅游沈家门渔港旅游洛阳国花园旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘