Mathematica, 51 Bytes
SystemInformation[][[1,5,2,1,2,1,2,2,;;,2]]~Infix~x
Dies funktioniert möglicherweise nicht für Sie, je nachdem, welche Geräte Sie angeschlossen haben (ich weiß nicht). Dies sollte immer funktionieren (vorausgesetzt, Sie haben mindestens einen Bildschirm angeschlossen):
Infix[Last/@("FullScreenArea"/.SystemInformation["Devices","ScreenInformation"][[1]]),x]
Erläuterung
SystemInformation[] Gibt einen Ausdruck des Formulars zurück
SystemInformationData[{
"Kernel" -> {__},
"FrontEnd" -> {__},
"Links" -> {__},
"Parallel" -> {__},
"Devices" -> {__},
"Network" -> {__},
}]
Uns interessiert "Devices", auf welche direkt zugegriffen werden kann als SystemInformation["Devices"]oder als SystemInformation[][[1,5,2]]. Das Ergebnis ist eine Liste des Formulars
{
"ScreenInformation" -> {__},
"GraphicsDevices" -> {__},
"ControllerDevices" -> {__}
}
Wir wollen "ScreenInformation", auf die entweder als SystemInformation["Devices","ScreenInformation"]oder prägnanter als zugegriffen werden kann SystemInformation[][[1,5,2,1,2]]. Das Ergebnis wird von der Form sein
{
{
"ScreenArea" -> {__},
"FullScreenArea" -> {{0,w_},{0,h_}},
"BitDepth" -> _,
"Resolution" -> _
},
___
}
Die Länge der Liste entspricht der Anzahl der von Ihnen verbundenen Bildschirme. Der erste Bildschirm ist SystemInformation[][[1,5,2,1,2,1]]und die Breite und Höhe können extrahiert werden als SystemInformation[][[1,5,2,1,2,1,2,2,;;,2]]Dann fügen wir einfach ein Infix xfür das Ausgabeformat.