#include <Pro_ext.h>
#include <windows.h>
#include <TCHAR.H > 

#define p(i) parm->p[(i)].val   // описание этой структуры в MSDN, по ссылке.

void EnumSerialPort(ParamBlk FAR *parm)
{
USES_CONVERSION;
OSVERSIONINFO osvi;
osvi.dwOSVersionInfoSize = sizeof(OSVERSIONINFO);
BOOL bGetVer = GetVersionEx(&osvi);
char *czNamesPort= (char*)malloc( 1024 );
char *czConvNamesPort = (char*)malloc( 10 );
int lenStr= 0 ;
ZeroMemory(czNamesPort, 1024 );
ZeroMemory(czConvNamesPort, 10 );
 if(bGetVer && (osvi.dwPlatformId == VER_PLATFORM_WIN32_NT))
	 {
		 TCHAR szDevices[ 65535 ];
         DWORD dwChars = QueryDosDevice(NULL, szDevices,  65535 );
         if(dwChars)
          {
		   int i= 0 ;
		    for (;;)
			{
			TCHAR* pszCurrentDevice = &szDevices;
			 int nLen = _tcslen(pszCurrentDevice);

			 if(nLen >  3  && _tcsnicmp(pszCurrentDevice, _T("COM"),  3 ) ==  0 )
                      {
					   lenStr = lenStr+nLen;
						strncat(czNamesPort,pszCurrentDevice,nLen);
						strcat(czNamesPort,"\n");
                       }
				    while(szDevices[i] != _T('\0'))  i++;
                    i++;
                   if(szDevices[i] == _T('\0'))  break;
			}
		  } 
	  }
	 _RetChar(czNamesPort);
}

FoxInfo myFoxInfo[] = {
	{"ESP"         ,(FPFI) EnumSerialPort,       0 ,""          },
};
extern "C"  FoxTable _FoxTable = {(FoxTable  *)  0 , sizeof(myFoxInfo)/sizeof(FoxInfo), myFoxInfo};