Delphi XE3 DllMain 中的 ShowMessage

Question

下面的DLL是用XE3编译的。

library MyDLL;

uses System.SysUtils, System.Classes, Vcl.Dialogs;

{$R *.res}

var
  II: Integer;

function Test: Integer;
begin
  Result := II;
end;

exports Test;

begin
  II := 5;
  ShowMessage('DLL prolog');
end.

当我从 Delphi XE3 或 Delphi 2007 程序调用函数 Test() 时，我在这两种情况下都得到了正确的结果 (5)。但是只有 Delphi 2007 程序会显示“DLL prolog”消息，而不是 Delphi XE3 程序。为什么？

编辑

当我使用 Delphi 2007 主机 ShowMessage() 从 XE3 IDE “运行” dll 时也不起作用。

Answer 1

关键在这个函数里：

function MessageDlgPosHelp(const Msg: string; DlgType: TMsgDlgType;
  Buttons: TMsgDlgButtons; HelpCtx: Longint; X, Y: Integer;
  const HelpFileName: string): Integer;
begin
  if TOSVersion.Check(6) and UseLatestCommonDialogs and
     StyleServices.Enabled and StyleServices.IsSystemStyle then
    Result := DoTaskMessageDlgPosHelp('', Msg, DlgType, Buttons,
      HelpCtx, X, Y, HelpFileName)
  else
    Result := DoMessageDlgPosHelp(CreateMessageDialog(Msg, DlgType, Buttons),
      HelpCtx, X, Y, HelpFileName);
end;

在某些情况下，根据主机应用程序是否具有 comctl32 v6 清单，会选择 if 语句的不同分支。

如果选择了DoTaskMessageDlgPosHelp 分支，则随后对TaskDialogIndirect 的调用将失败，并显示HRESULT 代码$80070057。这是一个 Win32 错误代码，ERROR_INVALID_PARAMETER。

如果选择了DoMessageDlgPosHelp 分支，则会显示对话框。

我不确定为什么从库初始化块调用 TaskDialogIndirect 时会失败，但我并不完全感到惊讶。你在DllMain 可以做的事情受到严格限制，你不应该尝试从那里显示对话框。