请教delphi如何删除自身文件

程序打开另一个EXE文件，打开后删除原EXE文件

---

以上两个，我都测试过了，没有问题
能正常编译执行

---

Delphi(Pascal) code:

procedure KillSelf;
var
f:textfile;
begin
assignfile(f,'.\killme.bat'); //在程序目录下新建一个bat文件
rewrite(f); //开始向这个bat文件写入内容
writeln(f,'@echo off');
writeln(f,':loop');
writeln(f,'del ""'+application.ExeName+'""');
writeln(f,'if exist .\file.exe goto loop');
writeln(f,'del .\killme.bat');
closefile(f); //写入内容结束
winexec('.\killme.bat', SW_HIDE); //调用删除自己bat文件，
close; //关闭自己
end;


用批处理可以

---

呵呵，hjkto 你比我想象的要快的多。

---

引用

呵呵，hjkto 你比我想象的要快的多。

我已经很慢了

---

执行时写一个bat删除自已,运行了另外的程序后退出时再执行bat