Delphi自动删除文件，也可把程序自已删除，如何删除文件自身，请详见代码，运行效果图请参见测试图片。具体的实现过程可参见以下代码，使用到的Delphi自带函数还是挺多的：　　BatchFileName:=ExtractFilePath(ParamStr(0))'_deleteme.bat';　　AssignFile(BatchFile,BatchFileName);　　Rewrite(BatchFile);　　Writeln(BatchFile,':try');　　Writeln(BatchFile,'del"'Para