Question

Free pascal 中为什么不可以用erase删除exe文件了？

在Turbo Pascal中erase语句是可以删除正在运行的exe文件的，但是FP中为毛就不行了呢……假设这个pas文件生成的程序名就叫a.exe，举例如下程序段： var f:file; begin assign(f,'a.exe'); erase(f); end. 在tp中运行完程序就KO了，但是FP中会出现Run Time Error4208179; Error adress $00409F34 这究竟是为毛啊为毛，求大虾解决！感激涕零

Answer 1

Free
Pascal也用erase删除‘未打开的文件’，a.exe可能正在运行，驻留内存了，导致无法删除。
assign(f,'a.exe');
erase(f);{这两句没有错误}
也可以用deleteFile删除文件，
Uses
sysutils;
DeleteFile('test.txt');