* In a message originally to All, Eric Tam said:
 >> This message was written at 11:25a on 06-25-1996.

 >> Hi All, How can I fully disable the Ctrl-Break in Pascal?
Write a dummy procedure to hook INT #1Bh (33 in Decimal)...

eg:

-- CBOFF.PAS --

var
       CBHandler: Pointer;

{$F+}
procedure CtrlBreak; interrupt;
begin
       {here you set whatever you want to do when Ctrl Break is pressed}
end;
{$F-}


begin
       GetIntVec($1B,CBHandler);
       SetIntVec($1B,Addr(CtrlBreak));
       {Program code goes here.. CBHandler MUST BE PRESERVED!!!!}
       {At end of code:}
       SetIntVec($1B,CBHandler);               {Resets Ctrl-Break handler}
end.

-- EOF --

                                               Kieran Morrissey

--- FMail/386 1.02