procedure TMainForm.ShellTreeAddFolder(Node: TJamShellTreeNode; Path: String;
var CanAdd: Boolean);
begin
CanAdd := Node.SpecialFolder <> SF_QUICKACCESS;
end;