blob: 5bcc2dd81203c23cb1440099a0764c734ecb5aac (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
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.
|
