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

    {
    STEVE CONNET

    determine whether ansi.sys is installed
    }

    Function LocalAnsiDetected : Boolean;
    Var
      Dummy : Byte;
    begin
      Asm
        mov ah,1ah                { detect ANSI.SYS device driver }
        mov al,00h
        int 2fh
        mov dummy,al
      end;
      LocalAnsiDetected := Dummy = $FF;
    end;

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