1

我正在尝试将新的 SystemParametersInfoForDPI 函数用于高 DPI 应用程序。但是，当我返回调用者时，我的应用程序立即崩溃（致命错误）。

尝试执行 00000000 时异常是访问冲突。

我试图获取的参数是 SPI_GETNONCLIENTMETRICS。

procedure TForm1.Button1Click(Sender: TObject);
var
  SystemParametersInfoForDpi: function(uiAction, uiParam: UINT; pvParam: Pointer; fWinIni, DPI: UINT): BOOL; stdcall;
  Metrics: TNonClientMetrics;
begin
  SystemParametersInfoForDpi := GetProcAddress(GetModuleHandle(user32), 'SystemParametersInfoForDpi');
  Win32Check(Assigned(SystemParametersInfoForDpi));

  FillChar(Metrics, SizeOf(Metrics), 0);
  Metrics.cbSize := SizeOf(Metrics);
  if SystemParametersInfoForDPI(SPI_GETNONCLIENTMETRICS, Metrics.cbSize, @Metrics, 0, 120) then
    Caption := 'OK'
  else
    Caption := 'FAIL'; 
end; // - crashes here; D2007; Win2016

怎么了？

4

1 回答 1

1

崩溃部分问题 - 它似乎是某些 Windows 版本中的一个错误。

有问题的代码不正确。

SystemParametersInfoForDPI 只有在使用最新版本的结构时才能正常工作：它应该是 UNICODE 并为最新的操作系统版本定义（例如，iPaddedBorderWidth 等字段 - 必须存在）。换句话说，它应该在所有可能的定义中具有最大尺寸。

这在文档中有所概述，但方式有点奇怪：

  • SystemParametersInfoForDpi 的文档说：“此函数仅支持 Unicode (LOGFONTW) 字符串”
  • SystemParametersInfo 的文档说：“pvParam 参数必须指向包含新参数的 NONCLIENTMETRICS 结构”

虽然这看起来确实像是从旧 Windows 版本（2000 等）上的文档中清理出来的 - 但它确实告诉您绝对必须使用最新版本的结构。

最后，错误是 SystemParametersInfoForDpi 在看到不受支持的缓冲区大小时不会因“缓冲区不足”或“无效参数”错误而失败 - 正如人们所期望的那样。相反，它会愉快而安静地执行缓冲区溢出。这只发生在某些 Windows 版本上。

因此，如果在堆栈上分配结构 - 缓冲区溢出将擦除返回地址。当你的代码试图返回给调用者时——它会崩溃。

于 2018-07-23T15:09:30.107 回答