_Т("HKEY_LOCAL_MACHINE"), _T("HKEY_CLASSES_ROOT"),
_Т("HKEY CURRENT USER"), _T ("HKEY CURRENT CONFIG"), NULL
};
HKEY PreDefKeys[] = {
HKEY_LOCAL_MACHINE, HKEY_CLASSES_ROOT, HKEY_CURRENT_USER, HKEY_CURRENT_CONFIG
};
KeyIndex = Options(argc, argv, _T("Rl"), &Flags[0], &Flags[1], NULL);
/* "Разобрать" шаблон поиска на "раздел" и "подраздел". */
/* Воссоздать раздел. */
pScan = argv[KeyIndex];
for (i = 0; *pScan != _T('\\') && *pScan != _T('\0'); pScan++, i++) KeyName [i] = *pScan;
KeyName[i] = _T('\0');
if (*pScan == _T('\\')) pScan++;
/* Преобразовать предопределенное имя раздела в соответствующий HKEY.*/
for (i = 0; PreDefKeyNames [i] != NULL && _tcscmp(PreDefKeyNames[i], KeyName) != 0; i++);
hKey = PreDefKeys[i];
RegOpenKeyEx(hKey, pScan, 0, KEY_READ, &hNextKey);
hKey = hNextKey;
ok = TraverseRegistry(hKey, argv[KeyIndex], NULL, Flags);
return ok ? 0 : 1;
}
BOOL TraverseRegistry(HKEY hKey, LPTSTR FullKeyName, LPTSTR SubKey, LPBOOL Flags)
/*Совершить обход разделов и подразделов реестра, если задан параметр –R.*/
{
HKEY hSubK;
BOOL Recursive = Flags[0];
LONG Result;
DWORD ValType, Index, NumSubKs, SubKNameLen, ValNameLen, ValLen;
DWORD MaxSubKLen, NumVals, MaxValNameLen, MaxValLen;
FILETIME LastWriteTime;
LPTSTR SubKName, ValName;
LPBYTE Val;
TCHAR FullSubKName[MAX_PATH + 1];
/* Открыть дескриптор раздела. */
RegOpenKeyEx(hKey, SubKey, 0, KEY_READ, &hSubK);
/* Определить максимальный размер информации относительно раздела и распределить память. */
RegQueryInfoKey(hSubK, NULL, NULL, NULL, &NumSubKs, &MaxSubKLen, NULL, &NumVals, &MaxValNameLen, &MaxValLen, NULL, &LastWriteTime);
SubKName = malloc (MaxSubKLen+1); /* Размер без учета завершающего нулевого символа. */
ValName = malloc(MaxValNameLen+1); /* Учесть нулевой символ. */
Val = malloc(MaxValLen); /* Размер в байтах. */
/* Первый проход: пары "имя-значение". */
for (Index = 0; Index < NumVals; Index++) {
ValNameLen = MaxValNameLen + 1; /* Устанавливается каждый раз! */
ValLen = MaxValLen + 1;
RegEnumValue(hSubK, Index, ValName, &ValNameLen, NULL, &ValType, Val, &ValLen);
DisplayPair(ValName, ValType, Val, ValLen, Flags);
}
/* Второй проход: подразделы. */
for (Index = 0; Index < NumSubKs; Index++) {
SubKNameLen = MaxSubKLen + 1;
RegEnumKeyEx(hSubK, Index, SubKName, &SubKNameLen, NULL, NULL, NULL, &LastWriteTime);
DisplaySubKey(FullKName, SubKName, &LastWriteTime, Flags);
if (Recursive) {
_stprintf(FullSubKName, _T("%s\\%s"), FullKName, SubKName);
TraverseRegistry(hSubK, FullSubKName, SubKName, Flags);
}
}
_tprintf(_T("\n"));
free(SubKName);
free(ValName);
