1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
|
unit xplatformutils;
{$I jedi-sdl.inc}
interface
uses
{$IFDEF WIN32}
Windows;
{$ELSE}
{$IFDEF UNIX}
{$IFDEF FPC}
libc;
{$ELSE}
Libc,
Xlib;
{$ENDIF}
{$ENDIF}
{$ENDIF}
const
{$IFDEF MACOS}
DIR_SEP = ':';
DIR_CUR = ':';
{$ELSE}
{$IFDEF DARWIN}
DIR_SEP = ':';
DIR_CUR = ':';
{$ELSE}
{$IFDEF WIN32}
DIR_SEP = '\';
DIR_CUR = '';
{$ELSE}
DIR_SEP = '/';
DIR_CUR = '';
{$ENDIF}
{$ENDIF}
{$ENDIF}
procedure ExecAndWait( aProcess : string; aArguments : array of string );
implementation
procedure ExecAndWait( aProcess : string; aArguments : array of string );
var
{$IFDEF WIN32}
CommandLine : string;
ProcessInfo: TProcessInformation;
Startupinfo: TStartupInfo;
ExitCode: longword;
x : integer;
{$ELSE}
{$IFDEF UNIX}
pid: PID_T;
Max: Integer;
i: Integer;
parg: PPCharArray;
argnum: Integer;
returnvalue : Integer;
{$ENDIF}
{$ENDIF}
begin
{$IFDEF WIN32}
// Initialize the structures
FillChar(ProcessInfo, sizeof(TProcessInformation), 0);
FillChar(Startupinfo, sizeof(TStartupInfo), 0);
Startupinfo.cb := sizeof(TStartupInfo);
// Attempts to create the process
Startupinfo.dwFlags := STARTF_USESHOWWINDOW;
Startupinfo.wShowWindow := 1;
CommandLine := aProcess;
for x := Low(aArguments ) to High(aArguments ) do
CommandLine := CommandLine + ' ' + aArguments[ x ];
if CreateProcess( nil, PChar( CommandLine ), nil, nil, False, NORMAL_PRIORITY_CLASS, nil, nil, Startupinfo, ProcessInfo ) then
begin
// The process has been successfully created
// No let's wait till it ends...
WaitForSingleObject(ProcessInfo.hProcess, INFINITE);
// Process has finished. Now we should close it.
GetExitCodeProcess(ProcessInfo.hProcess, ExitCode); // Optional
CloseHandle(ProcessInfo.hThread);
CloseHandle(ProcessInfo.hProcess);
end;
{$ELSE}
{$IFDEF UNIX}
pid := fork;
if pid = 0 then
begin
Max := sysconf(_SC_OPEN_MAX);
for i := (STDERR_FILENO+1) to Max do
begin
fcntl(i, F_SETFD, FD_CLOEXEC);
end;
argnum := High(aArguments) + 1;
GetMem(parg,(2 + argnum) * sizeof(PChar));
parg[0] := PChar(aProcess);
i := 0;
while i <= high(aArguments) do
begin
inc(i);
parg[i] := PChar(aArguments[i-1]);
end;
parg[i+1] := nil;
execvp(PChar(aProcess),PPChar(@parg[0]));
halt;
end;
if pid > 0 then
begin
waitpid(pid,@returnvalue,0);
end;
{$ENDIF}
{$ENDIF}
end;
end.
|
