[Back to FILES SWAG index]  [Back to Main SWAG index]  [Original]

{
>I'm searching For a possibility to access more then 20 (I don't know the exact
>number) Files at once With TP 7.0 (Real mode). I'll be happy if anyone can post
>me sourcecode and technical information - technical information alone would be
>enough, too.

Boland Magazin 6/92 (Hot Line) Writes:

There is error in Dos: it's equal what you in Config.sys after Files= Write,
it can manage only 15 (!) open Files. Here is an Unit to outwit it:
(should be as first, can be not in overlay, entry also in config.sys)
}

Unit maxFiles;

Interface

Const
  maxFile = 255;
  {for 250 open Files}
Var
  index: Integer;
  puffer: Array[1..maxFile] of Byte;

begin
  For index := 1 to maxFile do
    puffer[index] := $FF;
  For index := 1 to 5 do
    puffer[index] := mem[prefixseg:$18 + pred(index)];
  memw[prefixseg:$32] := maxFile;
  memw[prefixseg:$34] := ofs(puffer);
  memw[prefixseg:$36] := seg(puffer);
end.

[Back to FILES SWAG index]  [Back to Main SWAG index]  [Original]