|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Узнать и сравнить параметр реестра
подскажите что не так, пытаюсь получить значения параметра указаного в реестре, для того что бы сравнить его. Но не могу получить правильный параметр
Код:
var key:hkey; Handle: HKEY; Res: LongInt; DataType, DataSize: DWORD; begin RegOpenKeyEx(HKEY_LOCAL_MACHINE, PChar('SOFTWARE\Skype\Installer'), 0, KEY_QUERY_VALUE, Handle); Label1.Caption:=IntToStr(RegQueryValueEx(Handle, PChar('BINGSRCHFF'), nil, @DataType, nil, @DataSize)); RegCloseKey(Handle); end; |
#2
|
||||
|
||||
Код:
var LKey: HKEY; DataType: DWORD; DataSize: DWORD; i: Integer; begin if RegOpenKeyEx(HKEY_LOCAL_MACHINE, PChar('SOFTWARE\Skype\Installer'), 0, KEY_QUERY_VALUE, LKey)<>ERROR_SUCCESS then RaiseLastOSError; try DataSize:=SizeOf(Integer); if RegQueryValueEx(LKey, PChar('BINGSRCHFF'), nil, @DataType, @i, @DataSize)<>ERROR_SUCCESS then RaiseLastOSError; Label1.Caption:=IntToStr(i); finally RegCloseKey(LKey); end; end; Пишу программы за еду. __________________ |
Этот пользователь сказал Спасибо NumLock за это полезное сообщение: | ||
HTTqp (08.11.2014)
|
#3
|
|||
|
|||
NumLock , благодарю, все работает отлично)
|