Delphi又出大问题了...晕

Question

library DelphiDll;uses
  SysUtils,
  Classes,
  System,
  Windows,
  Dialogs,
  Forms,
  ActiveX,
  DataForm in 'DataForm.pas' {Form1};{$R *.res}procedure DllEnterPoint(Reason: Integer);stdcall;
begin
  case Reason of
  DLL_PROCESS_ATTACH:
    begin
      ShowMessage('Create');
    end;
  DLL_PROCESS_DETACH:
    begin
      ShowMessage('Free');
    end;
  end;
end;begin  DLLProc := @DllEnterPoint;
//  DLLEnterPoint(DLL_PROCESS_ATTACH);
//  DLLEnterPoint(DLL_PROCESS_DETACH);end.如果上面的两行被注释掉, 则代码中的两个对话框都不会显示.
如果那两行加上, 两个对话框就会出现.  //即然DllProc已经被赋值了, 为什么不管用.
  //DllProc: Pointer;             { Called whenever DLL entry point is called }

Answer 1

Delphi是经常出现一些bug.但是你这个绝对不是bug引起的。

Answer 2

我只是不明白
DLLProc := @DllEnterPoint; 后,如果不加下面这两行.
  DLLEnterPoint(DLL_PROCESS_ATTACH);
  DLLEnterPoint(DLL_PROCESS_DETACH);DLLEnterPoint方法根本不会被调用.DLLProc倒底是做什么用的. 难道不是DLL中DllEnterPoint吗?

Answer 3

DLL_PROCESS_ATTACH事件要显式触发