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

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

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;