mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-30 23:13:40 +02:00
44 lines
1.4 KiB
ObjectPascal
44 lines
1.4 KiB
ObjectPascal
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 begin
|
|
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;
|
|
end. |