如何使listview显示隐藏文件？

Question

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;—————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
—————————————————————————————————