EnumResourceNames 返回 Windows 错误 998（对内存位置的访问无效）

Question

（见底部的编辑）

使用 EnumResourceNames，我试图在我自己的 dll 中查找存储为资源的图标。这是整个dll代码：

library focusRes;

{$R focusResResource.res} // contains the icons I need to load
{$R *.res}

begin
end.

我可以使用 LoadLibrary 和 LoadLibraryEx（已验证）正确加载 dll。但是对 EnumResourceNames 的调用返回 false，GetLastError 返回 998（对内存位置的访问无效）。调用代码是：

hdll := LoadLibraryEx( PChar( DLLFilename ), 0, LOAD_LIBRARY_AS_DATAFILE );
// OR: hdll := LoadLibrary( PChar( DLLFilename ));
enumResult := EnumResourceNames( hDll, RT_ICON, @EnumResFlags, 0 );
// (hDll is the handle returned from LoadLibrary)

还有回调函数：

function EnumResFlags( hDll : HMODULE; ResType, ResName : PChar; 
   notUsed : pointer ) : integer; stdcall;
begin
  // NEVER GETS CALLED
  // log( ResName);
  result := 1; // continue enumeration
end;

回调是一个独立的函数（不是对象方法或本地函数）。

在我的调查中，我发现了一些令人困惑的线索：

• 问题似乎出在我的 dll 上，因为如果我替换为随机 从第三方应用程序获取 dll，问题就消失了。

• 问题似乎不是出在我的 dll 上，因为我可以打开它 在第三方图标编辑器中，dll中存储的所有图标都是 正确加载。

• 当我尝试为特定图标名称创建资源流时， 例外是“找不到资源 [名称]”。 （但是图标编辑器觉得没问题）

（Windows 7 32 位上的 Delphi XE）

编辑 1： 创建一个新的 Delphi 项目并将以下行放入其中：

enumResult := EnumResourceNames( hInstance, RT_ICON, @EnumCallback, 0 );

结果：错误 998。将 RT_ICON 更改为其他内容，例如 RT_RTCDATA，问题就消失了。

编辑 2：如果我没有在回调中引用 ResName 参数，问题不会发生。 （如果我在回调中只说“结果：= 1”，则没有错误。）回到 Delphi 3（！）并得到相同的确切结果，所以它不是 XE 特有的。如果我尝试枚举 RT_RCDATA 而不是 RT_ICON，没有问题，我可以读取 ResName。

Answer 1

您没有正确解析回调的lpszType 和lpszName 参数。您失败的测试涉及传递给回调的资源 ID，而不是资源名称。当您尝试通过指针访问进程内存的前 64kb 时，这是一次无效的内存访问。

您需要测试ResType/ResName 是名称还是 ID，然后进行相应的处理，如下所示：

function EnumResFlags( hDll : HMODULE; ResType, ResName : PChar; notUsed : pointer ) : integer; stdcall;
begin
  if IS_INTRESOURCE(ResName) then
    log(IntToStr(Integer(ResName)))
  else
    log(ResName);
  ...
end;

如果你的Delphi版本没有定义IS_INTRESOURCE()，你可以手动定义：

function IS_INTRESOURCE(lpszType: PChar): BOOL;
begin
  Result := ULONG_PTR(lpszType) shr 16 = 0;
end;