有谁可以告诉我在DELPHI里怎样实现将一个文件复制到指定的位置上呢？

Question

有谁可以告诉我在DELPHI里怎样实现将一个文件复制到指定的位置上呢？

Answer 1

CopyFile('c:\test.txt', 'd:\test.txt', False);

Answer 2

shellexec('copy a d:')winexec('copy a d:')

Answer 3

假设f1:='c:\t.txt'为源文件
    f2:='d:\c.txt'为你要复制的文件和目录
var  sf,tf:file(zhe;
numread,numwrite:integer;
buf:array [0..1024] of byte;
begin 
   assignfile(sf,f1);
  reset(sf，1）；
  assignfile(tf,f2);
  rewrite(tf,1);
 repeat
  blockread(sf,buf,sizeof(buf),numread);
 blockwrite(tf,buf,numread,numwrite);
until(numread=0) or (numread<>numwrite);
closefile(sf);
closefile（tf);
end;

Answer 4

if CopyFile('c:\123.txt', 'c:\456.txt', False) then
showmessage('ok');