说是数据库的备份,但实际只是用CopyFile把文件拷贝一遍而已,废话不多说了,直接看代码吧!
最后附上CopyFile的用法:
CopyFile(
lpExistingFileName: PChar; {源文件}
lpNewFileName: PChar; {目标文件}
bFailIfExists: BOOL {如果目标文件存在, True: 失败; False: 覆盖}
): BOOL;
see Yizero by yizero.com