#DEFINE SPI_GETNONCLIENTMETRICS   41 
#DEFINE LOGPIXELSY                90 
#DEFINE LONG_MAX          2147483647 
#DEFINE FONT_CORRECTION         . 75 
CLEAR 
LOCAL lcBuffer 
LOCAL lcValue 
DECLARE INTEGER SystemParametersInfo IN WIN32API;
INTEGER, INTEGER, STRING  @,INTEGER
lcBuffer=CHR( 84 )+CHR( 1 )+REPLICATE(CHR( 0 ), 338 )
IF SystemParametersInfo(SPI_GETNONCLIENTMETRICS,  340 , @lcBuffer, 0 )= 1 
 ?'CaptionFont: '
 ??GetSFont(SUBSTR(lcBuffer, 25 , 60 )) 
 ?'SmCaptionFont: '
 ??GetSFont(SUBSTR(lcBuffer, 93 , 60 )) 
 ?'MenuFont: '
 ??GetSFont(SUBSTR(lcBuffer, 161 , 60 ))
 ?'StatusFont: '
 ??GetSFont(SUBSTR(lcBuffer, 221 , 60 ))
 ?'MessageFont: '
 ??GetSFont(SUBSTR(lcBuffer, 281 , 60 ))
ENDIF 
CLEAR DLLS 

FUNCTION GetSFont
LPARAMETERS lcBuffer
RETURN ;
 LEFT(RIGHT(lcBuffer, 32 ),AT(CHR( 0 ),RIGHT(lcBuffer, 32 ))- 1 ) + ',' +;
 LTRIM(STR(ROUND(ABS(long2num(SUBSTR(lcBuffer, 1 , 4 ))) * ; 
 FONT_CORRECTION, 0 ))) + ',' + ;
 IIF(long2num(SUBSTR(lcBuffer, 17 , 4 ))> 400 ,'B','N') + ;
 IIF(ASC(SUBSTR(lcBuffer, 21 , 1 ))= 1 ,'I','') + ',' + ; 
 LTRIM(STR((ASC(SUBSTR(lcBuffer, 24 , 1 )))))
ENDFUNC 

FUNCTION  long2num 
LPARAMETERS lcBuffer
LOCAL lnReturn
lnReturn = int2num(lcBuffer)
IF lnReturn > LONG_MAX
 lnReturn = lnReturn - LONG_MAX* 2  -  1 
ENDIF 
RETURN lnReturn
ENDFUNC

FUNCTION  int2num 
LPARAMETERS lcBuffer
RETURN;
 ASC(SUBSTR(lcBuffer,  1 , 1 )) + ;
 ASC(SUBSTR(lcBuffer,  2 , 1 )) *  256  +;
 ASC(SUBSTR(lcBuffer,  3 , 1 )) *  65536  +;
 ASC(SUBSTR(lcBuffer,  4 , 1 )) *  16777216 
ENDFUNC