sqlserver备份 如何显示状态条

Question

用sqlserver客户端备份数据库有状态条显示，
procedure TFrmMain.NSystBackupClick(Sender: TObject);
var strFile:string;
begin
  //  数据库备份
  SaveDlgData.Filter:='All files (*.*)|*.*';
  SaveDlgData.FileName:='DataBack'+DateToStr(now);  if SaveDlgData.Execute then
  begin 
    strFile:=SaveDlgData.FileName;
    DataModuleMain.ADOQBack.Close;
    DataModuleMain.ADOQBack.SQL.Clear;
    DataModuleMain.ADOQBack.SQL.Add('backup database asSafeRailPort to disk='''+strFile+''' ');
    
    try
      DataModuleMain.ADOQBack.ExecSQL;      Application.MessageBox(pchar('数据库已经备份到'+strFile+'!'),'提示',MB_OK+MB_ICONINFORMATION );
 
    except
      Application.MessageBox('文件写入错误！','错误',MB_OK+MB_ICONERROR ); 
    end;  end;
end;
这段程序直接备份数据库是可以的，但是怎样让他显示出那个状态条呢

Answer 1

有接口的
网上搜一下，很多的