delphi制作能够干净地删除自己的程序 (2000年8月24.txt

来自「自己对DELPHI学习的一点体会」· 文本 代码 · 共 34 行

Delphi制作能够干净地删除自己的程序 (2000年8月24日) 

本站更新  分类:   作者:a  推荐:   阅读次数:909  
(http://www.codesky.net)  

--------------------------------------------------------------------------------

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

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


--------------------------------------------------------------------------------