Форум: "Начинающим";
Текущий архив: 2008.08.03;
Скачать: [xml.tar.bz2];
ВнизРаздел finalization в DLL или из справки не понял Найти похожие ветки
← →
Забывчивый (2008-07-04 09:12) [0]Доброго времени суток! Мне нужно создать раздел в finalization в dll. Из справки не ясно вот это:
library Test;
var
SaveDllProc: Pointer;
procedure LibExit(Reason: Integer);
begin
if Reason = DLL_PROCESS_DETACH then
begin
... // library exit code
end;
SaveDllProc(Reason); // что тут нужно вызывать и нужно ли вообще?
end;
begin
... // library initialization code
SaveDllProc := DllProc; // save exit procedure chain
DllProc := @LibExit; // install LibExit exit procedure
end.
Заранее благодарен!
← →
Leonid Troyanovsky © (2008-07-04 09:16) [1]
> Забывчивый (04.07.08 09:12)
> Мне нужно создать раздел в finalization в dll.
Секция finalization создается в юните, который и подключается к проекту.
--
Regards, LVT.
← →
Забывчивый (2008-07-04 09:17) [2]
> Leonid Troyanovsky © (04.07.08 09:16) [1]
А что имелось ввиду в этой строке: SaveDllProc(Reason); ?
← →
Palladin © (2008-07-04 09:19) [3]Var
SaveDllProc:Procedure (Reason:Integer);
...
If Assigned(SaveDllProc) Then SaveDllProc(Reason);
← →
Забывчивый (2008-07-04 09:21) [4]
> Palladin © (04.07.08 09:19) [3]
>
> Var
> SaveDllProc:Procedure (Reason:Integer);
> ...
> If Assigned(SaveDllProc) Then SaveDllProc(Reason);
Понятно.
Всем спасибо!
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2008.08.03;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.008 c