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.
Тэги:
| G+
Код для вставки: :: :: :: ::
Поделиться: // //