دخول

bibill · 19-01-2012, 03:42 PM

السلام عليكم و رحمة الله و بركاته :

عندي فهرس اسمه Data يحتوي على قواعد البيانات
لضغط البيانات في ملف rar لحفض نسخة من قواعد البيانات كتبت هدا الكود ولم ينجح علما اني نقلته من برنامج آخر

كود :
public
    { Déclarations publiques }
    Chemin : String;
  end;

var
  F2: TF2;

implementation

uses UDm;


{$R *.DFM}


procedure TF2.BitBtn1Click(Sender: TObject);
var Instruction, Lieu : String;
    P : Pchar;
begin
     if SaveDialog1.Execute Then
     Begin
          DM.DataModuleDestroy(Sender);
          Lieu := SaveDialog1.FileName;
          Instruction := Chemin + '\Rar a ' + Lieu + ' *.*';
          p:=StrAlloc(Length(Instruction)+1);
          StrPCopy(P,Instruction);
          winexec(P,SW_Hide);
          Dm.DataModuleCreate(Sender);
     End;
end;

procedure TF2.BitBtn2Click(Sender: TObject);
var Instruction, Lieu : String;
    P : Pchar;
begin
     if OpenDialog1.Execute Then
     Begin
          DM.DataModuleDestroy(Sender);
          Lieu := OpenDialog1.FileName;
          Instruction := Chemin + '\Rar e ' + Lieu + ' ' + Chemin;
          p:=StrAlloc(Length(Instruction)+1);
          StrPCopy(P,Instruction);
          winexec(P,SW_Hide);
          Dm.DataModuleCreate(Sender);
     End;
end;

procedure TF2.FormActivate(Sender: TObject);
begin
  Chemin := ExtractFilePath(Application.ExeName)+'Data';
  SaveDialog1.InitialDir := Chemin;
  OpenDialog1.InitialDir := Chemin;
end;

end.

مع العلم أنه لم يظهر أي رسالة خطأ

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة