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

{
Does anyone have any routines to find the available memory outside of the
heap ?
}

Function GetFreeMemory : LongInt;
Var
  Regs : Registers;
begin
  Regs.AH := $48;
  Regs.BX := $FFFF;
  Intr($21,Regs);
  GetFreeMemory := LongInt(Regs.BX)*16;
end;
{

This Procedure tries to allocate 1MB memory (what's impossible).
Dos will give you the maximum of free memory back.
}

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