Delphi 實現自刪除

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)+'"')); wri

>>阅读原文<<