Показать сообщение отдельно
  #2  
Старый 01.11.2012, 13:36
Amzi Amzi вне форума
Прохожий
 
Регистрация: 10.10.2012
Сообщения: 26
Репутация: 10
По умолчанию

Решение:
Код:
CanAdd := MatchesMask(AFolder.PathName,'*.exe')
or
MatchesMask(AFolder.PathName,'*.lnk')
Ответить с цитированием