[ファイルをコピーする]

ファイルをコピーします。

Delphiにファイルをコピーする関数はありません。その代り、Windows APIのCopyFile関数を使用します。

書式：CopyFile(コピー元ファイル名,コピー先ファイル名,フラグ)

フラグ
　Ture：　コピー先に同名ファイルがある場合は、処理を中止しFalseを返します。
　False： コピー先に同名ファイルがある場合は、上書きします。

CopyFile関数はAPI関数の為、ファイル名をString型で与える時は、PChar型にキャストする必要があります。

program tips0055;
{$APPTYPE CONSOLE}
uses SysUtils,  MMSystem ,WINDOWS;
var
 F1,F2:string;
 tm:int64;
begin
  tm:=timeGettime; 
  WriteLn('◆CopyFileを使用');
  F1:='tips0055_input.txt';
  F2:='tips0055_output.txt';
  CopyFile(PChar(F1),PChar(F2),false);
  WriteLn('処理時間：',inttostr(timeGettime-tm),'ms');
end.

dcc32 tips0055.pas 
tips0055.exe  > tips0055.txt
pause

aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa

aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa

◆CopyFileを使用
処理時間：0ms