数据库备份问题？

Question

有人可以告诉我，在dephi里面如何写代码，实现数据库的备份。实现数据库的压缩也行！

Answer 1

copyfile('table.db' '你要备份的路径',false)

Answer 2

table.db是什么啊 ？
是路径名和表名吗?但我都试过了，没东西出来啊!

Answer 3

procedure TFbak1.Button1Click(Sender: TObject);
var
  ErrorMessage: Pointer;      
  ErrorCode: DWORD;           
  ErrorMessageString:string;
begin
  if not CopyFile('原始数据名','备份数据库名',False) then
  begin
    ErrorCode := GetLastError;
    FormatMessage(FORMAT_MESSAGE_ALLOCATE_BUFFER or FORMAT_MESSAGE_FROM_SYSTEM,
                  nil, ErrorCode, 0, @ErrorMessage, 0, nil);
    ErrorMessageString:='文件备份错误：'+PChar(ErrorMessage);
    MessageBox(handle,PChar(ErrorMessageString),'警告',MB_ok or MB_ICONERROR);
    LocalFree(hlocal(ErrorMessage));
  end
  else MessageBox(handle,'文件备份成功','信息',MB_ok or MB_ICONINFORMATION);
end;

Answer 4

1、Copy
2、去下载第三方压缩解压控件！