home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / swag / exec.swg / 0029_DOS Redirection.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-02-28  |  1.8 KB  |  106 lines
  1. {
  2.  RG> I am writing a simple program which executes other programs. I am using
  3.  RG> the function
  4.  
  5.  RG> EXEC(ProgramName,CmdLine)
  6.  
  7.  RG> which is working just fine. However, I would like to somehow prevent the
  8.  RG> executed program from writing to the screen, rather I just want to display
  9.  RG> in my program something like
  10.  
  11.  RG> Working...
  12.  
  13.  RG> While still maintaining the screen which the program is using for output.
  14.  RG> So my questions is, how would I go about doing this?
  15.  
  16. Try this unit! }
  17.  
  18. unit Redir;
  19.  
  20. interface
  21.  
  22. uses
  23.  Dos;
  24.  
  25. function SetOutput(FileName: PathStr): Boolean;
  26. procedure CancelOutput;
  27.  
  28. implementation
  29.  
  30. const
  31.  OutRedir: Boolean = False;
  32.  
  33. function SetOutput(FileName: PathStr): Boolean;
  34. begin
  35.  FileName:=FileName+#0;
  36.  SetOutput:=False;
  37.  asm
  38. push ds
  39. mov  ax, ss
  40. mov  ds, ax
  41. lea  dx, FileName[1]
  42. mov  ah, 3Ch
  43. int  21h
  44. pop  ds
  45. jnc  @@1
  46. ret
  47. @@1:
  48. push ax
  49. mov  bx, ax
  50. mov  cx, Output.FileRec.Handle
  51. mov  ah, 46h
  52. int  21h
  53. mov  ah, 3Eh
  54. pop  bx
  55. jnc  @@2
  56. ret
  57. @@2:
  58. int  21h
  59.  end;
  60.  OutRedir:=True;
  61.  SetOutput:=True;
  62. end;
  63.  
  64. procedure CancelOutput;
  65. var
  66.  FileName: String[4];
  67. begin
  68.  if not OutRedir then Exit;
  69.  FileName:='CON'#0;
  70.  asm
  71. push ds
  72. mov  ax, ss
  73. mov  ds, ax
  74. lea  dx, FileName[1]
  75. mov  ax, 3D01h
  76. int  21h
  77. pop  ds
  78. jnc  @@1
  79. ret
  80. @@1:
  81. push ax
  82. mov  bx, ax
  83. mov  cx, Output.FileRec.Handle
  84. mov  ah, 46h
  85. int  21h
  86. mov  ah, 3Eh
  87. pop  bx
  88. int  21h
  89.  end;
  90.  OutRedir:=False;
  91. end;
  92.  
  93. end.
  94.  
  95. ________________
  96.  
  97. Standard output will be changed to FileName. The FileName can be NUL. When your
  98. executed program is using int $10, all is hardly. In your main program use:
  99.  
  100. SetOutput('NUL');
  101. Exec(....);
  102. CancelOutput;
  103.  
  104.  {change the dos prompt when Shelling to DOS without
  105.  having to change the current or master enviroment(It makes it's own).}
  106.