BEST logo логотип компании БЭСТ - программы для бизнеса ПРОДАЖИ
+7 (991) 312-04-37
trade@bestnet.ru
ПОДДЕРЖКА
+7 (495) 775-66-76
consult@bestnet.ru
СКАЧАТЬ
Обновления
Дистрибутивы
Авторизация

Логин:
Пароль:
Забыли свой пароль?
Регистрация
ВАШ ВОПРОС

Доступ к Личному кабинету закрыт!
Как получить доступ?


Главная  / Поддержка  / Форум  / Публичные форумы  / Программирование приложений  / Доступ к реестру из пользовательской программы

Форум

Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Доступ к реестру из пользовательской программы
 
Возможен ли доступ к системному реестру из пользовательского приложения.
Необходимо проверить наличие ветки реестра?
С уважением,
Ильин Евгений
 
Цитата
itman пишет:
Возможен ли доступ к системному реестру из пользовательского приложения.

Необходимо проверить наличие ветки реестра?

Примерно так:
#include "xbpreg.ch"
#define BESTREGKEY "SOFTWARE\BEST\BEST5\"

cBestRegKey:="SOFTWARE\BEST\BEST5\34"
hKey := 0
if REGOPENKEYEX(HKEY_LOCAL_MACHINE,cBestRegKey, 0, KEY_READ, @hKey) != 0 //только на чтение
ErrorMsg('Не удалось открыть ключ реестра ' + cBestRegKey)
return .F.
endif
nVerSP:=GetRegistryValue("SP") //установленный SP

static function GetRegistryValue(vName)
local vtype := 0, vdata := 0, vcbdata := 0
REGQUERYVALUEEX(hKey, vName, 0, @vtype, @vdata, @vcbdata)
DO CASE
CASE vtype == REG_SZ
vData := SUBSTR( vData, 1, vcbdata - 1 )
CASE vtype == REG_DWORD
vData := BIN2L( vData )
ENDCASE
return vdata
 
ОК!
Спасибо.
С уважением,
Ильин Евгений
 
Отлично!
Спасибо.
Страницы: 1
Читают тему (гостей: 1)