procedure DllMain(Reason: Integer); begin case Reason of DLL_PROCESS_ATTACH: OutputDebugString('[++++]DLL PROCESS ATTACH'); DLL_PROCESS_DETACH: OutputDebugString('[++++]DLL PROCESS DETACH'); DLL_THREAD_ATTACH: OutputDebugString('[++++]DLL THREAD ATTACH'); DLL_THREAD_DETACH: OutputDebugString('[++++]DLL THREAD DETACH'); end; end; begin { 重定义入口指针 } DllProc := DllMain; { 载入入口状态 } DllMain(DLL_PROCESS_ATTACH); end.
发表评论