49
50
51
52
53
54
55
56
57
58
59
60
61
62
|
ret: Boolean;
begin
{$IFDEF WINDOWS}
ret := RunCommand('cmd', ['/c', CommandLine], str, [], swoHIDE);
{$ELSE}
ret := RunCommand('sh', ['-c', CommandLine], str, [], swoHIDE);
{$ENDIF}
if LogFile <> '' then
begin
AssignFile(lh, LogFile);
try
ReWrite(lh);
Write(lh, str);
|
>
>
|
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
|
ret: Boolean;
begin
{$IFDEF WINDOWS}
ret := RunCommand('cmd', ['/c', CommandLine], str, [], swoHIDE);
{$ELSE}
ret := RunCommand('sh', ['-c', CommandLine], str, [], swoHIDE);
{$ENDIF}
if Length(str) = 0 then str := 'No problems have occurred. :-)';
if LogFile <> '' then
begin
AssignFile(lh, LogFile);
try
ReWrite(lh);
Write(lh, str);
|