WinAPI: CopyFile - 複製檔案

標籤：style   color   c   strong   string   檔案   

//聲明: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;