Модуль WinDos

Ищет файл.

Объявление:

Function FileSearch(Dest, Name, DirList: PChar): PChar;

Режим:

Windows, Real, Protected

Замечание:

Ищет файл в списке каталогов DirList. Каталоги в DirList должны быть разделены точками с запятой.

Пример:

{Пример программы для функции FileSearch}

Uses Crt, Dos;

Var S : Array [0..fsPathName] Of Char;

Begin
 FileSearch(S, 'TPW.EXE', GetEnvVar('PATH'));
 If S[0] = #0 Then WriteLn('TPW.EXE не найден!')
 	Else WriteLn('Найден как ', FileExpand(S, S));
End.