Правила форума
FileSearch (функция) (модуль WinDos)Язык:
Русский
English
FileSearch (функция) (модуль WinDos)
Ищет файл.
Объявление
Function FileSearch(Dest, Name, DirList : PChar) : PChar;
Режим
Windows, Real, Protected
Замечания
Ищет файл в списке каталогов DirList. Каталоги в DirList должны быть разделены точками с запятой.
Смотри также
Пример
Язык:
Русский
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.
::
::
::
