Как вытащить параметр displayproperties->logicaldpi?

@IgorK11 · Регистрация: 10.03.2017

Студворк — интернет-сервис помощи студентам

Подскажите пожалуйста как вытащить параметр LogicalDpi на delphi7?

@GoodWeather · 23.08.2018, 23:06

Это что-то из C#. Вам-то что именно требуется сделать/получить?

Добавлено через 3 минуты
https://docs.microsoft.com/ru-... on-windows
https://docs.microsoft.com/ru-... -reference

@IgorK11 · 24.08.2018, 07:53 **[ТС]**

Нужен параметр бегунка увеличения экрана в 8-10 винде / в 7ке это "сделать текст больше". 100-125-150.

Добавлено через 38 минут
Если GetSystemMetricsForDpi это то что надо, то можно пример его использования?
GetSystemMetrics delphi7 знает, а GetSystemMetricsForDpi нет.

@GoodWeather · 24.08.2018, 08:30

"Изменение размера текста, приложений и других элементов"?
При изменении этого окну приходит событие OnAfterMonitorDpiChanged, и там приходят предыдущее и новое DPI.

Delphi
1
2
3
4
5
6
7
8
9
10
11
uses Winapi.ShlObj, Winapi.MultiMon, Winapi.ShellScaling;
 
...
var Mon: TMonitor; HMon: HMONITOR; PPI: Integer; Scale: DEVICE_SCALE_FACTOR;
begin
Mon:=Screen.Monitors[0];
HMon:=Mon.Handle;
PPI:=Mon.PixelsPerInch;
GetScaleFactorForMonitor(HMon, Scale);
ShowMessage('PixelsPerInch == '+PPI.ToString+#13#10'Scale == '+Integer(Scale).ToString);
end;

Добавлено через 1 минуту
Для "семёрки" понадобятся свежие заголовочники. Возможно в JEDI это есть.

@IgorK11 · 24.08.2018, 10:07 **[ТС]**

Сообщение от GoodWeather

"Изменение размера текста, приложений и других элементов"?

Проблема в чём, GetCursorPos при изменении DPI выдает заниженные значения координат. Необходимо что бы при разрешении экрана 1920х1080 и выставленным увеличением 150 значение в правом углу по x было 1920 а не 960.
Разделить на разницу DPI хочу.
При этом всём SetCursorPos вроде работает как надо.

Сообщение от GoodWeather

Для "семёрки" понадобятся свежие заголовочники. Возможно в JEDI это есть.

Вообще в этом не шарю, нельзя как то по проще сразу к user32.dll или еще какой обратиться?
В реальном времени не надо, достаточно 1 раз при запуске по.

Добавлено через 9 минут
Screen.PixelsPerInch всегда имеет значение 96.

@GoodWeather · 25.08.2018, 23:38

гм? Серьёзно? Чуть позже перепроверю... А пока нашлось такое:
https://habr.com/post/248135/
https://msdn.microsoft.com/en-... s.85).aspx

Добавлено через 1 минуту
Всё равно понадобится либо готовый современный заголовочник, либо вручную экспортировать. Наверное же проще готовый?

@IgorK11 · 26.08.2018, 14:30 **[ТС]**

Пока испробовал это:
Родное разрешение: 2048x1152, 150x увеличение

OS = Windows 7
PixelsPerInch = 96
Screen.Width = 1365
Screen.Height = 768
Screen.Monitors[0].Width = 1365
Screen.Monitors[0].Height = 768
GetDeviceCaps(dc,LOGPIXELSX) = 96
GetDeviceCaps(dc,LOGPIXELSY) = 96
GetDeviceCaps(dc,HORZRES) = 1365
GetDeviceCaps(dc,VERTRES) = 768
GetSystemMetrics(SM_CXSCREEN) = 1365
GetSystemMetrics(SM_CYSCREEN) = 768
=====================================
SetCursorPos 150х не использует и ориентируется на 2048x1152.
Картинка меняется если в свойствах ярлыка поставить галку "Отключить масштабирование изображения при высоком разрешении экрана" текст при этом съезжает куда попало но dpi показывает нормально. Способ с этой галочкой считаю неприемлемым.
в win8,10 пока нет возможности проверить, утилитку прилагаю.

@IgorK11 · 26.08.2018, 14:40 **[ТС]**

С галочкой:
PixelsPerInch = 144
Screen.Width = 2048
Screen.Height = 1152
Может что в манифест прописать?

@IgorK11 · 27.08.2018, 11:50 **[ТС]**

В 10ке тоже самое, монитор 1280х1024, 150х
OS = Windows 10 Pro
PixelsPerInch = 96
Screen.Width = 853
Screen.Height = 683
Screen.Monitors[0].Width = 853
Screen.Monitors[0].Height = 683
GetDeviceCaps(dc,LOGPIXELSX) = 96
GetDeviceCaps(dc,LOGPIXELSY) = 96
GetDeviceCaps(dc,HORZRES) = 853
GetDeviceCaps(dc,VERTRES) = 683
GetSystemMetrics(SM_CXSCREEN) = 853
GetSystemMetrics(SM_CYSCREEN) = 683
=====================================

манифест не помогает.

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
<asmv3:application>
<asmv3:windowsSettings xmlns="http://schemas.microsoft.com/SMI/2005/WindowsSettings">
<ms_windowsSettings:dpiAware xmlns:ms_windowsSettings= "http://schemas.microsoft.com/SMI/2005/WindowsSettings">false</ms_windowsSettings:dpiAware>
</asmv3:windowsSettings>
</asmv3:application>
</assembly>

Добавлено через 1 минуту

Сообщение от GoodWeather

Всё равно понадобится либо готовый современный заголовочник

Где можно взять этот новый заголовник и куда его кинуть?

@GoodWeather · 27.08.2018, 15:31

На Tokyo не выходит повторить проблему.
Win10 - размеры как были 1920x1080 так и не меняются.
Win7 - размеры как были 1600x1200 так и не меняются.
SetCursorPos/GetCursorPos работает как ожидается и одинаково.

Добавлено через 1 минуту
А ваш exe да, работает некорректно, но без исходника сложно предполагать.
Может, конечно, в Tokyo в заголовках круто нашаманили... У меня нету исходных... Ну попробую сейчас пересобрать на семёрке...

Добавлено через 20 секунд

Сообщение от IgorK11

"Отключить масштабирование изображения при высоком разрешении экрана"

эм... Это где такое?

Добавлено через 14 минут
В Win10 и Win7 у меня только Screen.PixelsPerInch по разному показывало (в десятке не меняется).
Ну и GetScaleFactorForMonitor с Get/SetProcessDpiAwareness нельзя в Win7 вызывать.

@IgorK11 · 27.08.2018, 15:32 **[ТС]**

Сообщение от GoodWeather

эм... Это где такое?

на exeшнике правой кнопкой, св-ва, совместимость.
исходники приложил

@IgorK11 · 27.08.2018, 15:41 **[ТС]**

А Tokyo сильно от 7ки отличается по программированию?

@D1973 · 28.08.2018, 15:02

Сообщение от IgorK11

А Tokyo сильно от 7ки отличается по программированию?

Не по теме:

Абсолютно не отличается. Точно так же на клавиатуре нажимаются кнопки и в редакторе кода появляется какой-то текст...

А среды отличаются конечно, причем здОрово... Да и плюшек новых понадобавленно... Но в контексте WINAPI - практически ничего не изменилось - это фишка не Embarcodero, а Microsoft...

@IgorK11 · 05.09.2018, 11:04 **[ТС]**

Пересобрал приложение на Tokyo, все работает как надо.

Новые блоги и статьи Все статьи Все блоги /
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .

@IgorK11 0 / 0 / 0 Регистрация: 10.03.2017 Сообщений: 9

	Delphi 6-7 Как вытащить параметр displayproperties->logicaldpi? 23.08.2018, 11:43. Показов 2863. Ответов 13 Метки нет (Все метки) Подскажите пожалуйста как вытащить параметр LogicalDpi на delphi7? 0

@GoodWeather 886 / 588 / 179 Регистрация: 28.02.2017 Сообщений: 2,359 Записей в блоге: 1
	23.08.2018, 23:06
	Это что-то из C#. Вам-то что именно требуется сделать/получить? Добавлено через 3 минуты https://docs.microsoft.com/ru-... on-windows https://docs.microsoft.com/ru-... -reference 0

@IgorK11 0 / 0 / 0 Регистрация: 10.03.2017 Сообщений: 9
	24.08.2018, 07:53 [ТС]
	Нужен параметр бегунка увеличения экрана в 8-10 винде / в 7ке это "сделать текст больше". 100-125-150. Добавлено через 38 минут Если GetSystemMetricsForDpi это то что надо, то можно пример его использования? GetSystemMetrics delphi7 знает, а GetSystemMetricsForDpi нет. 0

@GoodWeather 886 / 588 / 179 Регистрация: 28.02.2017 Сообщений: 2,359 Записей в блоге: 1
	25.08.2018, 23:38
	гм? Серьёзно? Чуть позже перепроверю... А пока нашлось такое: https://habr.com/post/248135/ https://msdn.microsoft.com/en-... s.85).aspx Добавлено через 1 минуту Всё равно понадобится либо готовый современный заголовочник, либо вручную экспортировать. Наверное же проще готовый? 0

@IgorK11 0 / 0 / 0 Регистрация: 10.03.2017 Сообщений: 9
	26.08.2018, 14:40 [ТС]
	С галочкой: PixelsPerInch = 144 Screen.Width = 2048 Screen.Height = 1152 Может что в манифест прописать? 0

@IgorK11 0 / 0 / 0 Регистрация: 10.03.2017 Сообщений: 9
	27.08.2018, 15:41 [ТС]
	А Tokyo сильно от 7ки отличается по программированию? 0

@IgorK11 0 / 0 / 0 Регистрация: 10.03.2017 Сообщений: 9
	05.09.2018, 11:04 [ТС]
	Пересобрал приложение на Tokyo, все работает как надо. 0