20 lines
608 B
Plaintext
20 lines
608 B
Plaintext
' FB 1.05.0 Win64
|
|
|
|
' Using SystemParametersInfo function in Win32 API
|
|
Dim As Any Ptr library = DyLibLoad("user32")
|
|
Dim Shared SystemParametersInfo As Function (ByVal As ULong, ByVal As ULong, ByVal As Any Ptr, ByVal As ULong) As Long
|
|
SystemParametersInfo = DyLibSymbol(library, "SystemParametersInfoA")
|
|
|
|
Type Rect
|
|
As Long left, top, right, bottom
|
|
End Type
|
|
|
|
#Define SPI_GETWORKAREA &H30
|
|
Dim r As Rect
|
|
SystemParametersInfo(SPI_GETWORKAREA, 0, @r, 0)
|
|
DyLibFree(library)
|
|
Print "Maximum usable desktop area : W" ; r.right - r.left; " x H"; r.bottom - r.top; " pixels"
|
|
Print
|
|
Print "Press any key to quit"
|
|
Sleep
|