1、自我复制 ExtractFilename获取文件名,再copyfile到另外一个目录。 2、自我删除 AssignFile创建一个批处理文件bat,然后写入批处理代码,运行这个批处理代码,来删除自身的EXE文件。 参考:1、常用代码(Delphi 自我复制自我删除)