For screen graphics capabilities try this code:
#DEFINE HORZSIZE 4
#DEFINE VERTSIZE 6
#DEFINE HORZRES 8
#DEFINE VERTRES 10
DECLARE INTEGER GetDC IN user32 INTEGER hwnd
DECLARE INTEGER ReleaseDC IN user32 INTEGER hwnd, INTEGER hdc
DECLARE INTEGER GetDeviceCaps IN gdi32 INTEGER hdc, INTEGER nIndex
LOCAL hdc
hdc = GetDC(0) && entire screen
? "Physical screen, width, mm", GetDeviceCaps(hdc, HORZSIZE)
? "Physical screen, height, mm", GetDeviceCaps(hdc, VERTSIZE)
? "Screen, width, pixels", GetDeviceCaps(hdc, HORZRES)
? "Screen, height, pixels", GetDeviceCaps(hdc, VERTRES)
* * *
Check complete VFP code on
http://www.news2news.com/vfp/?example=188&function=232