数据库备份？急急急！！(0分)

在编写数据库程序中，我想对数据库进行备份？各位，如何解决，要程序代码？

什么数据库?
不同数据库不同对策.

if messagedl('软盘插好了吗?',mtConfirmation,[mbyes,mbNo],0)=mryes then
if copyfile('源数据库1','a:/目标数据库1',false) and copyfile('源数据库2','a:/目标数据库2',false) then
messagedlg('数据已备份完毕！',mtinformation,[mbOK],0);
else
messagedlg('数据备份失败！',mterror,[mbOK],0);
end; //过程结束
======================
如果是备份到别的路径，修改相应的目标数据库路径即可。

桌面数据库！