>>562
procedure TForm1.ShellTreeView1AddFolder(Sender: TObject;
　AFolder: TShellFolder; var CanAdd: Boolean);
begin
　CanAdd := CompareText(ExtractFileExt(AFolder.PathName), '.lnk') <> 0;
end;