procedure DLLMain(dwReason: DWORD);

begin

  case dwReason of



  DLL_PROCESS_ATTACH:

   begin

    OutputDebugString(PChar(PLUGIN_NAME+' loaded by DLL_PROCESS_ATTACH'));

    // Initialize code here



   end;



  DLL_PROCESS_DETACH:

   begin

    OutputDebugString(PChar(PLUGIN_NAME+' unloaded by DLL_PROCESS_DETACH'));

    // Uninitialize code here



   end;



  DLL_THREAD_ATTACH:

   begin

   end;



  DLL_THREAD_DETACH:

   begin

   end;



  end;

end;



exports

...



begin

  DllProc := @DllMain;

  DllProc(DLL_PROCESS_ATTACH);



  g_hmodOlly := GetModuleHandle(nil);

end.