با کد زیر که همون کد آقای عقاب هست و من یه کم تغییرش دادم میتوننین به طور کامل از بانک برنامه پشتیبان بگیرین. روی فرم یک ShellTreeView و یک ADOCommand و یک Button قرار بدین. روی Button دو بار کلیک کنید و کد زیر را بنویسید. فایل پشتیبان گرفته شده در محلی که انتخاب میکنید با نامی که از ساعت و تاریخ جاری سیستم تشکیل شده ذخیره میشود.



procedure TBackup.Button1Click(Sender: TObject);

var

  str,s,s1,s2,s3,t,t1,t2,t3,t4 : string;

begin

  try

    str := ShellTreeView1.Path;

    

    s := DateToStr(Date);

    s1 := copy(s,1,4);

    s2 := copy(s,6,2);

    s3 := copy(s,9,2);

    s := 'backup_'+s1+'_'+s2+'_'+s3;



    t := TimeToStr(time);

    t1 := copy(t,1,2);

    t2 := copy(t,4,2);

    t3 := copy(t,7,2);

    t4 := copy(t,10,7);

    t := ' in clock '+t1+'-'+t2+'-'+t3+' '+t4;



    str := str+'\'+s+t;

    with ADOCommand1 do

    begin

      CommandText:='BACKUP DATABASE photographer TO DISK='+QuotedStr(str);

      execute

    end;

    ShowMessage('پشتیبان گیری با موفقیت انجام شد');

  except

MessageDlg('در پشتیبان گیری خطا رخ داده است. لطفا دوباره سعی کنید',mtError,[mbOK],0);

  end;

end;


اگه این کد مشکلی داشت شما بگید من با کمال میل میپذیرم.