Contributor: MARTIN RICHARDSON
{>Well, Uh, I meant creating pascal compiled files, and basic compiled>files and putting them in a BAT file so that they will execute in order.>Oh and, uh , how to do you compile programs in tp 7 so that they are not> broken (or shut off in the middle if someone pressed control break)?>I can't stop the control break thing...
A common question. Here is my solution:
{****************************************************************************
* Procedure ..... DoNothing
* Purpose ....... A do-nothing procedure to intercept interrupts and stop
* them from happening.
* Parameters .... None
* Returns ....... Nothing
* Notes ......... None
* Author ........ Martin Richardson
* Date .......... February 19, 1993
****************************************************************************}
{$F+}
PROCEDURE DoNothing; INTERRUPT;
BEGIN
END;
{$F-}
{****************************************************************************
* Procedure ..... SetBreak()
* Purpose ....... To dis-allow CTRL-BREAKING out of a program.
* Parameters .... SetOn False to turn CTRL-BREAK off
* True to turn it back on again
* Returns ....... Nothing
* Notes ......... Uses the procedure DoNothing above to remap INT 1Bh to.
* Author ........ Martin Richardson
* Date .......... February 19, 1993
****************************************************************************}
PROCEDURE SetBreak( SetOn: BOOLEAN );
CONST Int1BSave : Pointer = NIL;
BEGIN
IF NOT SetOn THEN BEGIN
GetIntVec(1ドルB,Int1BSave);
SetIntVec(1ドルB,Addr(DoNothing));
END ELSE
IF Int1BSave NIL THEN SetIntVec(1ドルB,Int1BSave);
END;
{
However, this method will not prevent them from breaking out of the .BAT
file you described above to link the programs together with! (You will
need a TSR to do that.)
}