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.
发表评论