GetSystemMetrics 和 TScreen returns 错误值
GetSystemMetrics and TScreen returns wrong value
我正在使用 Delphi XE5。我想我的笔记本电脑有问题。过了一会儿,它 return 的错误值变成了 Screen.Width 和 GetSystemMetrics(SM_CXSCREEN) (对于高度也是如此)。我的 OS 是 Windows 7 64 位。
我笔记本电脑的屏幕分辨率是 1920x1080 (1080p),但我的应用程序显示它是 1280x720 (720p)。我不认为存在 DPI 问题,因为当我重新启动并在一段时间后启动时问题就出现了。兼容性设置也已关闭。以前有人遇到过这个问题吗?或者你知道解决办法吗?我还在下面添加了清单但没有帮助
<?xml version='1.0' encoding='UTF-8' standalone='yes'?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
<asmv3:application xmlns:asmv3="urn:schemas-microsoft-com:asm.v3">
<asmv3:windowsSettings
xmlns="http://schemas.microsoft.com/SMI/2005/WindowsSettings">
<dpiAware>true</dpiAware>
</asmv3:windowsSettings>
</asmv3:application>
</assembly>
我是这样编译的
1 24 "mf.txt"
编辑:
好的,我写了这个函数,这是修复它的棘手方法。我更喜欢 Screen.Width return 正确的值:
function ScreenSize(var x, y: integer): boolean;
const
ENUM_CURRENT_SETTINGS = -1;
ENUM_REGISTRY_SETTINGS = -2;
var
dm: TDevMode;
begin
Result := False;
x := 0;
y := 0;
ZeroMemory(@dm, sizeof(dm));
if EnumDisplaySettings(nil, Cardinal(ENUM_CURRENT_SETTINGS), dm) then
begin
Result := True;
x := dm.dmPelsWidth;
y := dm.dmPelsHeight;
end else
begin
x := GetSystemMetrics(SM_CXSCREEN);
y := GetSystemMetrics(SM_CYSCREEN);
end;
end;
编辑 2:
我发现 SetProcessDPIAware
解决了我的问题,但它在 XP 中不起作用
您声明您的系统 运行 字体缩放比例为 150%。如果您的应用程序以 DPI virtualization 运行,则此虚拟化解释了您观察到的行为。请注意 1920 / 1.5 = 1280
和 1080 / 1.5 = 720
.
对您报告的行为的唯一合理解释是该进程 运行 在 DPI 虚拟化下。应用 DPI 感知清单选项将停止 DPI 虚拟化。因此,清单很可能没有正确链接到您的应用程序,或者清单无效。
我怀疑您的应用程序可能链接了两个清单。第二个将被丢弃。如果您在 Delphi 项目中使用默认应用程序设置,就会发生这种情况。您的下一步是使用资源查看器查看链接到可执行文件的实际资源。这是查看已链接内容的可靠方式。
可能的解决方案是在 Delphi 项目选项的应用程序节点中使用 自定义清单 选项并提供完整的应用程序清单。这将需要指定 comctl32 v6 以启用主题、asInvoker
的 requireAdministrator
选项和 DPI 感知选项。
我正在使用 Delphi XE5。我想我的笔记本电脑有问题。过了一会儿,它 return 的错误值变成了 Screen.Width 和 GetSystemMetrics(SM_CXSCREEN) (对于高度也是如此)。我的 OS 是 Windows 7 64 位。
我笔记本电脑的屏幕分辨率是 1920x1080 (1080p),但我的应用程序显示它是 1280x720 (720p)。我不认为存在 DPI 问题,因为当我重新启动并在一段时间后启动时问题就出现了。兼容性设置也已关闭。以前有人遇到过这个问题吗?或者你知道解决办法吗?我还在下面添加了清单但没有帮助
<?xml version='1.0' encoding='UTF-8' standalone='yes'?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
<asmv3:application xmlns:asmv3="urn:schemas-microsoft-com:asm.v3">
<asmv3:windowsSettings
xmlns="http://schemas.microsoft.com/SMI/2005/WindowsSettings">
<dpiAware>true</dpiAware>
</asmv3:windowsSettings>
</asmv3:application>
</assembly>
我是这样编译的
1 24 "mf.txt"
编辑:
好的,我写了这个函数,这是修复它的棘手方法。我更喜欢 Screen.Width return 正确的值:
function ScreenSize(var x, y: integer): boolean;
const
ENUM_CURRENT_SETTINGS = -1;
ENUM_REGISTRY_SETTINGS = -2;
var
dm: TDevMode;
begin
Result := False;
x := 0;
y := 0;
ZeroMemory(@dm, sizeof(dm));
if EnumDisplaySettings(nil, Cardinal(ENUM_CURRENT_SETTINGS), dm) then
begin
Result := True;
x := dm.dmPelsWidth;
y := dm.dmPelsHeight;
end else
begin
x := GetSystemMetrics(SM_CXSCREEN);
y := GetSystemMetrics(SM_CYSCREEN);
end;
end;
编辑 2:
我发现 SetProcessDPIAware
解决了我的问题,但它在 XP 中不起作用
您声明您的系统 运行 字体缩放比例为 150%。如果您的应用程序以 DPI virtualization 运行,则此虚拟化解释了您观察到的行为。请注意 1920 / 1.5 = 1280
和 1080 / 1.5 = 720
.
对您报告的行为的唯一合理解释是该进程 运行 在 DPI 虚拟化下。应用 DPI 感知清单选项将停止 DPI 虚拟化。因此,清单很可能没有正确链接到您的应用程序,或者清单无效。
我怀疑您的应用程序可能链接了两个清单。第二个将被丢弃。如果您在 Delphi 项目中使用默认应用程序设置,就会发生这种情况。您的下一步是使用资源查看器查看链接到可执行文件的实际资源。这是查看已链接内容的可靠方式。
可能的解决方案是在 Delphi 项目选项的应用程序节点中使用 自定义清单 选项并提供完整的应用程序清单。这将需要指定 comctl32 v6 以启用主题、asInvoker
的 requireAdministrator
选项和 DPI 感知选项。