Delphi ファイルのコピー

Delphiの関数には無いのでWin32APIを使う
uses に WINDOWS を追加
//=============================================================================
// FC_SearchFile:指定されたファイルをコピーする
//…………………………………………………………………..
// FielFrom :コピー元ファイル
// FielTo :コピー先ファイル
// Mode :上書き禁止モード(True:上書き禁止、False:上書き)
// :
// result :True:成功、False:失敗
//…………………………………………………………………..
// 注記 :
// :
//=============================================================================
function FC_FileCopy(FileFrom:string;FileTo:string;Mode:boolean):boolean;
begin
Result:=CopyFile(PChar(FileFrom),PChar(FileTo),Mode);
end;

シェアする

フォローする