3
{ Program to demonstrate the Execvp function. }
5
Uses oldlinux, strings;
7
Const Arg0 : PChar = 'ls';
14
GetMem (PP,3*SizeOf(Pchar));
18
{ Execute 'ls -l', with current environment. }
19
{ 'ls' is looked for in PATH environment variable.}
20
{ Envp is defined in the system unit. }
21
Execvp ('ls',pp,envp);