//程序在结束后删除自身的实现
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;
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;