Çë½ÌdelphiÈçºÎɾ³ý×ÔÉíÎļþ

³ÌÐò´ò¿ªÁíÒ»¸öEXEÎļþ£¬´ò¿ªºóɾ³ýÔ­EXEÎļþ

---

ÒÔÉÏÁ½¸ö£¬ÎÒ¶¼²âÊÔ¹ýÁË£¬Ã»ÓÐÎÊÌâ
ÄÜÕý³£±àÒëÖ´ÐÐ

---

Delphi(Pascal) code:

procedure KillSelf;
var
f:textfile;
begin
assignfile(f,'.\killme.bat'); //ÔÚ³ÌÐòĿ¼ÏÂн¨Ò»¸öbatÎļþ
rewrite(f); //¿ªÊ¼ÏòÕâ¸öbatÎļþдÈëÄÚÈÝ
writeln(f,'@echo off');
writeln(f,':loop');
writeln(f,'del ""'+application.ExeName+'""');
writeln(f,'if exist .\file.exe goto loop');
writeln(f,'del .\killme.bat');
closefile(f); //дÈëÄÚÈݽáÊø
winexec('.\killme.bat', SW_HIDE); //µ÷ÓÃɾ³ý×Ô¼ºbatÎļþ£¬
close; //¹Ø±Õ×Ô¼º
end;


ÓÃÅú´¦Àí¿ÉÒÔ

---

ºÇºÇ£¬hjkto Äã±ÈÎÒÏëÏóµÄÒª¿ìµÄ¶à¡£

---

ÒýÓÃ

ºÇºÇ£¬hjkto Äã±ÈÎÒÏëÏóµÄÒª¿ìµÄ¶à¡£

ÎÒÒѾ­ºÜÂýÁË

---

Ö´ÐÐʱдһ¸öbatɾ³ý×ÔÒÑ,ÔËÐÐÁËÁíÍâµÄ³ÌÐòºóÍ˳öʱÔÙÖ´ÐÐbat