[RESOLVED] Registy Setvalue Works in 2k/xp Not in 9X

[Fazi]

Hello !

Public Sub SearchString()
regkey = "Software\My Software"
strname = Form1.text1.Text
lngresult = RegOpenKeyEx(HKEY_CURRENT_USER, regkey, REG_SZ, keyallaccess, path)
If lngresult = 0 Then
   lngresult=RegSetValueEx (path, "Search Now", 0, REG_SZ, ByVal strname, Len(strname)
End If
lngresult = RegCloseKey(path)
Exit Sub

Now assume Text1 has no text. A blank text box.

when we execute SearchString() the Strname will be > strname=""

Problem is :

RegSetValueEx returns 87 in Windows98Se. So the function fail to set the value data.

RegSetValueEx returns 0 successfully on XP and 2K.

Friends! What is the problem?

[Joacim Andersson]

The problem is that if strname is an empty string then Len(strname) would be 0. Which means that you want to store 0 bytes of a REG_SZ type, but that type is null terminated and the last argument should be the size of the string including the terminating null character. So try to add 1 to Len(strname).

[schoolbusdriver]

strname = Form1.text1.Text

strname = Form1.text1.Text & vbNullChar  'Note how a null character must be appended to the string.

[Joacim Andersson]

That is not really necassary since VB will convert the string you pass to a null terminating string. However, as I already mentioned RegSetValueEx requires to get the length of the string including the terminating null character so you can simply add 1 to the last argument.

[Fazi]

Hai jacim and schoolbus driver !!

Jacim i tried your solution.

lngresult=RegSetValueEx (path, "Search Now", 0, REG_SZ, ByVal strname, Len(strname) + 1)

Result : 98SE Shows NO MERCY. .87 Returned
if i debug.print strptr(strname) in 98se the debug windw out puts 0. so strname uses no memory. if iam corrct.

'thanks bush mobile for strptr, it is somthing new for me..

So i tried this way

strname = Form1.text1.Text
if strname="" then strname=chr$(0)
....
....
   lngresult=RegSetValueEx (path, "Search Now", 0, REG_SZ, ByVal strname, Len(strname) + 1)
....
...

98SE Is happy and returned 0 :-)

the debug.print shown strptr(strname) somthing assume like 1909809 (not remember the numbers exactly. i am in xp now)
so i assume strname uses memory.

So jacim and others... Shall i go ahead using this way ?

[schoolbusdriver]

So jacim and others... Shall i go ahead using this way ?

Yes, I think so. There is another possibility that will remove the "Search Now" key and its value if you do not need it:-

regkey = "Software\My Software"
   strname = Form1.text1.Text
   lngresult = RegOpenKeyEx(HKEY_CURRENT_USER, regkey, REG_SZ, KEYALLACCESS, path)
   
   If Trim(strname) = "" Then
      lngresult = RegDeleteValue(path, "Search Now")
   Else
      lngresult = RegSetValueEx(path, "Search Now", 0, REG_SZ, ByVal strname, Len(strname) + 1)
   End If
   
   lngresult = RegCloseKey(path)

[Fazi]

Hai jacim and schoolbusdriver

Thank you for the contributions !!!