Delphi DLL 入口点分析

procedure DllEntry(Reason: Integer);
begin
  case Reason of
    DLL_PROCESS_DETACH:
      Writeln('Process Detach');   // 进程卸载时
    DLL_THREAD_ATTACH:
      writeln('Thread Attach');    // 线程加载时
    DLL_THREAD_DETACH:
      writeln('Thread Detach');    // 线程卸载时
  end;
end;

begin
  // 当进程加载DLL时从这里开始运行代码
  Writeln('Process Attach');
  DllProc:= DllEntry;
end.