Pascal/Turbo Pascal - Llamar a un programa ya hecho???

 
Vista:

Llamar a un programa ya hecho???

Publicado por alohl669 (1 intervención) el 25/01/2007 12:39:29
Hola buenas, estoy realizando un programilla en pascal que necesita tirar de otro(un setup de configuracion), se que podria haberlo puesto en un procedimiento pero no queria recargar el programa y hacerlo mas pesado, la cuestión es que quiero ejecutar dicho programa despues de detectar la no existencia de un fichero de configuracion. Tengo dos preguntas:

1º¿Como puedo llamar al programa secundario desde pascal?

2º¿Como puedo detectar si existe un fichero?

De todos modos lo que mas me interesa es la primera cuestion pues si no soy capaz de detectar el fichero puedo apañarmelas de algun modo.

Gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Llamar a un programa ya hecho???

Publicado por Carlos Guimaraenz (265 intervenciones) el 25/01/2007 17:49:10
Hola! Prueba con este código:

program Llamador;
{$M $4000,0,0 } { 16K stack, no heap } {lo leí de la ayuda de TP, no lo quites}
uses crt,dos;
var
ae : text;
begin
assign(ae,'CONFIG.TXT'); {asigno el fichero de configuración}
{$i-}
reset(ae);
close(ae);
{$i+}
if IOResult <> 0 then
begin
SwapVectors;
Exec('C:\EXTERNO.EXE','');
SwapVectors;
end;
end.

Lo que hace este programa es intentar abrir el archivo de configuración con el chequeo de errores de IO inhabilitado ( {$i-} ). Si lo logro, entonces haces lo que quieras. Si no existe, entonces ejecuto el programa externo.
Un abrazo!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar