<div dir="ltr">ok, si me parece muchisimo mejor, la otra funcion que deje es un poco lenta.<br></div><div class="gmail_extra"><br><br><div class="gmail_quote">2013/8/5 Martin Gomez <span dir="ltr"><<a href="mailto:mmgomez@gmail.com" target="_blank">mmgomez@gmail.com</a>></span><br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr"><div class="gmail_extra"><br><div class="gmail_quote"><div class="im">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><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><div class="im"><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></div><br><div class="gmail_default" style="font-family:tahoma,sans-serif">Aun existe.</div><div class="im"><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></div>
<br>_______________________________________________<br>
Lazarus-es mailing list<br>
<a href="mailto:Lazarus-es@lists.lazarus.freepascal.org">Lazarus-es@lists.lazarus.freepascal.org</a><br>
<a href="http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es" target="_blank">http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es</a><br>
<br></blockquote></div><br><br clear="all"><br>-- <br><span style="background-color:rgb(255,255,255)"><font><span style="color:rgb(0,0,153)"><i><b>Saludos.<br><br>Jose Daboin</b></i></span></font></span><br>
</div>