procedure TForm1.Button1Click(Sender: TObject);
var
sr: TSearchRec;
RootPath: String;
I: Integer;
CurItem: TListItem;
begin
RootPath := 'G:\*.*';
I := 0;
if FindFirst(RootPath, faHidden, sr) = 0 then
begin
repeat
if (sr.Attr and faHidden) = sr.Attr then
begin
Inc(I);
CurItem := ListView1.Items.Add;
CurItem.Caption := IntToStr(I);
CurItem.SubItems.Add(sr.Name);
end;
until FindNext(sr) <> 0;
FindClose(sr);
end;
end;