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;