39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
|
OutputText: String;
BuildStatusWindow: TBuildStatusWindow;
implementation
{$R *.lfm}
// TODO: not working
|
<
|
39
40
41
42
43
44
45
46
47
48
49
50
51
52
|
OutputText: String;
BuildStatusWindow: TBuildStatusWindow;
implementation
{$R *.lfm}
function TBuildStatusWindow.BuildDocument(CommandLine: String): Boolean;
var
p: TProcess;
AStringList: TStringList;
begin
p := TProcess.Create(nil);
p.Options := p.Options + [poWaitOnExit, poUsePipes];
|
74
75
76
77
78
79
80
81
82
83
84
85
86
|
// We don't have any output. We can close the window.
BuildStatusWindow.Close;
result := True
end
else begin
// There was some output. Chances are that warnings occurred.
// Keep it shown.
result := False
end;
end;
end.
|
>
|
73
74
75
76
77
78
79
80
81
82
83
84
85
86
|
// We don't have any output. We can close the window.
BuildStatusWindow.Close;
result := True
end
else begin
// There was some output. Chances are that warnings occurred.
// Keep it shown.
// TODO: This does not always work well...
result := False
end;
end;
end.
|