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.


你可能感兴趣的文章

评论区

发表评论

必填

选填

选填

必填

◎欢迎参与讨论,请在这里发表您的看法、交流您的观点。