COMO EJECUTAR UN ARCHIVO EXE Y COMO COMPROBAR QUE
Publicado por Sergio (1 intervención) el 15/01/2003 03:27:51
Ya comprueba si el archivo del system existe pero no logro hacer que corra el exe, me manda un error #19200 y segun es por la cadena concatenada, pero ahora no se como corregirlo, miren mi codigo, si pueden y si quieren tenderle la mano a un autodidacta de pascal se los agradecere !!!!! GRACIAS..... ¡¡¡¡¡¡
{Programa que checa si existe el archivo necesario para correr el
programa autorun de un cd}
uses Dos, crt;
var
F,G, h:file;
nom,nom2,nom3,s,ruta :string;
begin
nom := 'c:\windows\system\Vb6es.dll';
ruta := '\autorun.exe';
{ruta del Cd}
GetDir(0,s); { 0 = Current drive }
nom3 := concat(s,ruta);
{localizacion del archivo}
assign(f,nom);
{$I-}
reset(f);
close(f);
{$I+}
if IOResult=0 then
begin
SwapVectors;
writeln(nom3);
Exec(nom3,'');
SwapVectors;
readkey;
end
else
begin
write('Necesitas los archivos del run time de Visual Basic');
end;
end.
{Programa que checa si existe el archivo necesario para correr el
programa autorun de un cd}
uses Dos, crt;
var
F,G, h:file;
nom,nom2,nom3,s,ruta :string;
begin
nom := 'c:\windows\system\Vb6es.dll';
ruta := '\autorun.exe';
{ruta del Cd}
GetDir(0,s); { 0 = Current drive }
nom3 := concat(s,ruta);
{localizacion del archivo}
assign(f,nom);
{$I-}
reset(f);
close(f);
{$I+}
if IOResult=0 then
begin
SwapVectors;
writeln(nom3);
Exec(nom3,'');
SwapVectors;
readkey;
end
else
begin
write('Necesitas los archivos del run time de Visual Basic');
end;
end.
Valora esta pregunta


0