library Library1;
//------------------------------------------------------------------------------
//
// Основная процедура библиотеки
//
// Вызывается когда библиотека загружается в адрессное пространство какого-либо
// процеса или нити
//
// Входные данные:
//   dwReason - причина вызова процедуры
//
//------------------------------------------------------------------------------

procedure DllEntry(dwReason: DWORD);
begin
 case dwReason of
   //--------------------------------------//
   // библиотека подключается к приложению //
   //--------------------------------------//
   DLL_PROCESS_ATTACH:
     begin
     end;
   //-----------------------------------------------------------------//
   // библиотека высвобождается из адрессного пространства приложения //
   //-----------------------------------------------------------------//
   DLL_PROCESS_DETACH:
     begin
     end;
   DLL_THREAD_ATTACH:
     begin
     end;
   DLL_THREAD_DETACH:
     begin
     end;
 end;

end;

//------------------------------------------------------------------------------
//
// Объявление основной процедуры библиотеки
//
//------------------------------------------------------------------------------

begin
 @DllProc := @DllEntry;
 DllEntry(DLL_PROCESS_ATTACH);
end.