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

    {
    > I know how to determine the current mode of a card, but how do a lot of
    > Programs determine if a VGA is present in the first place? I'd Really

    MICHAEL NICOLAI
    It's very easy to check if a VGA card is present, 'cause there are some
    Functions which are only supported on VGAs. The best one is this:
    }

    Uses
      Dos;

    Function Is_VGA_present : Boolean;
    Var
     regs : Registers;
    begin
     Is_VGA_present := True;
     regs.ax := $1A00;
     intr($10, regs);
     if (regs.al <> $1A) then
      Is_VGA_present := False;
    end;

    { KELD R. HANSEN }

    Function VGA : Boolean; Assembler;
    Asm
      MOV     AH,1Ah
      INT     10h
      CMP     AL,1Ah
      MOV     AL,True
      JE      @OUT
      DEC     AX
     @OUT:
    end;

    { will return True if a VGA card is installed. }
    begin
      Writeln(Is_VGA_present);
      Writeln(VGA);
    end.

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