Отправлено: 09.07.10 09:55. Заголовок: Почему нет ключа в реестре ?

Всем привет !
Возвращаюсь к предыдущей теме: http://clipper.borda.ru/?1-1-0-00000070-000-20-0-1277637263<\/u><\/a>
Но так как это не касается "Серийного номера", решил открыть новую тему !

Есть программа считывания ключа реестра (ключи взял из программы Филатова MiniGui SAMPLES\ADVANCED\SYSINFO\ )Скрытый текст

/* Registry related values Winreg.ch */ /* Help for xHarbour */ #define HKEY_LOCAL_MACHINE 0 #define HKEY_CLASSES_ROOT 1 #define HKEY_CURRENT_USER 2 #define HKEY_CURRENT_CONFIG 3 #define HKEY_LOCAL_MACHINE 4 #define HKEY_USERS 5 FUNCTION MAIN() LOCAL lWinNT := IsWinNT() CLEAR SCREEN ? " Test functions CPU through the register for [x]Harbour." ? PADC("",70,"-") ? " " + Version() + " - " + hb_compiler() ? ? " " + MyCPUName() + " " + IF(lWinNT, "[~", "") + MyGetCPUSpeed() + " MHz" + IF(lWinNT, "]", "") ? ; ? ; ? ; ? wait RETURN NIL *--------------------------------------------------------* Function IsWinNT() RETURN OS_ISWINNT() *--------------------------------------------------------* Function MyCPUName() LOCAL lWinNT := IsWinNT(), cName := "" IF lWinNT /*? GetRegistry( HKEY_LOCAL_MACHINE, "HARDWARE\DESCRIPTION\System\CentralProcessor\0", "ProcessorNameString" ) cName := GetRegistry( HKEY_LOCAL_MACHINE, "HARDWARE\DESCRIPTION\System\CentralProcessor\0", "ProcessorNameString" ) ? VALTYPE(cName)*/ cName := Ltrim( GetRegistry( HKEY_LOCAL_MACHINE, "HARDWARE\DESCRIPTION\System\CentralProcessor\0", "ProcessorNameString" ) ) ELSE cName := "None CPU for Win9x" ENDIF cName := STRTRAN(cName," ") return cName *--------------------------------------------------------* Function MyGetCPUSpeed() LOCAL lWinNT := IsWinNT(), cName, n := 0 IF lWinNT n := GetRegistry( HKEY_LOCAL_MACHINE, "HARDWARE\DESCRIPTION\System\CentralProcessor\0", "~MHz" ) cName := LTrim( Str( n+1 ) ) ELSE cName := "None CPUSpeed for Win9x" ENDIF return cName

На многих ХР работала без проблем, под одним 2000 только вылетела !
Но не все гладко оказывается... На одном ХР тоже вылетела. Вот этот комп:
<\/u><\/a>

Полез в реестр и там действительно нет этого ключа:
<\/u><\/a>

Как такое может быть ?

 Отправлено: 09.07.10 10:17. Заголовок: Andrey пишет: Как т..

Andrey пишет:

цитата:

Как такое может быть ?

А что возвращает (или падает прога) ?
GetRegistry( HKEY_LOCAL_MACHINE, "HARDWARE\DESCRIPTION\System\CentralProcessor\0", "ProcessorNameString")

 Отправлено: 09.07.10 13:03. Заголовок: Dima пишет: А что в..

Dima пишет:

цитата:

А что возвращает (или падает прога) ?

Прога падает !
Потому что возвращается NIL !
Не тот тип и выпадает.....

 Отправлено: 09.07.10 13:16. Заголовок: Andrey пишет: Потом..

Andrey пишет:

цитата:

Потому что возвращается NIL

 
 Blabla:=GetRegistry( HKEY_LOCAL_MACHINE, "HARDWARE\DESCRIPTION\System\CentralProcessor\0", "ProcessorNameString")  
   if Blabla==NIL 
 ? "LOL - процессор спёрли ;)" 
  
   endif 
 

 Отправлено: 09.07.10 13:35. Заголовок: Это я примерно догад..

Это я примерно догадывался как сделать !

А почему нет ЭТОГО КЛЮЧА ?
Стоит же сервис-пак 2 !

 Отправлено: 09.07.10 13:42. Заголовок: Andrey Может удалил..

Andrey
Может удалил кто то , может какой то хитрый твикер заюзали , может вирь или троян чего натворил , может
просто Винда упала или сбой какой был и реестр слегка "облегчился"