一个关于DLL的问题！

Question

C中写DLL有
BOOL APIENTRY DllMain(HANDLE hModule, DWORD reason, LPVOID lpReserved)
{ switch (reason){  
    case DLL_PROCESS_ATTACH:{ }
    default:
    return TRUE; }
}请问DF中如果要实现同样功能应该怎么写。？？

Answer 1

//参考如下代码
library TestDLL;
  ...
  procedure MyDLLHandler(Reason: Integer);
  begin
    case Reason of
      DLL_Process_Attach: ; // 整个 DLL 的初始化代码
      DLL_Process_Detach: ; // 整个 DLL 的善後程序
      DLL_Thread_Attach: ; // 当主叫端开始一个 Thread 时
      DLL_Thread_Detach: ; // 当主叫端终止一个 Thread 时
    end;
  end;
  ...
begin
 ... // 初始化代码
 DLLProc := @MyDLLHandler;
 MyDLLHandle(DLL_Process_Attach);
end.