标签：
program Project1; uses SysUtils, windows; var f:textfile; a:string; begin a:=paramstr(0); assignfile(f, ‘delself.bat‘); rewrite(f); writeln(f, ‘del ‘ + pchar(‘"‘+pchar(a)+‘"‘)); writeln(f, ‘del %0‘); closefile(f); winexec(‘delself.bat‘, sw_hide); end.
http://blog.csdn.net/emdfans/article/details/11769483
标签：
原文地址：http://www.cnblogs.com/findumars/p/5599418.html
