Es gibt insgesamt drei Möglichkeiten:
Delphi-Quellcode:
with ListBox1.Items do
begin
Add(IntToStr(Screen.Width) + ':' + IntToStr(Screen.Height));
Add(IntToStr(Screen.WorkAreaWidth) + ':' + IntToStr(Screen.WorkAreaHeight));
Add(IntToStr(Screen.DesktopWidth) + ':' + IntToStr(Screen.DesktopHeight));
end;
Zeile 3: Aktueller Monitor (gesamt)
Zeile 4: Aktueller Monitor (Arbeitsfläche, ohne Taskbars)
Zeile 5: Alle Monitore zusammen (unterschiedliche Auflösungen sind nicht berücksichtigt)
...
...