Turbo Pascal Documentation

Функция FSearch

Модуль Dos

     Функция: Ищет файл в списке каталогов.
     Описание: FSearch(маршрут: PathStr; список_кат: string)
     Примечания: Функция выполняет  поиск  файла,  заданного
параметром  "маршрут", в списке каталогов, заданных парамет-
ром "список_кат". Каталоги в списке должны разделяться  точ-
кой  с  запятой  аналогично тому, как это делается в команде
операционной системы ДОС PATH. Поиск начинается всегда с те-
кущего  каталога  на  текущем  диске.  Возвращаемое значение
представляет собой конкатенацию одного из маршрутов  катало-
гов и имени файла или, в том случае, если файл найден не бу-
дет, пустую строку.
     Тип PathStr описан в  модуле  Dos,  как  строковый  тип
string[79].
     Для нахождения выполняемых файлов с помощью команды ДОС
PATH  нужно  вазвать процедуру GetEnv('PATH') и передать ре-
зультат функции FSearch в качестве параметра "список_кат".
     Результат  функции  FSearch  можно   передать   функции
FExpand  для  преобразования его в полное имя файла, то есть
имя файла, записанное прописными буквами включающее  в  себя
буквенную  метку дисковода и маршрут доступа к каталогу, на-
чиная от корневого каталога. Кроме того для разделения имени
файла  на  строку,  определяющую каталог, и строку, задающую
дисковод можно использовать функцию FSplit.
     Прочее: См. также функции FExpand, Fsplit, GetEnv.
     Пример:

  uses Dos;
  var
    S: PathStr;
  begin
    S: := FSearch('TURBO.EXE', GetEv('PATH'));
    if S = '' then
       WriteLn('Файл TURBO.EXE не найден');
    else
       WriteLn('Найден файл ',FExpand(S));
  end.