procedure TForm1.Button1Click(Sender: TObject);
begin
  showmessage(shellListView1.Selectedfolder.DisplayName);
  showmessage(shellListView1.Selectedfolder.PathName);
end;