充分利用Windows API扩展Delphi函数

mbType:=OKOnly+Excalamation;

MsgBox(msg,mbType,ExistingFileName);

end;

Mode:=ErrID;

end;

CopyF:=CpFlag;

end;

CopyF函数参数说明如下:

若拷贝操作成功,函数CopyF返回True,失败函数CopyF返回False。

ExistingFileName是字符变量,输入时代表源文件名。若操作失败,则返回错误信息字符

常量,代表目标文件名。

Mode是整数变量,输入时代表拷贝的方式:

0表示如果目标文件存在,将覆盖它,操作失败,将显示具有出错信

息的信息框;

1表示如果目标文件存在,不覆盖它,操作失败,显示具有出错信息

的信息框;

2表示如果目标文件存在,将覆盖它,操作失败,不显示信息框;

3表示如果目标文件存在,不覆盖它,操作失败,不显示信息框;

当拷贝操作失败时,Mode将返回出错代码。