不是运行而是编译
CopyFile函数的原形应该是 Copyfile(PChar ,PChar ,Bool) ;
所以最后一行应改为 u:=CopyFile(PChar(p1) ,PChar(p2) ,False) ;