home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #19 / NN_1992_19.iso / spool / comp / lang / pascal / 5186 < prev    next >
Encoding:
Internet Message Format  |  1992-09-03  |  1.9 KB
  1. Path: sparky!uunet!news.univie.ac.at!apap4.pap.univie.ac.at!roesel
  2. From: roesel@apap4.pap.univie.ac.at
  3. Newsgroups: comp.lang.pascal
  4. Subject: Re: can't get EXEC to work
  5. Message-ID: <1992Sep2.182522.19@apap4>
  6. Date: 2 Sep 92 18:25:22 GMT
  7. References: <la5469INNgd2@langtry.cs.utexas.edu>
  8. Organization: Vienna University Computer Center
  9. Lines: 51
  10.  
  11. In article <la5469INNgd2@langtry.cs.utexas.edu>, joel@cs.utexas.edu (Joel Daniel Just) writes:
  12. > I am having trouble getting the EXEC command to work in Turbo Pascal v5.0 on
  13. > the PC.  Here is an example program:
  14. > 
  15. > PROGRAM TEST;
  16. > USES DOS;
  17. > BEGIN
  18. >    EXEC('dir','');
  19. >    WRITELN('DONE')
  20. > END.
  21. > 
  22. > When I run this program, 'DONE' is printed, and nothing else happens.  The
  23. > EXEC command doesn't seem to be executed, no matter what I put in between the
  24. > two sets of quotes in the EXEC call.  Even if I put garbage between the
  25. > quotes, I don't get an error.  I just get 'DONE' and that's it.
  26. > 
  27. > Any suggestions?
  28.  
  29.  
  30. If you do not change the memory settings, Turbo Pascal uses all memory for 
  31. the heap. In this case there is no space to load a program with EXEC. 
  32. Therefore you must alter the memory settings, e.g. with the compiler directive
  33. {$M}. If you do not need the heap, you can write {$M 16384,0,0}. 
  34.  
  35. If you want to exec an internal command like DIR, then write
  36.     exec('c:\dos\command.com','/c dir');  
  37. or even better
  38.     exec(getenv('comspec'),'/c dir');  
  39.  
  40.  
  41. program example; { for exec }
  42. uses dos;
  43.  
  44. {$M 16384,0,0}             
  45.  
  46. begin
  47.  swapvectors;
  48. { exec('bsp.exe',''); }               {  an external command }
  49.  exec(getenv('comspec'),'/c dir');   { an internal command }
  50.  swapvectors;
  51.  writeln(doserror);    { doserror = 0, if all is right }
  52. end.
  53.  
  54.  
  55. I hope, this will help you
  56.  
  57.         Martin
  58.  
  59. ------------------------------------------------------------------------------
  60. Martin Roesel, Institute of Solid State Physics, University of Vienna, Austria
  61. roesel@apap1.pap.univie.ac.at
  62.