peticion de Diego...
Publicado por Raymond Calderon (20 intervenciones) el 27/07/2002 13:07:32
Te acuerdas te dije que me daba el acceso de negado (doserror #5) al usar el exec() y Me dijiste que te lo mandara, aqui esta...
espero que le encuentres la respuesta y me la digas..
program Ray;
uses dos,crt;
var
ruta,nombre: string;
begin
ruta:='c:\tp';
nombre:='fecha.exe';
SwapVectors;
Exec(ruta,nombre);
SwapVectors;
if DosError <> 0 then{ Error? }
WriteLn('Dos error #', DosError)
end.
Ok. Gracias
espero que le encuentres la respuesta y me la digas..
program Ray;
uses dos,crt;
var
ruta,nombre: string;
begin
ruta:='c:\tp';
nombre:='fecha.exe';
SwapVectors;
Exec(ruta,nombre);
SwapVectors;
if DosError <> 0 then{ Error? }
WriteLn('Dos error #', DosError)
end.
Ok. Gracias
Valora esta pregunta


0