IntraBiysk

Ищет все файлы соответствующие маске на диске начиная с директории dir и вглубь (это может быть и диск, скажем D:\) и в отличие от предыдущих действительно работает: procedure FindFile(dir: string); var sr:TSearchRec; begin dir:=IncludeTrailingBackslash(dir); ChDir(dir); if FindFirst(EditFileSearch....