Bildschirm Auflösung

[KodeZwerg]

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.