请问如何能返回正确路径???
出现问题的代码如下:
=======================================================
procedure TForm5.SpeedButton13Click(Sender: TObject);
var
MBWJ,HYWJ:string;
Data : String;
begin
IF not FileExists(Edit10.Text) then //检查还原数据库的目标文件是否存在
begin
showmessage('请选择要还原的备份文件');
exit;
end;
if application.MessageBox('确认要还原吗,建议先备份当前数据?','提示',mb_okcancel)=idok then
begin
MBWJ:=Edit10.Text; //用来还原数据库的备份文件路径
HYWJ:=Edit11.Text; //系统当前数据库的路径
TRY
//======================
FORM6.Timer1.Enabled:=true;
FORM6.Label1.Caption:='正在恢复数据,请稍候. . . . . . ';
FORM6.DATABACKUP:=2;
FORM6.Update;
//==========================
CopyFile(PChar(MBWJ), PChar(HYWJ), FALSE); //把之前备份的文件覆盖当前的数据库
//===============
FORM6.Show;
FORM6.Update;
FORM6.BACKUPPBAR(MBWJ,HYWJ);
//==================
showmessage('成功恢复!系统5秒后重新进入!');
WinExec('restart.exe',1);
Application.Terminate;
except
showmessage('恢复数据失败,请重试!');
end;
end;
end;
//========================================================
以上代码运行之前路径是形式: 【C:\Users\AAAAAA\BBBBBB\DATA\XXXXXX.DAT】 (XXXXXX.DAT是数据库文件)。
但当运行备份数据库之后,路径竟变成了【C:\Users\AAAAAA\BBBBBB\备份目录\DATA\XXXXXX.DAT】。
现在问:如何返回备份之前的路径呢?