[AleX]

Может кто подскажет каким способом можно прочитать значение параметра регистра Windows NT отлиное от строкового например reg_binary? Стандартная функция VLisp бессильно выдает что то вроде (3) или (5).
Возможно есть пути извлечения значения внешними утилитами (например VBA) и передачи в Лисп

[AleX]

приношу извинения за опечатку "отличного от"

[Arkady]

Есть класс для VB (писал не сам,работает прекрасно)
Куда посылать.

[AleX]

Попробуйте сюда: molodechnomebel@tut.by

[Arkady]

Послал.

[{Smirnoff}]

dos_regset и dos_regget из DosLIB. Только записываемое значение не надо в кавычки заключать...

[Perezz!!]

AleX ->

приношу извинения за опечатку "отличного от"

Извинения не принимаются. На этот случай есть кнопка "Правка".

[AleX]

Arkady->Спасибо за посылочку. Бегло посмотрев можно сказать, что этот класс - действителльно КЛАСС!!! и не только для чтения.

Осталась одна задачка как данные передать в Лисп.
Хотя возможно где-то существует похожий ARX.

Fantomas->
Как я понял речь идет о чтении строкового параметра. А вопрос звучал об извлечении существующего BINARY параметра. Кстати Doslib даже и не пытается это делать возвращает nil.

[{Smirnoff}]

>Alex
Попробывал с версией 6.1 действительно NIL...

А я ведь не зря так уверенно написал. Очень хорошо помню что играясь с одной из более старых версий я был сильно обрадован этой возможностью. Даже интересно теперь стало... Попробую разобратся в какой версии это работало.

[Arkady]

>Alex
Возьми изменение на:
www.rdvsystems.com/tmp/erase/vbreg.zip
Там есть пример на лиспе.

[AleX]

>Arkady. Спасибо за пример.
Есть все-таки еще один вопросик:
Возможно ли организовать обращение к регистру используя dll API напрямую через Vlisp?

[Arkady]

Вроде пример был.

Код:

[Выделить все]

(defun c:q5()
   (setq myob (vlax-create-object  "VBRegistry.CRegistry"))
   (print myob)
   (setq res (vlax-invoke-method myob 'cGetAppRegValue "HKEY_LOCAL_MACHINE" "SOFTWARE\\RDV\\Applications 2004\\Rapid Design Visualization" "REG_DWORD" "AppKey" -999)) 
   (print (vlax-variant-value  res))
   (setq myob (vlax-release-object  myob))
   (princ) 
)

где VBRegistry - это DLL с классом CRegistry - использует API

[AleX]

Попробывал из VLisp данным методом извлекать различные виды параметров:
SZ вроде без промблемм
DWORD если значение не очень большое
BINARY бывает что-то извлекает но отражаются в виде ....??.???? ?????...

[Arkady]

Попробуй изменить функцию cGetAppRegValue так, что бы она всегда озвращала строку.То есть все преобразоания типов сделай на VB.