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
|
{$mode objfpc}
uses
process,sysutils;
procedure ExecuteProcess(const Path: string);
var
P: TProcess;
begin
P := TProcess.Create(nil);
try
writeln('Running ',Path);
P.Executable:=Path;
P.Execute;
P.WaitOnExit(1337);
while P.Running do
begin
P.Terminate(255);
Writeln(stderr,'Terminate requested for ',Path);
Sleep(1);
end;
writeln(Path,' returned with exit code: ',P.ExitCode);
finally
P.Free;
end;
end;
begin
ExecuteProcess('./infinity');
ExecuteProcess('./empty');
end.
|
