随笔 - 2146  文章 - 97 评论 - 11767 trackbacks - 253

//声明:
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 2008-02-11 08:38  万一  阅读(...)  评论(...编辑  收藏