通过网络复制文件

use ShellApi;

copyfile(pchar('newfile.txt',pchar('//computername/direction/target.txt'),false);