delphi写的删除文件的源代码 删除全盘文件的源代码 { 将目标文件写入垃圾码后删除 } procedure SmashFile(FileName: string); const //垃圾码,以备写入 Catchword = 'If a race need to be killed out, it must be Yamato.