Pobranie listy źrodeł ODBC


function BOOL GetODBCList(nvList, bLog)
#define KEY1 "SOFTWARE\\ODBC\\ODBC.INI"
BOOL bResult;
number nReturn;
string szline;
int i;
begin
bResult = FALSE;
if bLog then WriteLog(0,"* Pobranie listy źrodeł ODBC (DSN)"); endif;
RegDBSetDefaultRoot(HKEY_LOCAL_MACHINE);
nReturn = RegDBQueryKey(KEY1, REGDB_KEYS, nvList );
if (nReturn < 0) then bResult = FALSE; else bResult = TRUE; ListSetIndex(nvList,LISTFIRST); ListODBC: for i=0 to ListCount(nvList)-1 ListCurrentString ( nvList, szline ); if (StrCompare(szline,"ODBC Data Sources")=0)||(StrCompare(szline,"ODBC File DSN")=0) then ListDeleteString(nvList); goto ListODBC; endif; ListSetIndex(nvList,LISTNEXT); endfor; endif; return bResult; end;