windows - 我如何知道我的 DLL 是如何加载的？

Question

我的 DLL 如何检测它是隐式加载还是显式加载？

示例 MyTestDll.dll

library MyTestDll;

uses SimpleShareMem, Windows, Dialogs;

procedure DetectMethodDllLoad: bool;
begin
  // ?????
  // need to detect loading method - implicit or explicit
end;

procedure MyTest; stdcall;
begin
  if DetectMethodDllLoad then
    ShowMessage('Working Program1 (implicit dll load)')
  else
    ShowMessage('Working Program2 (explicit dll load)');
end;

exports MyTest;

begin
end.

Program1.exe(隐式 dll 加载)

procedure MyTest; stdcall; external 'MyTestDll.dll' Name 'MyTest';

procedure TForm1.Button1Click(Sender: TObject);
begin
  MyTest;
end;

Program2.exe(显式 dll 加载)

type
  TMyTest = procedure; stdcall;

procedure TForm1.Button1Click(Sender: TObject);
var
  MyTest: TMyTest;
  H: HModule;
begin
  H := LoadLibrary('MyTestDll.dll');
  if H = 0 then
    exit;
  @MyTest := GetProcAddress(H, 'MyTest');
  if Assigned(MyTest) then
    MyTest;
  FreeLibrary(H);
end;

如何实现DetectMethodDllLoad？

Answer 1

如果您可以创建 DllMain 过程，DLL_PROCESS_ATTACH 调用的 lpReserved 参数将告诉您负载是静态的还是动态的。

http://msdn.microsoft.com/en-us/library/ms682583%28VS.85%29.aspx

你当然可以在 C 中做到这一点。我不知道在 Delphi 中是否可行。