delphi4arab منتديات دلفي للعرب

السلم عليكم
كود لضغط وفك الضغط ب winrar الغني عن كل تعريف

PHP كود :
procedure TForm1.sButton1Click(Sender: TObject);
begin
 ShellExecute(Handle,'','WinRar','a Svg.rar *.* ',nil, SW_NORMAL)
end; 

كود لضغظ الملفات بواسطة وين رار WinRar
مثال لارشفت قواعد بيانات من نوع اكسس
يكتب الكود على النحو التالي
WinRar a Mdb.rar *.mdb

لكن يجب التنبيه أن يكون Winrar يجب أن يكون مثبت على الجهاز، وإلا يجب استعمال خوارزمية WinRar.

ولكن كيف يعرف البرنامج موقع ملف الرار اي مسار الملف

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

إقتباس :ولكن كيف يعرف البرنامج موقع ملف الرار اي مسار الملف

هذا مثال : طريقة البرنامج الضار Tazebama في الوصول الى مسار Winrar لتلويثه...

كود :
HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Applications

كود :
[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Applications\WinRAR.exe\shell\open\command]
@="\"C:\\Program Files\\WinRAR\\WinRAR.exe\" \"%1\""

يعني بطريقة اوضح اعتمد على مفاتيح الريجيستري للحصول على ماتريد من معلومات، سواء كانت مسارات او غيرها...

بالتوفيق ان شاء الله

خوارزمية الضغط Winrar غير متاحة، ولمن يبحث عن خوارزمية فك الضغط، هذا مكون مجاني مرفق بالأمثلة:

كود :
http://delphi.icm.edu.pl/ftp/d30free/rararc11.zip

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

من الموقع الرسمي لWinRar

كود :
http://www.rarlab.com/rar_add.htm

نجد الملفات المصدرية لمكتبة الضغط UnRAR متوفرة للتحميل

كود :
http://www.rarlab.com/rar/unrarsrc-4.0.7.tar.gz

وهناك ايضا مكونين دلفي اخرين

كود :
http://www.rarlab.com/rar/RARComponent_12.zip
http://www.rarlab.com/rar/TDFUnRar.zip

نسخة احدث من موقع صاحبها + مكون لفك ضغط الصيغة ACE

كود :
https://torry.net/authorsmore.php?id=7116
https://torry.net/files/vcl/compress/std/ACEComponent10Beta.zip

belkhir