freepascal.compiler/docs/go32ex/meminfo.pp

Program meminf;

uses go32;

var meminfo : tmeminfo;

begin
get_meminfo(meminfo);
if (int31error <> 0)  then 
 begin
 Writeln('Error getting DPMI memory information... Halting');
 Writeln('DPMI error number : ', int31error);
 end 
else 
 with meminfo do 
   begin
   Writeln('Largest available free block : ', 
           available_memory div 1024, ' kbytes');
   if (available_pages <> -1) then
     Writeln('Maximum available unlocked pages : ', 
              available_pages);
   if (available_lockable_pages <> -1) then
     Writeln('Maximum lockable available pages : ', 
              available_lockable_pages);
   if (linear_space <> -1) then
     Writeln('Linear address space size : ', 
             linear_space*get_page_size div 1024, 
             ' kbytes');
   if (unlocked_pages <> -1) then
     Writeln('Total number of unlocked pages : ', 
             unlocked_pages);
   if (available_physical_pages <> -1) then
     Writeln('Total number of free pages : ', 
             available_physical_pages);
   if (total_physical_pages <> -1) then
     Writeln('Total number of physical pages : ', 
             total_physical_pages);
   if (free_linear_space <> -1) then
     Writeln('Free linear address space : ', 
             free_linear_space*get_page_size div 1024,
             ' kbytes');
   if (max_pages_in_paging_file <> -1) then
     Writeln('Maximum size of paging file : ', 
              max_pages_in_paging_file*get_page_size div 1024, 
              ' kbytes');
  end;
end.