//声明:
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;
转载于:https://my.oschina.net/hermer/blog/319409