求助: System.SysSetCtrlBreakHandler()

zeus-chu

我想利用 SysSetCtrlBreakHandler() 注册一个 Ctrl-Break handler，这样在程序被终止之前释放一些资源。
但是下述代码没有像预期的那样工作。

2. program CtrlC;
4. {$MODE OBJFPC}
6. var DefaultBreakHandler: TCtrlBreakHandler;
8. function EmergencyBreakHandler(IsCtrlBreak: Boolean): Boolean;
9. begin
10.   Writeln('Emergency Break');
11.   Result := False;
12.   if PtrInt(DefaultBreakHandler) > 0 then
13.     DefaultBreakHandler(IsCtrlBreak);
14. end;
16. begin
17.   DefaultBreakHandler :=
18.     SysSetCtrlBreakHandler(@EmergencyBreakHandler);
19.   if PtrInt(DefaultBreakHandler) < 0 then
20.     Writeln('Failed');
21.   repeat until False;
22. end.

复制代码

按下 Ctrl-C 後程序就直接终止了。我的编译器版本是 2.2.4。

(这个问题我在 Free Pascal community 上问过，还没有得到解答。)