FreePascal.ru

Вот код, я думаю и без него я все сказал что можно было сказать по проблеме.

procedure TForm1.Button1Click(Sender: TObject);
var
LibHandle: THandle;
fInitializeSession: tInitializeSession;
CloseSession: TCloseSession;
Error: Pchar;
begin
OpenDialog1&#46 ...

Atlant писал(а):

Код: Выделить всё

const
  Dll_Process_Attach_Hook : TDLL_Process_Entry_Hook = nil;
  Dll_Process_Detach_Hook : TDLL_Entry_Hook = nil; 

Мне немного странно видеть

Код: Выделить всё

const

в данном коде, может все таки

Код: Выделить всё

var

Что именно странного?
этот участок кода вырезан из system.pp файла, т.е. я его придумал.

А как ты проверяешь, что он молчит? В процессе завершения приложения ты к WinAPI, вообще говоря, уже обращаться не можешь.
Да все просто, если ты выполняешь freeliblary(HandleLib); то в ответ должно сработать DLL_PROCESS_DETACH, так работает любая длл-ка писанная на Дельфи или Си.
В данном ...

Неужели никто с подобным не сталкивался?

Вот дурак я невнимательный был. Сделал по
begin
Dll_Process_Attach_Hook:=@Dll_Process_Attach_Hook_Func;
Dll_Process_Attach_Hook_Func(DLL_PROCESS_ATTACH);

Dll_Thread_Attach_Hook:=@Dll_Thread_Attach_Hook_Func;
Dll_Process_Detach_Hook:=@Dll_Process_Detach_Hook_Func;
end.


Жирным - та строчка ...

Всем доброго!
Все наверное видели этот участок кода, для сборки длл-лок.

type
TDLL_Process_Entry_Hook = function (dllparam : longint) : longbool;
TDLL_Entry_Hook = procedure (dllparam : longint);

const
Dll_Process_Attach_Hook : TDLL_Process_Entry_Hook = nil ...