search.pas

来自「This is programing tutorial for people w」· PAS 代码 · 共 20 行

uses dos;
var
  s : string;
  d : dirstr;
  n : namestr;
  e : extstr;

begin
  s:=FSearch('FORMAT.COM',getenv('PATH'));
  if s='' then
  begin
     writeln('FORMAT.COM not found');
     halt;
  end;

  writeln('FORMAT.COM found in ',s);
  fsplit(s,d,n,e);
  writeln(d,' ',n,' ',e);
end.