<div dir="ltr"><div class="gmail_extra"><br><div class="gmail_quote">On Sun, Aug 4, 2013 at 1:40 PM, metal box <span dir="ltr"><<a href="mailto:metalbox9000@gmail.com" target="_blank">metalbox9000@gmail.com</a>></span> wrote:<br>
<blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left-width:1px;border-left-color:rgb(204,204,204);border-left-style:solid;padding-left:1ex"><div dir="ltr"><div>Como vez alli en  la funcion StrCat colocan CMD  por lo que asi como esta funciona solo en windows no se si podria funcionar con la consola de linux.<br>
</div></div></blockquote><div><br></div><div class="gmail_default" style="font-family:tahoma,sans-serif">me resulta demasiado complicada tu solucion :)</div><div class="gmail_default" style="font-family:tahoma,sans-serif">
Yo uso TProcess de esta manera:</div><div class="gmail_default" style="font-family:tahoma,sans-serif"><br></div><div class="gmail_default"><div class="gmail_default"><font face="tahoma, sans-serif">  Proceso := TProcess.Create(nil);</font></div>
<div class="gmail_default"><font face="tahoma, sans-serif">  Proceso.Executable := FindDefaultExecutablePath('synce-pcp');</font></div><div class="gmail_default"><font face="tahoma, sans-serif">  with Proceso.Parameters do</font></div>
<div class="gmail_default"><font face="tahoma, sans-serif">  begin</font></div><div class="gmail_default"><font face="tahoma, sans-serif">    Add(':' + csSource);</font></div><div class="gmail_default"><font face="tahoma, sans-serif">    Add(csTarget);</font></div>
<div class="gmail_default"><font face="tahoma, sans-serif">  end;</font></div><div class="gmail_default"><font face="tahoma, sans-serif">  Proceso.Options := Proceso.Options + [poWaitOnExit, poUsePipes, poStderrToOutPut];</font></div>
<div class="gmail_default"><font face="tahoma, sans-serif">  </font><span style="font-family:tahoma,sans-serif">Proceso.Execute;</span></div><div class="gmail_default"><font face="tahoma, sans-serif">  LogStream(Proceso.Output);</font></div>
<div class="gmail_default"><font face="tahoma, sans-serif">  Result := Proceso.ExitStatus;</font></div><div class="gmail_default"><font face="tahoma, sans-serif">  if Result <> 0 then</font></div><div class="gmail_default">
<font face="tahoma, sans-serif">    ShowMessage('error copiando "' + csTarget + '"');</font></div><div class="gmail_default"><font face="tahoma, sans-serif">  Proceso.Free;</font></div><div class="gmail_default">
<font face="tahoma, sans-serif"><br></font></div><div class="gmail_default"><font face="tahoma, sans-serif">Siendo LogStream lo siguiente:</font></div><div class="gmail_default"><font face="tahoma, sans-serif"><br></font></div>
<div class="gmail_default"><font face="tahoma, sans-serif"><div class="gmail_default">procedure LogStream(Stream: TStream);</div><div class="gmail_default">var</div><div class="gmail_default">  Lista: TStringList;</div><div class="gmail_default">
  j: integer;</div><div class="gmail_default">begin</div><div class="gmail_default">  Lista := TStringList.Create;</div><div class="gmail_default">  try</div><div class="gmail_default">    Lista.LoadFromStream(Stream);</div>
<div class="gmail_default">    for j := 0 to Lista.Count - 1 do</div><div class="gmail_default">    begin</div><div class="gmail_default">      DebugLn([DateTimeToStr(Now), '  = ', Lista[j]]);</div><div class="gmail_default">
    end;</div><div class="gmail_default">  finally</div><div class="gmail_default">    Lista.Free;</div><div class="gmail_default">  end;</div><div class="gmail_default">end;</div><div class="gmail_default"><br></div><div class="gmail_default">
O sea, obtengo el resultado de la ejecucion y lo envio a debug (pero vos podes hacer lo que necesites con el resultado)</div><div class="gmail_default"><br></div><div class="gmail_default"><br></div><div class="gmail_default">
<br></div></font></div></div><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left-width:1px;border-left-color:rgb(204,204,204);border-left-style:solid;padding-left:1ex"><div dir="ltr"><div><br></div>
Una Pregunta windows 8 Trae CMD o lo eliminaron totalmente por el nuevo shell<br>
</div><div class="gmail_extra"></div></blockquote></div><br><div class="gmail_default" style="font-family:tahoma,sans-serif">​Aun existe.​</div><br><br clear="all"><div><br></div>-- <br><div><span style="font-family:tahoma,sans-serif">Try not to become a man of success but rather to become a man of value. <i>Albert Einstein</i></span></div>

</div></div>