Работа с реестром

[-=alp=-]

Уважаемые эксперты.
Я создаю паку в реестре «.111111», используя следующий код.

Dim hKey As Long

secattr.nLength = Len(secattr)
secattr.lpSecurityDescriptor = 0
secattr.bInheritHandle = True
RegDeleteKey HKEY_CLASSES_ROOT, ".111111"
retval = RegCreateKeyEx(HKEY_CLASSES_ROOT, ".111111", 0, "", 0, KEY_ALL_ACCESS, secattr, hregkey, neworused)
If retval <> 0 Then
Debug.Print "Error opening or creating registry key -- aborting."
End
End If
Filename = "Uplay.File"
stringbuffer= Filename
hKey = hregkey
retval = RegSetValueEx(hregkey, "", 0, REG_SZ, stringbuffer, Len(stringbuffer))
retval = RegCloseKey(hregkey)
RegOpenKeyEx HKEY_CLASSES_ROOT, ".111111-", 0, KEY_WRITE, hKey
RegDeleteValue hKey, ""
RegCloseKey hKey
RegOpenKeyEx HKEY_CLASSES_ROOT, ".111111", 0, KEY_WRITE, hKey
RegSetValueEx hKey, "", 0, REG_SZ, Filename, Len(Filename)
RegCloseKey hKey

А у меня получается значение замес-то Uplay.File значение типа Д и каждый раз разное

В чём я ошибся ?

Я так понял, я не могу указать полный доступ к этой папке, т.е. указываю только чтение. У меня Windows XP.
_______________________________
Windows как жена с ней плоха, а без неё ещё хуже.

[RayShade]

Мне так кажется, что ты забываешь прибавлять симовл завершеия строки в конец строк, которые пишешь - chr(0)

[-=alp=-]

Ели создавать значения в папках созданных windows то там всё нормально, работает, а которые созданы мной нет, и chr$(0) не нужен

_______________________________
Windows как жена с ней плоха, а без неё ещё хуже.