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

用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;

备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘