@@ -18,11 +18,11 @@
 {$mode ObjFPC}{$H+}
 
 interface
 
 uses
-  Classes, SysUtils, Forms, StdCtrls, Process;
+  Classes, SysUtils, Forms, StdCtrls, Process, Dialogs;
 
 type
 
   { TBuildStatusWindow }
 
@@ -49,17 +49,19 @@
   str: String;
   lh: TextFile;
 begin
   p := TProcess.Create(nil);
   p.Options := p.Options + [poUsePipes, poStderrToOutPut];
+  p.ShowWindow := swoHIDE;
+
+  ShowMessage(CommandLine);
 
 {$IFDEF WINDOWS}
   p.Executable := 'cmd';
   p.Parameters.Add('/c');
-{$ENDIF}
-{$IFDEF UNIX}
-  p.Executable := 'sh';
+{$ELSE}
+  p.Executable := '/bin/sh';
   p.Parameters.Add('-c');
 {$ENDIF}
   p.Parameters.Add(CommandLine);
   p.Execute;