blob: 512d7adade04d8b1871051dd960b2e7383c453ed (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
Program Example41;
{ Program to demonstrate the FileSearch function. }
Uses Sysutils;
Const
{$ifdef unix}
FN = 'find';
P = '.:/bin:/usr/bin';
{$else}
FN = 'find.exe';
P = 'c:\dos;c:\windows;c:\windows\system;c:\windows\system32';
{$endif}
begin
Writeln ('find is in : ',FileSearch (FN,P));
end.
|
