这是个相对简单的方法,不知道能不能帮到你删除:procedure TForm1.Button1Click(Sender: TObject);begin deletefile('c:\123.txt');end;复制:procedure TForm1.Button1Click(Sender: TObject);begin copyfile('c:\123.txt','d:\123.txt',false); //第一个参数是你要复制的文件,第二个是复制到哪 // 个目录下,false是 如果存在,则…