ضغط ملف بواسطة WinRar

[belkhir]

السلم عليكم
كود لضغط وفك الضغط ب winrar الغني عن كل تعريف
procedure TForm1.sButton1Click(Sender: TObject);
begin
ShellExecute(Handle,'','WinRar','a Svg.rar *.* ',nil, SW_NORMAL)
end;



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

[kachwahed]

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

[mittoo6]

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

[STRELiTZIA]

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


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


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


HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Applications



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


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

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

[kachwahed]

خوارزمية الضغط Winrar غير متاحة، ولمن يبحث عن خوارزمية فك الضغط، هذا مكون مجاني مرفق بالأمثلة:
http://delphi.icm.edu.pl/ftp/d30free/rararc11.zip

[B.M.AbdelAziZ]

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

من الموقع الرسمي ل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

http://www.philippewechsler.ch/Release/RARComponent_20.zip
http://www.philippewechsler.ch/Release/ACEComponent_10Beta.zip