35 lines
734 B
ObjectPascal
35 lines
734 B
ObjectPascal
uses dos;
|
|
|
|
var s,spath:string;
|
|
ps:dirstr;
|
|
ns:namestr;
|
|
es:extstr;
|
|
notfound:boolean;
|
|
|
|
begin
|
|
writeln;
|
|
writeln('Find EXE/COM/BAT files on the PATH.');
|
|
writeln;
|
|
writeln('Enter commandline:');
|
|
write(':'); readln(s);
|
|
|
|
while (copy(s,1,1)=' ') do s:=copy(s,2,length(s)-1);
|
|
|
|
fsplit(s,ps,ns,es);
|
|
|
|
notfound:=FALSE;
|
|
s:=ns+'.EXE'; spath:=fsearch(s,getenv('PATH'));
|
|
if (spath='') then begin
|
|
s:=ns+'.COM'; spath:=fsearch(s,getenv('PATH'));
|
|
if (spath='') then begin
|
|
s:=ns+'.BAT'; spath:=fsearch(s,getenv('PATH'));
|
|
if (spath='') then notfound:=TRUE;
|
|
end;
|
|
end;
|
|
|
|
if (not notfound) then spath:=fexpand(spath);
|
|
|
|
if (notfound) then writeln('Not found.') else writeln('Found: '+spath);
|
|
|
|
end.
|