16 lines
242 B
Text
16 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
|