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

[belkhir]

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

PHP كود :

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


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