Правила форума
FExpandPASLanguage:
Русский
English
FExpandPAS
▀▀▀▀▀▀▀▀▀▀▀▀▀
{ Example for FExpand and FSearch }
uses Dos;
var
S: PathStr;
begin
S := FSearch('TURBO.EXE',GetEnv('PATH'));
if S = '' then
WriteLn('TURBO.EXE not found')
else
{ Show full path }
WriteLn('Found as ',FExpand(S));
end.
::
::
::
