fexpand.pas

Пример программы для процедур FExpand и FSearch.

Код примера

Uses Dos;
 
 Var S : PathStr;
 
 Begin
  S:=FSearch('TURBO.EXE', GetEnv('PATH'));
  If S='' Then WriteLn('TURBO.EXE не найден.')
  Else WriteLn('Найден как ',FExpand(S));
 End.

Скачать fexpand.pas