|
@@ -1564,15 +1564,13 @@ end;
|
|
expansion under linux }
|
|
expansion under linux }
|
|
{$ifdef hasunix}
|
|
{$ifdef hasunix}
|
|
begin
|
|
begin
|
|
- if do_checkverbosity(V_Used) then
|
|
|
|
- do_comment(V_Executable,'Executing "'+Command+'" with fpSystem call');
|
|
|
|
|
|
+ do_comment(V_Executable,'Executing "'+Command+'" with fpSystem call');
|
|
result := Unix.fpsystem(command);
|
|
result := Unix.fpsystem(command);
|
|
end;
|
|
end;
|
|
{$else hasunix}
|
|
{$else hasunix}
|
|
{$ifdef hasamiga}
|
|
{$ifdef hasamiga}
|
|
begin
|
|
begin
|
|
- if do_checkverbosity(V_Used) then
|
|
|
|
- do_comment(V_Executable,'Executing "'+Command+'" using RequotedExecuteProcess');
|
|
|
|
|
|
+ do_comment(V_Executable,'Executing "'+Command+'" using RequotedExecuteProcess');
|
|
result := RequotedExecuteProcess('',command);
|
|
result := RequotedExecuteProcess('',command);
|
|
end;
|
|
end;
|
|
{$else hasamiga}
|
|
{$else hasamiga}
|
|
@@ -1580,8 +1578,7 @@ end;
|
|
comspec : string;
|
|
comspec : string;
|
|
begin
|
|
begin
|
|
comspec:=GetEnvironmentVariable('COMSPEC');
|
|
comspec:=GetEnvironmentVariable('COMSPEC');
|
|
- if do_checkverbosity(V_Used) then
|
|
|
|
- do_comment(V_Executable,'Executing "'+Command+'" using comspec "'
|
|
|
|
|
|
+ do_comment(V_Executable,'Executing "'+Command+'" using comspec "'
|
|
+ComSpec+'"');
|
|
+ComSpec+'"');
|
|
result := RequotedExecuteProcess(comspec,' /C '+command);
|
|
result := RequotedExecuteProcess(comspec,' /C '+command);
|
|
end;
|
|
end;
|