Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   como ejecutar programa externo y detener el proceso del programa hasta que termine (https://www.clubdelphi.com/foros/showthread.php?t=90935)

vroa74 13-10-2016 18:02:31

como ejecutar programa externo y detener el proceso del programa hasta que termine
 
Buen día:
estoy haciendo uso de un código, solo que me hace falta algo para que se efectúe correctamente
Lo que necesito es ejecutar el programa externo, modificar el archivo que necesito y cuando se cierre el programa externo
el archivo ya modificado abrirlo en el componente RichEdit1, hasta el momento no he podio hacerlo, y la única manera de detenerlo que se me ocurrió fue ponerle un ShowMessage. Se que no es muy eficiente sin embargo, me permite hacer la carga del archivo tal y como quiero.


Código Delphi [-]
var
  A : String;
  B: PWIDECHAR;

Begin

           B := PWIDECHAR( extractfilepath(paramstr(0)) + 'doc\Arch_Texto.rtf');
           ShellExecute(Handle, 'open', 'wordpad', B , nil, SW_SHOWNORMAL);
           ShowMessage(´presiones para continuar´);  {como poder desaparece esta linea }
           RichEdit1.Lines.LoadFromFile(B);

End;

Neftali [Germán.Estévez] 13-10-2016 18:33:31

Busca por los foros un procedimiento que ha salido otras veces llamado ExecuteAndWait o similar.
Creo que hace lo que necesitas.

roman 13-10-2016 18:48:36

Aquí un ejemplo.

LineComment Saludos


La franja horaria es GMT +2. Ahora son las 11:26:09.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi