11-10-2018, 03:14 PM
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;