Запись информации в реестр

[VikHion]

Доброго времени суток. Проблема следующая:
Windows XP, Office XP, Word

‘Имеется следующая декларация API функции:

Declare Function RegSetValue Lib "advapi32.dll" Alias _
"RegSetValueExA" (ByVal hKey As Long, _
ByVal lpValueName As String, ByVal Reserved As Long, _
ByVal dwType As Long, lpData As Any, _
ByVal cbData As Long) As Long

‘Константы:
Public Const HKEY_CURRENT_USER = &H80000001
Public Const ERROR_SUCCESS = 0&
Public Const REG_SZ = 1

‘Вызов функции:
If RegCreateKey(HKEY_CURRENT_USER, ReestrFolderPath, NeuerSchlussel) = _
ERROR_SUCCESS Then 'RegCreateKey декларацию не привожу
If RegSetValue(hKey, ReestrParametrOne, REG_SZ, ByVal 0&, ByVal strNameDatabase, Len(strNameDatabase)) _
= ERROR_SUCCESS Then
ReestrQueryAdd = True
Else
ReestrQueryAdd = False
……………………..

Папка создается, параметры нет, RegSetValue возвращает 6, а не 0.
Если кто знает что я делаю не так, буду благодарен за консультацию.

[san*]

RegSetValue(hKey, ReestrParametrOne, REG_SZ, ByVal 0&, ByVal strNameDatabase, Len(strNameDatabase))

По моему проблема в ByVal strNameDatabase Len(strNameDatabase). Попробуй перед этим написать
strNameDatabase= string$(strNameDatabase,vbNullChar)

[san*]

RegSetValue(hKey, ReestrParametrOne, REG_SZ, ByVal 0&, ByVal strNameDatabase, Len(strNameDatabase))

По моему проблема в ByVal strNameDatabase Len(strNameDatabase). Попробуй перед этим написать
strNameDatabase= string$(strNameDatabase,vbNullChar)

Извини, что-то я напутал
strNameDatabase=strNameDatabase & vbNullChar

[VikHion]

Спасибо за ответ, правда не сосвсем понял зачем нужно добавляьть Null в конец строки, он там и так кажется есть. Но попробовал. Ругается что Invalid use Null и т.д Может дело в ByVal Reserved As Long. Назначение этого параметра я просто не знаю, но он явно уже не Reserved. Если кто знает откликнитесь.

[san*]

Решил сам попробывать. Посмотри программу, у меня на винде 2000 работает в VB. На VBA думаю будет аналогично.

[VikHion]

Ты был прав, ошибка с передачей параметров у меня в программе. За мной виртуальное пиво. Все прекрасно работает, а ByVal Reserved As Long совершенно не при чем. Ксати, на форуме "Популярные вопросы"есть очень неплохой материал по этой теме. Автор Areh. Спасибо. Тема закрыта