These lines show how to fill a listview, so that it looks like an Explorer window:
While ShellBrowser.Next do begin Item := ListView.Items.Add; Item.Caption := ShellBrowser.GetShellObjectName; Item.ImageIndex := ShellBrowser.IconNumber; end;