BOOL EnumDisplayDevices(
  LPCTSTR lpDevice,                // device name
  DWORD iDevNum,                   // display device
  PDISPLAY_DEVICE lpDisplayDevice, // device information
  DWORD dwFlags                    // reserved
);
 

 
DECLARE INTEGER EnumDisplayDevices IN user32;
    STRING    lpDevice,;
    INTEGER   iDevNum,;
    STRING  @ lpDisplayDevice,;
    INTEGER   dwFlags
 

 
nIndex = 0  && start with 0
 
DO WHILE .T.
    IF EnumDisplayDevices(NULL, nIndex, @cBuffer, 0) = 0
    * the enumeration ended or failed
        RETURN ""
    ENDIF
 
    nFlags = buf2word(SUBSTR(cBuffer, 165,2))
 
    IF BitAnd(nFlags, 4) = 4  && primary device
        cResult= SUBSTR(cBuffer, 5,32)
        RETURN SUBSTR(cResult, 1,AT(Chr(0),cResult)-1)
    ENDIF
 
    nIndex = nIndex + 1
ENDDO