При добавлении в реестр нового имени в значение заносится .

[max_spbti]

При добавлении в реестр нового имени в значение заносится какая то несуразится
тип REG_SZ
использую ф-ию
RegSetValueEx(hkey, Имя, 0, (1), Значение, CLng(Len(Зн ачение) + 1))

[Ducis]

Вот готовая функция для записи строкового параметра в реестр:

Public Function RegSetValueSave(Root As Long, SubKey As String, Key As String, _
value As String) As Boolean
'Установка значения текстового ключа, после перезагрузки сохранится
Dim hKey As Long
Dim sa As SECURITY_ATTRIBUTES
Dim nDisp As Long
RegSetValueSave = False
'открываем или создаем раздел
If Not RegCreateKeyEx(Root, SubKey, 0, vbNullString, REG_OPTION_NON_VOLATILE, _
KEY_ALL_ACCESS, sa, hKey, nDisp) Then
'пишем текстовые (ResSz) данные
If RegSetValueEx(hKey, Key, 0, RegSZ, value, Len(value) + 1) = 0 Then RegSetValueSave = True
RegCloseKey hKey 'закрываем раздел
End If
End Function
'пример использования:
'устанавливаем имя компа
'bUser = RegSetValueSave(HKEY_LOCAL_MACHINE, "Software\Microsoft\Windows\CurrentVersion", _
'"RegisteredOwner", "Darth Vader")

[max_spbti]

Вот готовая функция для записи строкового параметра в реестр:

Public Function RegSetValueSave(Root As Long, SubKey As String, Key As String, _
value As String) As Boolean
'Установка значения текстового ключа, после перезагрузки сохранится
Dim hKey As Long
Dim sa As SECURITY_ATTRIBUTES
Dim nDisp As Long
RegSetValueSave = False
'открываем или создаем раздел
If Not RegCreateKeyEx(Root, SubKey, 0, vbNullString, REG_OPTION_NON_VOLATILE, _
KEY_ALL_ACCESS, sa, hKey, nDisp) Then
'пишем текстовые (ResSz) данные
If RegSetValueEx(hKey, Key, 0, RegSZ, value, Len(value) + 1) = 0 Then RegSetValueSave = True
RegCloseKey hKey 'закрываем раздел
End If
End Function
'пример использования:
'устанавливаем имя компа
'bUser = RegSetValueSave(HKEY_LOCAL_MACHINE, "Software\Microsoft\Windows\CurrentVersion", _
'"RegisteredOwner", "Darth Vader")

дык я это и написал только кодировка непонятноя получается в значении

[Ducis]

дык я это и написал только кодировка непонятноя получается в значении

А система у тебя какая?

[max_spbti]

дык я это и написал только кодировка непонятноя получается в значении

А система у тебя какая?

XP

[Ducis]

Я так и подумал, что XP. Она ж хочет только Юникод, а ВБ пишет туда АНСИ. Собака, ИМХО, здесь.