关于备份

Question

 SaveDialog1.InitialDir:=ExtractFilePath(ParamStr(0))+'bak\';
     SaveDialog1.FileName:=G_ztbm+'-'+inttostr(l_kjnf)+'-'+inttostr(l_kjyf)+'-'+inttostr(l_kjday)+'.bak';
     if not SaveDialog1.Execute then
        exit;
     FileName:=SaveDialog1.FileName;
    //
    Application.CreateForm(Tjdt, jdt);
    jdt.Show;
    jdt.update;
    //
    try
      l_sql:='BACKUP DATABASE '+g_ztbm+' to disk='''+filename+''' with init ';
      with dm1.ADOQuerybf do
       begin
        SQL.Clear;
        SQL.Add(l_sql);
        ExecSQL ;
        close;
       end;
    except
       jdt.free;
       msgboxinfo('备份出错！   ');
       exit;
    end;
    jdt.free;
    msgboxinfo('备份完成！   ');
    write_log('完成备份');
    exit;
这样代码没有错误,但是每次要SaveDialog1要跳出来,我希望直接保存在ExtractFilePath(ParamStr(0))+'bak\';
不需要跳出窗体出来选择路径,怎么改

Answer 1

savedialog去掉
FileName:=ExtractFilePath(ParamStr(0))+'bak\'+G_ztbm+'-'+inttostr(l_kjnf)+'-'+inttostr(l_kjyf)+'-'+inttostr(l_kjday)+'.bak';