//---------------------------------------------------------------------------
typedef int __stdcall (* pfnDBServerEnum)(int SearchMode, void *ServNameBuf, int SizeServNameBuf, int *NumEntries);
set<String> listMSSQLServer() // list of MS SQL Servers
{
set<String> result;
Screen->Cursor = crHourGlass;
// http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dblibc/dbc_pdc04e_8ilp.asp
try
{
HINSTANCE hLib = LoadLibrary("ntwdblib.dll");
if ((int)hLib < 32)
{
MessageDlg("Error in calling dll.", mtError, TMsgDlgButtons()<<mbOK, 0);
}
else
{
pfnDBServerEnum DBServerEnum = (pfnDBServerEnum)GetProcAddress(hLib,"dbserverenum");
int SizeServNameBuf;
if( DBServerEnum )
{
int NumEntries = EOF;
char *ServNames = new char[1024];
DBServerEnum(NET_SEARCH | LOC_SEARCH, ServNames, 1024, &NumEntries);
char str[100];
for(int i = 0; *ServNames != '\0'; )
{
char *name = ServNames;
for(; *ServNames++ != '\0' ; i++){}
result.insert( strncpy(str, name, ServNames-name) );
}
}
FreeLibrary(hLib);
}
}
catch (...) {
MessageDlg("Error in calling dll.", mtError, TMsgDlgButtons()<<mbOK, 0);
}

Screen->Cursor = crDefault;
return result;
}