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);

 free(Val);

 RegCloseKey(hSubK);

 return TRUE;

}

BOOL DisplayPair(LPTSTR ValueName, DWORD ValueType, LPBYTE Value, DWORD ValueLen, LPBOOL Flags)

/* Функция, отображающая пары "имя-значение". */

{

 LPBYTE pV = Value;

 DWORD i;

 _tprintf(_T("\nValue: %s = "), ValueName);

 switch (ValueType) {

 case REG_FULL_RESOURCE_DESCRIPTOR: /* 9: описание оборудования. */

 case REG_BINARY: /* 3: Любые двоичные данные. */

for (i = 0; i < ValueLen; i++, pV++) _tprintf (_T (" %x"), *pV);

break;

 case REG_DWORD: /* 4: 32-битовое число. */

_tprintf(_T ("%x"), (DWORD)*Value);

break;

 case REG_MULTI SZ: /*7: массив строк, завершающихся нулевым символом.*/

 case REG_SZ: /* 1: строка, завершающаяся нулевым символом. */

_tprintf(_T("%s"), (LPTSTR)Value);

break;

 /* … Несколько других типов … */

 }