filesch.pas

 {FileSch.PAS}
 
 { Пример программы для функции FileSearch }
 
 Uses WinCrt, WinDos;
 
 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.