Mathematica, 51 byte
SystemInformation[][[1,5,2,1,2,1,2,2,;;,2]]~Infix~x
Ini mungkin tidak berfungsi untuk Anda tergantung pada perangkat apa yang telah Anda hubungkan (saya tidak tahu). Ini harus selalu berfungsi (dengan asumsi Anda memiliki setidaknya satu layar terhubung):
Infix[Last/@("FullScreenArea"/.SystemInformation["Devices","ScreenInformation"][[1]]),x]
Penjelasan
SystemInformation[]
mengembalikan ekspresi formulir
SystemInformationData[{
"Kernel" -> {__},
"FrontEnd" -> {__},
"Links" -> {__},
"Parallel" -> {__},
"Devices" -> {__},
"Network" -> {__},
}]
Kami tertarik "Devices"
, yang dapat diakses secara langsung sebagai SystemInformation["Devices"]
atau sebagai SystemInformation[][[1,5,2]]
. Hasilnya akan berupa daftar formulir
{
"ScreenInformation" -> {__},
"GraphicsDevices" -> {__},
"ControllerDevices" -> {__}
}
Kami ingin "ScreenInformation"
, yang dapat diakses sebagai SystemInformation["Devices","ScreenInformation"]
atau lebih ringkas seperti SystemInformation[][[1,5,2,1,2]]
. Hasilnya akan berupa
{
{
"ScreenArea" -> {__},
"FullScreenArea" -> {{0,w_},{0,h_}},
"BitDepth" -> _,
"Resolution" -> _
},
___
}
Panjang daftar akan menjadi jumlah layar yang telah Anda hubungkan. Layar pertama adalah SystemInformation[][[1,5,2,1,2,1]]
dan lebar dan tinggi dapat diekstraksi sebagai SystemInformation[][[1,5,2,1,2,1,2,2,;;,2]]
Kemudian kita hanya memasukkan Infix
x
format output.