菜鸟问题：如何打开如windows的资源管理器那样的对话框来数据备份/恢复？qaz2003、haifeilong请进 ( 积分: 50 )

ADO+access
数据备份/恢复时如何打开如windows的资源管理器那样的对话框？
数据备份时弹出对话框，选择路径，改名保存；
数据恢复时通过选择路径、取得文件名。
procedure TFmain.N15Click(Sender: TObject);
var
filename:string;
begin
if messagedlg('注意：备份前注意输入新的文件名，确定备份吗？',mtWarning,[mbyes,mbno],0)=mryes then
begin
filename:=FormatDateTime('yyyy年m月d日',date())+'.mdb';
if fileExists(ExtractFilePath(Application.exename)+'/backup/'+FormatDateTime('yyyy年m月d日',date())+'.mdb') then
begin
messagebox(Handle,'数据库文件已经存在，'+#13#10+'不用建备份该文件。','确定',
mb_ok or MB_ICONWARNING);
exit;
end
else
copyfile(PChar(ExtractFilePath(Application.exename)+'/data/大会战200.mdb'),
PChar(ExtractFilePath(Application.exename)+'/backup/'+FormatDateTime('yyyy年m月d日',date())+'.mdb'),true);
messagebox(Handle,'数据库文件备份成功','确定',mb_ok or MB_ICONWARNING);
end;
end;

procedure TFmain.N16Click(Sender: TObject);
var
filename:string;
begin
//FileName := InputBox('输入框','请输入文件名','');
//if FileName = '' then Exit;
dm.AC1.Connected:=false;
copyfile(pchar(opendialog1.FileName),pchar(current+'/backup/aabc.mdb'),false);
try
dm.AC1.Connected:=true;
except
application.MessageBox('数据恢复失败,可能是你选择的备份文件错误.','提示',mb_ok+mb_iconinformation);
exit;
end;

end;
看了qaz2003、haifeilong的代码，只是opendialog1.FileName不理解。

ADO+access
数据备份/恢复时如何打开如windows的资源管理器那样的对话框？
数据备份时弹出对话框，选择路径，改名保存；
数据恢复时通过选择路径、取得文件名。
procedure TFmain.N15Click(Sender: TObject);
var
filename:string;
begin
if messagedlg('注意：备份前注意输入新的文件名，确定备份吗？',mtWarning,[mbyes,mbno],0)=mryes then
begin
filename:=FormatDateTime('yyyy年m月d日',date())+'.mdb';
if fileExists(ExtractFilePath(Application.exename)+'/backup/'+FormatDateTime('yyyy年m月d日',date())+'.mdb') then
begin
messagebox(Handle,'数据库文件已经存在，'+#13#10+'不用建备份该文件。','确定',
mb_ok or MB_ICONWARNING);
exit;
end
else
copyfile(PChar(ExtractFilePath(Application.exename)+'/data/大会战200.mdb'),
PChar(ExtractFilePath(Application.exename)+'/backup/'+FormatDateTime('yyyy年m月d日',date())+'.mdb'),true);
messagebox(Handle,'数据库文件备份成功','确定',mb_ok or MB_ICONWARNING);
end;
end;

procedure TFmain.N16Click(Sender: TObject);
var
filename:string;
begin
//FileName := InputBox('输入框','请输入文件名','');
//if FileName = '' then Exit;
dm.AC1.Connected:=false;
copyfile(pchar(opendialog1.FileName),pchar(current+'/backup/aabc.mdb'),false);
try
dm.AC1.Connected:=true;
except
application.MessageBox('数据恢复失败,可能是你选择的备份文件错误.','提示',mb_ok+mb_iconinformation);
exit;
end;

end;
看了qaz2003、haifeilong的代码，只是opendialog1.FileName不理解。

自已解决，谢谢大家。

就是在界面上放一个OpenDialog控件，一个SaveDialog控件，
if OpenDialog1.Execute then
begin
//do your task;
end;

接受答案了.