freepascal.compiler/docs/go32ex/getrunmd.pp

Program getrunmd;

uses go32;

begin
{
  depending on the detected environment,
  we simply write another message
}
case (get_run_mode) of
  rm_unknown : 
    Writeln('Unknown environment found');
  rm_raw     : 
    Writeln('You are currently running in raw mode',
            ' (without HIMEM)');
  rm_xms     : 
    Writeln('You are currently using HIMEM.SYS only');
  rm_vcpi    : 
    Writeln('VCPI server detected.',
            ' You''re using HIMEM and EMM386');
  rm_dpmi    : 
    Writeln('DPMI detected.',
            ' You''re using a DPMI host like ',
            'a windows DOS box or CWSDPMI');
end;
end.