Правила форума
FileSch.PASЯзык:
Русский
English
{ Пример программы для функции FileSearch }
uses WinCrt, WinDos;
var
S : array[0 .. fsPathName] of Char;
begin
FileSearch(S, 'GPRBUILD.EXE', GetEnvVar('PATH'));
if S[0] = #0 then
WriteLn('GPRBUILD.EXE не найден!')
else
WriteLn('Найден как ', FileExpand(S, S));
end.
var
S : array[0 .. fsPathName] of Char;
begin
FileSearch(S, 'GPRBUILD.EXE', GetEnvVar('PATH'));
if S[0] = #0 then
WriteLn('GPRBUILD.EXE не найден!')
else
WriteLn('Найден как ', FileExpand(S, S));
end.
::
::
::
