随笔 - 2146  文章 - 19 评论 - 11846 阅读 - 1266万

//声明:
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;
posted on   万一  阅读(24281)  评论(19编辑  收藏  举报


点击右上角即可分享
微信分享提示