22-02-2012, 07:41 PM
السلام عليكم ورحمة الله وبركاته
وجد هذا الكود لفك ضغط ملفات ال zip
ولكن كيف يتم تشغيله في حاله ان الارشيف به كلمة مرور
وجد هذا الكود لفك ضغط ملفات ال 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;ولكن كيف يتم تشغيله في حاله ان الارشيف به كلمة مرور