Mathematica, 51 octets
SystemInformation[][[1,5,2,1,2,1,2,2,;;,2]]~Infix~x
Cela peut ne pas fonctionner pour vous en fonction des appareils que vous avez connectés (je ne sais pas). Cela devrait toujours fonctionner (en supposant que vous ayez au moins un écran connecté):
Infix[Last/@("FullScreenArea"/.SystemInformation["Devices","ScreenInformation"][[1]]),x]
Explication
SystemInformation[]
retourne une expression de la forme
SystemInformationData[{
"Kernel" -> {__},
"FrontEnd" -> {__},
"Links" -> {__},
"Parallel" -> {__},
"Devices" -> {__},
"Network" -> {__},
}]
Nous sommes intéressés à "Devices"
, ce qui peut être consulté directement comme SystemInformation["Devices"]
ou comme SystemInformation[][[1,5,2]]
. Le résultat sera une liste du formulaire
{
"ScreenInformation" -> {__},
"GraphicsDevices" -> {__},
"ControllerDevices" -> {__}
}
Nous voulons "ScreenInformation"
, qui peut être consulté soit comme SystemInformation["Devices","ScreenInformation"]
ou plus succinctement comme SystemInformation[][[1,5,2,1,2]]
. Le résultat sera de la forme
{
{
"ScreenArea" -> {__},
"FullScreenArea" -> {{0,w_},{0,h_}},
"BitDepth" -> _,
"Resolution" -> _
},
___
}
La longueur de la liste sera le nombre d'écrans que vous avez connectés. Le premier écran est SystemInformation[][[1,5,2,1,2,1]]
et la largeur et la hauteur peuvent être extraites en tant que SystemInformation[][[1,5,2,1,2,1,2,2,;;,2]]
Ensuite, nous insérons simplement un Infix
x
pour le format de sortie.