ft!有这么散分的吗?我cbuilder中的代码:    CoInitialize(NULL);
HRESULT hr;
LPSQLDMOSERVER pSQLServer;
    LPSQLDMOAPPLICATION pApplication;
    LPSQLDMONAMELIST pNameList;
    long lSqlCount = 0L; hr = CoCreateInstance(CLSID_SQLDMOServer,NULL,CLSCTX_INPROC_SERVER,IID_ISQLDMOServer,(void**)&pSQLServer);
    if(SUCCEEDED(hr)==false){
     logtext = "CoCreateInstance调用失败!!!返回值是:"+IntToStr(hr);
        WriteLog();
    CoUninitialize();
    }
    else{
        wchar_t* sqlserver = new wchar_t[240];
        try{
            pSQLServer->GetApplication(&pApplication);
            pApplication->ListAvailableSQLServers(&pNameList);
            pNameList->GetCount(&lSqlCount);
            logtext = "下面是网上邻居中找到的可用的SqlServer2000服务器:";
            WriteLog();
            for(long i=0;i<lSqlCount;i++){
                pNameList->GetItemByOrd(i,&sqlserver);
                comboboxSqlserverList->Items->Add(AnsiString(sqlserver));
                logtext = AnsiString(sqlserver);
                WriteLog();
            }
            pSQLServer->Release();
        }
        __finally{
         logtext = "正在进行COM反初始化";
            WriteLog();
//            delete sqlserver;
            logtext = "删除SqlServer成功";
            WriteLog();
            CoUninitialize();
            logtext = "COM反初始化成功";
            WriteLog();
        }
    }