fpcdocs/unixex/ex46.pp


1
2
3
4
5
6
7
8
9

Program Example46;

{ Program to demonstrate the FSearch function. }

Uses BaseUnix, Unix, Strings;

begin
  Writeln ('ls is in : ',FSearch ('ls',strpas(fpGetenv('PATH'))));
end.