دخول

ELARAPY · 22-02-2012, 07:41 PM

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

وجد هذا الكود لفك ضغط ملفات ال zip

كود :
uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls,
    ChilkatZip2Lib_TLB,
    OleCtrls;

...

procedure TForm1.Button1Click(Sender: TObject);
var
rar: TChilkatRar;
success: Integer;

begin
rar := ERROR;

//  Note: The Chilkat RAR functionality only provides the ability
//  to open, list, and "unrar" (i.e. extract) RAR archives.  It does
//  not provide the ability to create RAR archives.

//  Also, the Chilkat RAR functionality is free.  It does not
//  require a license to use indefinitely.

success := rar.Open('abc123.rar');
if (success <> 1) then
  begin
    ShowMessage(rar.LastErrorText);

  end;

success := rar.Unrar('c:/temp/unrarDest/');
if (success <> 1) then
  begin
    ShowMessage(rar.LastErrorText);
  end
else
  begin
    ShowMessage('Success.');
  end;
end;

ولكن كيف يتم تشغيله في حاله ان الارشيف به كلمة مرور

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة