[COLOR="RoyalBlue"] السلام عليكم و رحمة الله تعالى و بركاته
مشكورين الاخوة الاعزاء على كل التوجيهات و النصائح القيمة
اخي Kachwahed استسمحك ان توضح لي قليلا فانا لم يسبق لي و ان تعاملت مع هذه الافكار [/COLOR]
كود :
upx Biblio.exe -9 --best --no-reloc
[COLOR="royalblue"]بصراحة اكثر اين يجب ان اضع هذا الكود
بخصوص اخي عبد العزيز يعجبني فيك انك صريح ولا تجامل ابدا
حقيقة انني احسست من واجهة الاعارة انها اكثر تعقيد فيجب ان تكون اكثر بساطة اليس كذالك
اما بخصوص مسار البرنامج قد وضعت الكود التالي [/COLOR]
كود :
procedure TData.DataModuleCreate(Sender: TObject);
begin
Base.Connected := false;
Base.Close;
Base.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + Getcurrentdir + '/Data/Biblio.mdb;';
Base.Connected:=True;
Base.Open;
livre.Open;
Duplicate.Open;
Emprunte.Open;
Emprunteur.Open;
Auteur.Open;
Editeur.Open;
Format.Open;
Genre.Open;
Provenance.Open;
Qretard.Open;
QImp.Open;
end;
[COLOR="#0000ff"]
أو بطريقة اخرى انسخ UPX.exe داخل مجلد برنامج او احسن داخل مجلد النظام مثلا C:\Windows
وعدل ملفك السابق كما يلي[/COLOR]
كود :
@echo off
del *.~* /s
del *.dcu /s
del *.map /s
del *.ddp /s
del *.dti /s
del *.dof /s
del *.cfg /s
del *.bak /s
del *.stat /s
echo Clean Delphi 2009/2010 files...
del *.local /s
del *.identcache /s
del *.2007 /s
del *.tvsconfig /s
attrib __history -h
rd __history /s /q
cls
Echo Compressing...
[color=Blue]upx Biblio.exe --best --no-reloc[/color]
del *.bak
exit
شكرا لكم على المعلومات الاضافية كلتا الحالتين نجحتا معي طريقة السحب و الافلات و طريقة الاخ عبد العزيز و حصلت على 1.27 m بدلا من 2.65
[COLOR="royalblue"] ساجرب فيما بعد المسارات لانني اول مرة اتاعمل مع اكسس
السلام عليكم [/COLOR]
ملاحظتين:
- بالنسبة للمسار: ليس شرطا وضع القاعدة بمجلد Data يمكن وضعها بنفس مجلد البرنامج وعند الاتصال اكتب فقط اسم القاعدة
-بالنسبة للضغط: عند التنفيذ البرنامج المضغوط يستهلك ذاكرة أكثر من غير المضغوط!
الحقيقة يا استاذنا انا استفيد منك كثيرا و اقدر ما تقدمه لهذا المنتدى الله يجعله في ميزان حسناتك
السلام عليكم
ما شاء الله عمل جيد بالتوفيق اخ عنتر
سلامي
