谁能给个结束过程的完整实例?
我在看语言手册时对这部分不了解
我在看语言手册时对这部分不了解
2007-03-29 10:14
var
ExitSave: Pointer;
procedure MyExit;
begin
ExitProc := ExitSave; //总是首先恢复旧的向量(退出过程的指针)
...
end;
begin
ExitSave := ExitProc;
ExitProc := @MyExit;
...
end.
这是书商的例子,只有一个框架,但是怎么真正取试用呢?麻烦会的人给个实例
2007-03-29 10:58
,但是还不是完全了解,如有达者,请详细指教啊
2007-03-29 14:33