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
