编程论坛 → Delphi论坛

谁能给个结束过程的完整实例？

anthony634 发布于 2007-03-29 10:14， 638 次点击

我在看语言手册时对这部分不了解

2 回复

#2

anthony6342007-03-29 10:58

var

ExitSave: Pointer;

procedure MyExit;

begin

ExitProc := ExitSave; //总是首先恢复旧的向量（退出过程的指针）

...

end;

begin

ExitSave := ExitProc;

ExitProc := @MyExit;

...

end.
这是书商的例子，只有一个框架，但是怎么真正取试用呢？麻烦会的人给个实例

#3

anthony6342007-03-29 14:33

已经解决

，但是还不是完全了解，如有达者，请详细指教啊

1