[eVB] Scrivere nel registro

[Berello]

Sapete dirmi dove sbaglio?
Il problema è questo: quando vado a scrivere nel registro, la parola viene tagliata... Perché?
Non viene tagliata sempre nello stesso punto; a volte lo i primi 8 caratteri, a volte solo i primi 11, ecc.

Ecco il progetto di eMBedded Visual Basic:

FORM1
Option Explicit

Private Sub Form_OKClick()
App.End
End Sub

Private Sub Command1_Click()
Call Registro(HKEY_CLASSES_ROOT, "jpegimage\Shell\Open\Command", "", Text1.Text)
End Sub

MODULE1
Option Explicit

Declare Function RegCreateKeyEx Lib "Coredll" Alias "RegCreateKeyExW" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal Reserved As Long, ByVal lpClass As String, ByVal dwOptions As Long, ByVal samDesired As Long, lpSecurityAttributes As Long, phkResult As Long, lpdwDisposition As Long) As Long
Declare Function RegCloseKey Lib "Coredll" (ByVal hKey As Long) As Long
Declare Function RegSetValueEx Lib "Coredll" Alias "RegSetValueExW" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, ByVal lpData As String, ByVal cbData As Long) As Long ' Note that if you declare the lpData parameter as String, you must pass it By Value.

Public Const HKEY_CLASSES_ROOT = &H80000000
Public Const HKEY_CURRENT_USER = &H80000001
Public Const REG_SZ = 1
Public Const REG_DWORD = 4

Public Sub Registro(hKey As Long, strPath As String, strValue As String, strData As String)
Dim KeyHand As Long
Dim R As Long
R = RegCreateKeyEx(hKey, strPath, 0, vbNullString, 0, 0, 0, KeyHand, 0)
R = RegSetValueEx(KeyHand, strValue, 0, REG_SZ, strData, Len(strData))
R = RegCloseKey(KeyHand)
End Sub


Vi ringrazio!
Berello

[Berello]

UP

[Berello]

Nessuno sa dirmi dov'è l'errore?
Dovete solo controllare dove sbaglio, per favore. Consideratelo come se fosse normale Visual Basic, d'altra parte penso che sia quasi uguale!
Come si fa a scrivere nel registro di sistema???

[Mabi]

Originariamente inviato da Berello
Come si fa a scrivere nel registro di sistema???

Io mi sono trovato bene con il modulo che trovi qui.

[Berello]

Il fatto è che Windows CE non include tutte le API presenti in Windows classico. Non posso usare un progetto per VB, anche se il codice è quasi uguale.
Le funzioni per Windows CE hanno qualche parametro in più, mi sembra.
Dando un occhiata al codice che ho postato, non riuscite a vedere se sbaglio qualcosa?
Vi ringrazio ancora, soprattutto Mabi...