Модуль 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.