15 lines
242 B
Text
15 lines
242 B
Text
#APPTYPE CONSOLE
|
|
#INCLUDE <Include\Windows.inc>
|
|
|
|
TYPE RECT
|
|
%Left
|
|
%Top
|
|
%Right
|
|
%Bottom
|
|
END TYPE
|
|
|
|
DIM rc AS RECT
|
|
SystemParametersInfo(SPI_GETWORKAREA, 0, @rc, 0)
|
|
PRINT "width = ", rc.Right - rc.Left, ", height = ", rc.Bottom - rc.Top
|
|
|
|
PAUSE
|