Форум

RSS

Доступ к реестру из пользовательской программы

itman Administrator Сообщений: 1003 Регистрация: 15.11.2007 БЭСТ-5 v3.4 SP крайний	#1 20.01.2012 14:34:22 Возможен ли доступ к системному реестру из пользовательского приложения. Необходимо проверить наличие ветки реестра? С уважением, Ильин Евгений

Александр Титов

Administrator

Сообщений: 810 Регистрация: 29.10.2007

Москва, Компания "БЭСТ"

20.01.2012 19:14:03

Цитата
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

itman Administrator Сообщений: 1003 Регистрация: 15.11.2007 БЭСТ-5 v3.4 SP крайний	#3 22.01.2012 12:51:23 ОК! Спасибо. С уважением, Ильин Евгений

Николай Мельников User Сообщений: 1 Регистрация: 14.02.2012	#4 14.02.2012 15:39:24 Отлично! Спасибо.

Читают тему (гостей: 1)