RegEnumKey настырно возвращает ERROR_NO_MORE_ITEMS ...

[Malaja]

Господа,

кто-нибудь сталкивался с такой ситуацией:

в реестре есть папка, содержащая несколько ключей, которые очень хочется считать. Например:

Папка: SOFTWARE\Irina:
 
StringID  REG_SZ    123
Flag      REG_SZ    1
Info      REG_SZ    12
Msg       REG_SZ    мяу

Напрашивается самый простой вариант - применение функции RegEnumKey (ну или RegEnumKeyEx). И вот тут-то и поджидает Облом Иваныч - эта функция стойко возвращает ERROR_NO_MORE_ITEMS, хотя в папке 4 записи!

Код:

BOOL MySysInfo::OpenRegKey(const HKEY hKey, const TCHAR* pSubKey, HKEY& hKeyPrograms, REGSAM samDesired /* = KEY_READ*/)
{
	if (NULL == pSubKey) return FALSE;
	ULONG res;

    res = RegOpenKeyEx( hKey,
		LPCTSTR(pSubKey),
		0,samDesired,
		&hKeyPrograms);
	if (res != ERROR_SUCCESS)
	{
		return FALSE;
	}
	
	return TRUE;
}


BOOL MySysInfo::CloseRegKey(HKEY hKey)
{
	ULONG res;
	res = RegCloseKey( hKey );
	if (res != ERROR_SUCCESS)
	{
		return FALSE;
	}
	
	return TRUE;
}

void MySysInfo::FindAllSubKeys(HKEY hKeyBase, CString csKeyPath)
{
	HKEY hKey = NULL;
	BOOL bRes = FALSE;

	// open registry
	bRes = OpenRegKey(hKeyBase, LPCTSTR(csKeyPath), hKey); 
	if (bRes == TRUE)
	{
		int lasterror = ERROR_SUCCESS;
		int nIndex = 0;

		while (lasterror == ERROR_SUCCESS || lasterror == ERROR_MORE_DATA)
		{
		DWORD dwName = (MAX_PATH + 1) * sizeof (TCHAR);
		TCHAR chName[MAX_PATH + 1];
		_tcscpy (chName, _T(""));
		lasterror = ::RegEnumKeyEx(hKey, nIndex, chName, dwName);
                        // при первом же вызове она меня отсылает подальше, 
                        // правда, корректно ;-) Самое забавное заключается в том, 
                       //что RegEnumValue() работает как часы! И все находит!  ::)

			nIndex++;
		}

		// close registry
		CloseRegKey(hKey);
	}
}

Вызов:

	FindAllSubKeys(	HKEY_LOCAL_MACHINE, _T("SOFTWARE\\Irina") );

Короче говоря, я не знаю уже, чего эта функция от меня хочет, зато точно знаю, что не понимаю ее поведение!  :dontknow:

[Джон]

Иришка - это нормально. Какая винда? w2k XP?

ps Ещё рег-файл кинь этого куска.

зызы Какая студия? 6 SP6?

а ну и ещё до кучи - проект UNICODE?

[Malaja]

Джон, солнышко,

почему нормально???
Винда = xp, проект = unicode, студия = 6SP6.

По общей логике вещей RegEnumKey() и RegEnumValue() должны работать по сходной схеме. Тем не менее этого не наблюдается...

Проблема возникла по следующему поводу:
в проекте уже есть папка в реестре, в которой сохраняют определенные настройки. Мне надо загнать туда свою папочку (т.е. subdirectory), в которой у меня будут сохраняться некоторые данные. Все это должно быть сделано так, чтобы можно было считывать из реестра всю инфу, зная только основной путь + имя моей папки (и не зная типов данных и имен параметров).
Вот я и захотела использовать RegEnumKey(), чтобы считать имена всех параметров, потом с помощью RegQueryMultipleValues() выяснить тип каждого параметра и потом с помощью RegEnumValue() или RegQueryValueEx() считать его значение.
Итого - идея проста, как чайник со свистком, но мелочи не дают радоваться жизни ;-(

[Джон]

замени RegEnumKeyEx на RegEnumKey и радуйся.

зы Я сегодня до шести буду на работе - однозначно.

[Malaja]

Фигушки! От перемены мест слагаемых сумма не меняется! Т.е. ничегошеньки не работает   Но я все равно радуюсь
Ага, хорошо, я тут тоже сегодня до 7 вечера как минимум. После 6 позвоню.
Майл отправила.

[Джон]

Мыло получил - ща гляну. А твой код только без Ех работает великолепно, а с Ех матюкается на число параметров. Чёт вы деушка перемудрили.

[Джон]

Бррр, Ирин - тебе это срочно? А то я там без пол-банки не разберусь.

[Malaja]

Ни в коем случае!
Я сейчас еще раз сама разбираться буду!
Оставь и не мучайся!

[Джон]

Факт, что EnumRegKey функцклирует.

[Malaja]

Стоп, кажется до меня дошло - эта функция выдает имена поддиректорий, а когда забираешься в какую-то конечную директорию, где уже никаких папок - только параметры, вот тогда она, родимая, ничего и не видит и рассказывает, что никаких записей там больше нет.
Если это так, то это плачевно. Обидно...

[Джон]

Почему? Делай рекурсию.

Код:

DWORD EnumRegXXX(HKEY hParentKey, const CString& stKeyName)
{
	DWORD   dwIndex = 0;
	TCHAR   pszSubKeyName[_MAX_PATH];
	HKEY    hCurrentKey;
	DWORD   dwResult;

	if((dwResult = ::RegOpenKey(hParentKey, stKeyName, &hCurrentKey)) == ERROR_SUCCESS)
	{
		// itterate all subkeys
		int nInd = 0;
		while((dwResult = ::RegEnumKey(hCurrentKey, nInd, pszSubKeyName, _MAX_PATH-1)) == ERROR_SUCCESS)
		{
			CString st = pszSubKeyName;
			EnumRegXXX(hCurrentKey, pszSubKeyName);	
			nInd++;
		}

		if((dwResult == ERROR_NO_MORE_ITEMS) || (dwResult == ERROR_BADKEY))
		{
			// itterate this keys values
			TCHAR pszVal[_MAX_PATH];
			BYTE pValue[4096];
			int i = 0;
			BOOL bStop = FALSE;
			while(!bStop)
			{
				DWORD nType;
				DWORD nNameSize = _MAX_PATH;
				DWORD nValueSize = 4096;
				LONG res = ::RegEnumValue(hCurrentKey, i, pszVal, &nNameSize, 0, &nType, pValue, &nValueSize);
				if(ERROR_NO_MORE_ITEMS == res)
				{
					bStop = TRUE;
				}
				else
				{
					CString stVal = _T("");
					switch(nType)
					{
					case REG_SZ:
					case REG_EXPAND_SZ:
						stVal = (TCHAR*)pValue;
						break;
					case REG_BINARY:
						stVal = ConvertBinToStr(pValue, nValueSize);
						break;
					case REG_DWORD:
						stVal.Format(_T("%d"), *((DWORD*)pValue));
						break;
					}
				}
				i++;
			}
		}
	}
	RegCloseKey(hCurrentKey);
	return dwResult;
}

Передай в неё буфер для сбора данных или что там тебе надо и усё. Прогуляйся по ней с дебагером

зы Всё через 7 минут сваливаю

[Malaja]

Джон,

сейчас попробовала - RegEnumKeyEx() функционирует не хуже, но и не лучше...
Внизу - твоя же функция, которую я дополнила вызовом RegEnumKeyEx():

Код:

void FindAllSubKeys(HKEY hKeyBase, CString csKeyPath)
{
	HKEY hKey = NULL;
	BOOL bRes = FALSE;

	// open registry
	bRes = OpenRegKey(hKeyBase, LPCTSTR(csKeyPath), hKey, 
                       KEY_READ); 
	if (bRes == TRUE)
	{
		int lasterror = ERROR_SUCCESS;
		int nIndex = 0;

		while (lasterror == ERROR_SUCCESS || lasterror == 
                            ERROR_MORE_DATA)
		{
			DWORD dwName = (MAX_PATH + 1) * sizeof 
                                      (TCHAR);
			TCHAR chName[MAX_PATH + 1];

			_tcscpy (chName, _T(""));
			lasterror = ::RegEnumKey(hKey, nIndex, chName, 
                                                       dwName);

			TCHAR chClass[MAX_PATH + 1];
			DWORD dwClass = (MAX_PATH + 1) * sizeof 
                                         (TCHAR);
			_tcscpy (chClass, _T(""));

			FILETIME ftLastWriteTime;

			lasterror = ::RegEnumKeyEx(
			  hKey,          // handle to key to enumerate
			  nIndex,      // index of subkey to enumerate
			  chName,      // address of buffer for subkey name
			  &dwName,   // address for size of subkey buffer
			  NULL, // reserved
			  chClass,     // address of buffer for class string
			  &dwClass,  // address for size of class buffer
			  &ftLastWriteTime  // address for time key last 
                                                               written to
			);
 
			if (lasterror != ERROR_NO_MORE_ITEMS)
			{
				TRACE ("Name = %s \n", chName);
			}
			else
			{
				TRACE (
                                         _T("ERROR_NO_MORE_ITEMS  ..... \n"));
			}

			nIndex++;
		}

		// close registry
		CloseRegKey(hKey);
	}
}

Так рекурсия заканчивается на имени последней вложенной папки! А дальше - тишина и мертвые с косами стоят 

Т.е.:HKEY_LOCAL_MACHINE -> SOFTWARE -> MojaFirma -> MojProekt -> Opcii -> Irina - все, дальше папок нет!
В папке с именем "Irina" только параметры со значениями! Причем меня как раз они и интересовали... 

[Diletant]

A RegEnumValue использовать слабо? Ключи все-таки отличаются от параметров.

[Malaja]

Идея была, да подкачала  Т.е. проблема применения этой функции заключается в том, что тут желательно знать тип данных, а если не знаешь, а тип, например, REG_BINARY, то вместо удобоваримого значения получишь абракадабру... И к тому же хотелось все и сразу!  Ага, щас!  Пришлось сначала применять эту функцию для определения имени параметра, а затем RegQueryMultipleValues для определения значениай в приличном виде.