ExitProc в Library

← →
MDL (2003-08-13 15:24) [0]

Подскажите, пожалуйста, почему не выполняется код процедуры MyExitProc в Dll:

library Test;

var
SaveExit: Pointer;

procedure MyExitProc;
begin
ShowMessage("ExitProc executed"); // не работает
ExitProc := SaveExit;
end;

begin
SaveExit := ExitProc;
ExitProc := @MyExitProc;
ShowMessage("Library initialized"); // работает
end.

← →
Skier © (2003-08-13 15:30) [1]

1)ExitProc is only used when generating .EXE files.
2) Because ExitProc is not compatible with packages, it is not
recommended that you assign a value to ExitProc. Instead,
add code to the finalization section of a unit.

← →
Толик © (2003-08-13 15:31) [2]

взято из help"а
...ExitProc is only used when generating executable files...

← →
MDL (2003-08-13 15:40) [3]

Тоже взято из help
Topic group:Dynamic-link libraries and packages

...
When a library is unloaded, it’s exit procedures are executed by repeated calls to the address stored in ExitProc, until ExitProc becomes nil.

М-да, и правда, в хелпах ерунда какая-то написана:
Library initialization code:
Library initialization code can also install an exit procedure using the ExitProc variable, as described in Exit procedures; the exit procedure executes when the library is unloaded.
ExitProc variable
ExitProc is only used when generating executable files. Do not use ExitProc within a dynamically loaded package.

Не верь глазам своим...
А вообще-то, я этот вопрос поднимал пару дней назад. Ответ нашёлся у Borlanda: http://community.borland.com/article/0,1410,27753,00.html

ExitProc в Library Найти похожие ветки