+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف يتم تشغيل ملف تنفيذي داخل ارشيف rar/zip (/showthread.php?tid=3908)
كيف يتم تشغيل ملف تنفيذي داخل ارشيف rar/zip - ELARAPY - 22-02-2012
السلام عليكم ورحمة الله وبركاته
وجد هذا الكود لفك ضغط ملفات ال 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;ولكن كيف يتم تشغيله في حاله ان الارشيف به كلمة مرور
كيف يتم تشغيل ملف تنفيذي داخل ارشيف rar/zip - kachwahed - 23-02-2012
وعليكم السلام ورحمة الله وبركاته
حسب المصدر:
كود :
www.example-code.com/delphi/rar_list.aspإن كان هذا الأخير يدعم خاصية فك ضغط الملفات المحمية بكلمة مرور
فابحث ضمن ما يرفق مع ActiveX من أمثلة أو ملفات Help /SDK ونحو ذلك.