//声明: 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;
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】凌霞软件回馈社区,博客园 & 1Panel & Halo 联合会员上线
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步