I've tried implementing this but it seems to make no difference. Incidentally, the file I am trying to run is a .bat file. I have tried using an .EXE file with this solution as well with no success. My whole program is:
{$M 8192,8192,655360}
program dcdocsl;
uses crt,dos;
var
inps:string;
begin
clrscr;
writeln('Dcdocsl strip prog');
writeln('Ensure you have moved dcdocsl.?? to SPOOL directory');
writeln;
write('What is the extension number of the dcdocsl file > ');
readln(inps);
swapvectors;
exec ('c:\temp\go_docsl.bat',in
swapvectors;
end.
Main Topics
Browse All Topics





by: whatboyPosted on 1999-12-10 at 03:20:39ID: 2271361
{$M 8192,8192,655360}
','07');
Program ExceDemo;
Begin
SwapVectors;
Exec('c:\temp\go_docsl.exe
SwapVectors;
End.