DELPHI 在程序中怎么还原SQL 数据库

我的空间里有这部分的案例,现摘录一部分,详细请看我的空间博客:
(要还原的是Library数据库)
ADOQuery1一定要连到master数据库，否则就会让library脱机.
begin
DataModule17.ADOConnection1.Close;//这个是连到library数据库的，所以要先断开
with ADOQuery1 do
begin
Close;
SQL.Clear;

SQL.Add('use master alter database library set offline WITH ROLLBACK IMMEDIATE ');
SQL.Add('restore database library from disk=:p1 with REPLACE');
SQL.Add('alter database library set online with rollback immediate');
parameters.ParamByName('p1').Value := self.Edit1.Text; //显示备份文件的路径和文件名
try
ExecSQL;
ShowMessage('还原成功！！');
except
Showmessage('还原失败！！');
exit;
end;
end;
end; //End Of 还原数据库

可以直接用SQL语句来还原数据库，也可以自己写一个外部程序来还原数据库。这个很简单的