كود :
procedure TForm1.sButton1Click(Sender: TObject);
begin
RF('C:\');//برتشن البحث
end;
procedure TForm1.RF(const folder: TFileName);
var
Sr: TSearchRec;
begin
if FindFirst(folder + '*.*', faAnyFile, Sr) = 0 then
begin
Edit1.Text:=folder;
try
repeat
if (Sr.Attr and faDirectory = 0) or( Sr.Name <> '.') and (Sr.Name <> '..') then
Begin
until FindNext(Sr) <> 0;
except
FindClose(Sr);
raise;
end;
FindClose(Sr);
end;
اللهم اهدنا واهد بنا وجعلنا سببا لم اهتدى