大榕树 \ Pascal语言 \ Pascal练习

简单的Ctrl-Break控制子程序

原文链接：http://www.mydrs.org/program/list.asp?id=203

program CtrlBreakControl;

{$A+,B-,E-,F-,G+,N+,O-,P+,T-,V-,X+}
{$D-,I-,L-,Q-,R-,S-,Y-}
{$M 65520,0,655360}

uses
　Dos;

const
　BreakFlag:Boolean=False;

var
　SaveCtrlBreakInterrupt:procedure;

procedure BreakHandler;interrupt;
begin
　BreakFlag:=True;
end;

begin
　GetIntVec($1B,@SaveCtrlBreakInterrupt);
　SetIntVec($1B,@BreakHandler);
　WriteLn('Press Ctrl-Break to exit');
　repeat
　until BreakFlag;
　WriteLn('You have pressed Ctrl-Break');
　ReadLn;
　SetIntVec($1B,@SaveCtrlBreakInterrupt);
end.

作者：陈世熹
来源：陈世熹的Pascal
时间：2001-09-02

上一篇：设置中断子程序
下一篇：简单的时钟控制子程序

大榕树 版权所有 ©1999-2006