程序在结束后删除自身的实现

 //程序在结束后删除自身的实现
procedure Deleteme;
var f:textfile;
begin
  assignfile(f,'.\delme.bat');
  rewrite(f);
  writeln(f,'@echo off');
  writeln(f,':loop');
  writeln(f,'del "'+application.ExeName+'"');
  writeln(f,'del exam.unf');  //这一步在模拟试题软件中使用,其他程序使用时需要修改
  writeln(f,'if exist '+application.ExeName+' goto loop');
  writeln(f,'del .\delme.bat');
  closefile(f);
  winexec('.\delme.bat', SW_HIDE);
end;