Datei in Shelllistview darstellen

[Thomas F]

Zitat von DeddyH:

Und etwas kürzer dann:

Delphi-Quellcode:

procedure TForm6.ShellListView1AddFolder(Sender: TObject; AFolder: TShellFolder;
  var CanAdd: Boolean);
begin
  CanAdd := AnsiSameText(AFolder.DisplayName,ChangeFileExt(ExtractFilename (OpenDialog1.FileName), ''));
end;

....ich habs ausprobiert,geht aber nicht