Что нового

Как определить размер экрана с помощью Autoit?

rybik

Новичок
Сообщения
84
Репутация
0
Мне нужно что бы окна на экране размещались вплотную друг к другу. И чтобы адаптировались под размер экрана. Размер окон мне известен, а вот как определять размер экрана? Размер экрана должен определять именно скрипт, потому что он будет использоваться на различных ПК, с разными размерами мониторов.
 
A

Alofa

Гость
В зависимости чего вам надо:
Код:
#include <GUIConstantsEx.au3>
#include <WinAPISys.au3>
#include <WindowsConstants.au3>

_GUI('Разрешение экрана: ', 0, 0, @DesktopWidth, @DesktopHeight)

Local $tRECT = _WinAPI_GetWorkArea()
Local $iX = $tRECT.Left
Local $iY = $tRECT.Top
Local $iWidth = $tRECT.Right - $iX
Local $iHeight = $tRECT.Bottom - $iY

_GUI('Размер рабочей зоны Рабочего стола основного дисплея: ', $iX, $iY, $iWidth, $iHeight)

Func _GUI($sText, $iX, $iY, $iWidth, $iHeight)
	Local $hForm = GUICreate('', $iWidth, $iHeight, $iX, $iY, $WS_POPUP, $WS_EX_TOPMOST)
	GUISetBkColor(0x26FF00, $hForm)
	GUICtrlCreateGraphic(0, 0)
	GUICtrlSetGraphic(-1, $GUI_GR_COLOR, 0xFF0004, 0xFF0004)
	GUICtrlSetGraphic(-1, $GUI_GR_RECT, 5, 5, $iWidth - 10, $iHeight - 10)
	WinSetTrans($hForm, '', 128)
	GUISetState()
	MsgBox(262144, Default, $sText  & $iWidth & ' x ' & $iHeight, 0, $hForm)
	GUIDelete($hForm)
	Sleep(300)
EndFunc   ;==>_GUI
 
Верх