دخول

zohirbgn

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

إخواني كيف إضهار قائمة الملفات أو المحتويات من أرشيف .zip او .rar او .iso في ListView؟
مثال WinRAR او UltraISO

**onexite** · 12-10-2018, 07:59 AM

(11-10-2018, 03:14 PM)zohirbgn كتب : السلام عليكم ورحمة الله

إخواني كيف إضهار قائمة الملفات أو المحتويات من أرشيف .zip او .rar او .iso في ListView؟
مثال WinRAR او UltraISO

كود :
procedure FileSearch(const PathName: string; const Extensions: string;
 var lstFiles: TStringList);
const
  FileMask = '*.*';
var
  Rec: TSearchRec;
  Path: string;
begin
  Path := IncludeTrailingBackslash(PathName);
  if FindFirst(Path + FileMask, faAnyFile - faDirectory, Rec) = 0 then
    try
      repeat
        if AnsiPos(ExtractFileExt(Rec.Name), Extensions) > 0 then
          lstFiles.Add(Path + Rec.Name);
      until FindNext(Rec) <> 0;
    finally
      SysUtils.FindClose(Rec);
    end;

  if FindFirst(Path + '*.*', faDirectory, Rec) = 0 then
    try
      repeat
        if ((Rec.Attr and faDirectory) <> 0) and (Rec.Name <> '.') and
          (Rec.Name <> '..') then
          FileSearch(Path + Rec.Name, Extensions, lstFiles);
      until FindNext(Rec) <> 0;
    finally
      FindClose(Rec);
    end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  FileList : TStringList;
begin
  FileList:=TStringList.Create;
  FileSearch('..', '.txt;.tmp;.exe;.doc', FileList);
  memo1.text:=FileList.Text;
  FileList.free;
end;

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