23-04-2016, 10:12 PM
مرحبا بك شرح مبسط و هذه هي الطريقة التي اعمل بها
هذا هو الكود
كود :
procedure TForm17.BitBtn2Click(Sender: TObject);
var
a,b:string;
begin
a:=ExtractFileDir(Application.ExeName)+'\' + 'db.mdb' ;
b:=Label3.Caption +'\'+ Edit1.Text+'.mdb' ;
CopyFileWithProgressBar1(a,b);
ShowMessage('تم إنشاء النسخة الإحتياطية بنجاح');
end;
و الصور للمكونات المتعملة في الطريقة موجودة في المرفقات
و ايضا صورة للاعدادت الاخرى المهمة![[-]](https://delphi4arab.net/forum/D4A2020/collapse.png)