dllentry.dpr

来自「《delphi深度编程及其项目开发》」· DPR 代码 · 共 27 行

library DLLEntry;

uses
  SysUtils,
  Classes,
  Dialogs,
  Windows;

{$R *.res}

procedure DLLEntryPoint(dwReason : DWord);
begin
  case dwReason of
    DLL_PROCESS_ATTACH : showMessage('映射到进程地址空间');
    DLL_PROCESS_DETACH : showMessage('从进程的地址空间分离出来');
    DLL_THREAD_ATTACH :  showMessage('创建了一个新线程');
    DLL_THREAD_DETACH : showMessage('一个线程正在退出');
  end;
end;

begin
  {首先，把一个过程的指针赋给DLLProc变量}
  DLLProc := @DLLEntryPoint;
  {调用这个过程}
  DLLEntryPoint(DLL_PROCESS_ATTACH);
end.