Danke
Funktioniert, aber noch nicht ganz.
Die Dateiendung muß noch weg, dann gehts......
Delphi-Quellcode:
procedure TForm6.ShellListView1AddFolder(Sender: TObject; AFolder: TShellFolder;
var CanAdd: Boolean);
var Dateiname:String;
begin
Dateiname:= ChangeFileExt(ExtractFilename (OpenDialog1.FileName), '');
if CompareText (AFolder.DisplayName,Dateiname) = 0 then
CanAdd := true
else
CanAdd := false;
end;