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

    {
    BO KALTOFT

    > How can i disable the Pascal interrupt key Ctrl-Break?
    }

    Const
      BreakKey : Boolean = False;
      BreakOff : Boolean = False;
    Var
      BreakSave : Pointer;

    {$F+}
    Procedure BreakHandler; Interrupt;
    begin
      BreakKey := True;
    end;
    {$F-}

    Procedure CBOff;
    begin
      GetIntVec($1B, BreakSave);
      SetIntVec($1B, Addr(BreakHandler));
      BreakOff := True;
    end;

    Procedure CBOn;
    begin
      SetIntVec($1B, BreakSave);
      BreakOff := False;
    end;

    begin
      BreakSave := Nil;
      CBOff; {disable}
      .
      .
      .
      CBOn;  {enable}
    end.

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