以前有人答过了阿
最简单是否就是备份文件,然后再恢复文件。都是以拷贝方式。
procedure TFrmTotal.Button3Click(Sender: TObject);
begin
if MessageBox(GetActiveWindow(), '是否从备份目录中恢复数据?', '提示', mb_IconQuestion + mb_YesNo) = Id_yes then
begin
CopyFile('c:/WSoftDataBak.dat', 'c:/PHG.da', False);
ShowMessage('数据已成功恢复');
end;
end;
procedure TFrmTotal.BackupDataButClick(Sender: TObject);
begin
CopyFile('c:/PHG.da', 'c:/WSoftDataBak.dat', False);
Application.MessageBox('数据文件已备份成功', '系统提示', 1);
end;