Правила форума
FExpand.PASЯзык:
Русский
English
uses Dos;
var
S : PathStr;
begin
S := FSearch('BP.EXE', GetEnv('PATH'));
if S = '' then
WriteLn('BP.EXE не найден.')
else
WriteLn('Найден как ', FExpand(S));
end.
var
S : PathStr;
begin
S := FSearch('BP.EXE', GetEnv('PATH'));
if S = '' then
WriteLn('BP.EXE не найден.')
else
WriteLn('Найден как ', FExpand(S));
end.
::
::
::
