Guten Tag, auf
stackoverflow.com habe ich diese Methodik dafür entdeckt:
Delphi-Quellcode:
var
MonInfo: TMonitorInfo;
begin
MonInfo.cbSize := SizeOf(MonInfo);
GetMonitorInfo(MonitorFromWindow(
Handle, MONITOR_DEFAULTTONEAREST), @MonInfo);
ShowMessage(Format('
Current resolution: %dx%d',
[MonInfo.rcMonitor.Right - MonInfo.rcMonitor.Left,
MonInfo.rcMonitor.Bottom - MonInfo.rcMonitor.Top]));
Damit noch eine möglich aufgezeigt wird
Ps: Dies sollte nur den Hauptmonitor betreffen, ist aber anpassbar.