WinAPI: CopyFile - 复制文件

//声明:
CopyFile(
  lpExistingFileName: PChar; {源文件}
  lpNewFileName: PChar;	     {目标文件}
  bFailIfExists: BOOL        {如果目标文件存在, True: 失败; False: 覆盖}
): BOOL;

---

//例1:
begin
  CopyFile('c:\BOOTLOG.TXT', 'c:\temp\BOOTLOG.TXT', True);
end;

---

//例2:
var
  ExistFile, NewFile: string;
begin
  ExistFile := 'c:\BOOTLOG.TXT';
  NewFile   := 'c:\temp\BOOTLOG.TXT';

  if CopyFile(PChar(ExistFile), PChar(NewFile), True) then
    ShowMessage('复制成功');
end;

如何从局域网下载文件？

假设服务器名是'Server'，共享目录是'Shared'
从服务器复制到本机：
copyfile(pchar('\\server\shared\filename'), pchar('filename'), false);
从本机复制到服务器：
copyfile(pchar('filename'), pchar('\\server\shared\filename'), false);

你可以像访问本机一样访问\\IP地址或计算机名\共享名称路径名，提取到本地电脑其实就是一个文件复制过程用 FILECOPY 函数就可以了，如有一台IP地址是192.168.0.2的机器共享了一个文件夹叫"数据"，那么就可以访问 \\192.168.0.2\数据\文件名 就可以了