mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-28 03:53:45 +02:00
24 lines
432 B
ObjectPascal
24 lines
432 B
ObjectPascal
Program ex61;
|
|
|
|
{ Example program to demonstrate the CreateShellArgV function }
|
|
|
|
// note: CreateShellArgV is reasonbly obsolete in 1.9.x due to the new fpexec functions
|
|
|
|
uses Unix;
|
|
|
|
Var
|
|
S: String;
|
|
PP : PPchar;
|
|
I : longint;
|
|
|
|
begin
|
|
S:='script -a -b -c -d -e fghijk';
|
|
PP:=CreateShellArgV(S);
|
|
I:=0;
|
|
If PP<>Nil then
|
|
While PP[i]<>Nil do
|
|
begin
|
|
Writeln ('Got : "',PP[i],'"');
|
|
Inc(i);
|
|
end;
|
|
end. |