procedure DllMain(reason: Integer);
begin
case reason of
DLL_PROCESS_DETACH:
MsgBox('DLL PROCESS DETACH');
DLL_PROCESS_ATTACH:
MsgBox('DLL PROCESS ATTACH');
DLL_THREAD_ATTACH:
MsgBox('DLL THREAD ATTACH');
DLL_THREAD_DETACH:
MsgBox('DLL THREAD DETACH');
end;