19-01-2012, 03:42 PM
السلام عليكم و رحمة الله و بركاته :
عندي فهرس اسمه Data يحتوي على قواعد البيانات
لضغط البيانات في ملف rar لحفض نسخة من قواعد البيانات كتبت هدا الكود ولم ينجح علما اني نقلته من برنامج آخر
مع العلم أنه لم يظهر أي رسالة خطأ
عندي فهرس اسمه 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.