Datei in Shelllistview darstellen

[gmc616]

Vielleicht so?
ShellListView1.Root := ExtractFilePath(Opendialog1.Filename); Damit wirklich _nur_die_eine_gewählte_ Datei anzeigt wird, musst du im OnAddFolder-Event nach dem Dateinamen filtern.
z.B. so:

Delphi-Quellcode:

procedure TForm1.ShellListView1AddFolder(Sender: TObject;
  AFolder: TShellFolder; var CanAdd: Boolean);
begin
  if CompareText (AFolder.DisplayName, ExtractFileName (OpenDialog1.FileName)) = 0 then
    CanAdd := true
  else
    CanAdd := false;
end;