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

    {
    BJOERN JOENSSON

    BTW, OS/2 is easy to detect because the major Dos
    version # is greater than 10:
    }

    Function DetectOs2 : Boolean;
    begin
      { if you use Tpro, then Write Hi(TpDos.DosVersion) }
      DetectOs2 := (Lo(Dos.DosVersion) > 10);
    end;

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