nbsp; ErrID:=GetLastError();
ExistingFileName:=SysErrorMessage(ErrID);
if Mode<2 then
begin
msg:=''''CopyFile Error!'''';
mbType:=OKOnly+Excalamation;
MsgBox(msg,mbType,ExistingFileName);
end;
Mode:=ErrID;
end;
CopyF:=CpFlag;
end;
CopyF函数参数说明如下:
若拷贝操作成功,函数CopyF返回True,失败函数CopyF返回False。
ExistingFileName是字符变量,输入时代表源文件名。若操作失败,则返回错误信息字符
串(由于调用了API函数,在中文Windows下该信息当然就是中文)。 NewFileName是字符
常量,代表目标文件名。
Mode是整数变量,输入时代表拷贝的方式:
0表示如果目标文件存在,将覆盖它,操作失败,将显示具有出错信
息的信息框;
1表示如果目标文件存在,不覆盖它,操作失败,显示具有出错信息
的信息框;
2表示如果目标文件存在,将覆盖它,操作失败,不显示信息框;
3表示如果目标文件存在,不覆盖它,操作失败,不显示信息框;
当拷贝操作失败时,Mode将返回出错代码。
总之,灵活应用API函数可以使您的应用程序的界面与您使用的Windows的语言环境相
当和谐地融为一体,摆脱掉Delphi的痕迹,使您的程序给人以相当"专业"的感觉。最后说明
一点,如果要使这些自定义的函数成为"全局"的,在其它单元中也能够使用,需将函数标题
复制到Unitl单元interfaces的type段中(应删除"TForml."几个字符);然后在调用函数的其他单
元implementation中的user段中加入Unitl;在函数名前要加上"Form1."几个字符,如在Unit2单
元中调用MsgBox就应写成Form1.MsgBox。
(以上所有函数均在Windows 95中文版使用Delphi Desktop V2.0
调试通过)
上一页 [1] [2] |
