自动附加Sqlserver数据库

procedure TfrmMain.RestoreDataBase;
var
  CmdStr,
  Paths:String;
begin
  Paths:=Extractfilepath(Application.ExeName);
  if fileexists(ConCat(Paths,\'数据库文件名称\')) then
    try
    CmdStr:=\'ISQL -E -Q "if (select Count(*) from sysdatabases where name=%s)=0 EXEC sp_attach_db @dbname = N%s,@filename1 = N%s,@filename2 = N%s"\';
    CmdStr:=format(CmdStr,[ConCat(#39,\'NGISdbms\',#39),
                           ConCat(#39,\'数据库名称\',#39),
                           ConCat(#39,Paths,\'数据库文件名称\',#39),
                           ConCat(#39,Paths,\'数据库日志文件名称\',#39)]);
    WinExec(PChar(CmdStr),0);
    except
    on E:Exception do
      Logmemo.Add(e.Message);
    end;
end;