OwnerInfo for Smartphone

[kshetarpal]

I tried to used the Owner info file for smartphone and ran into problems. How does one add Objects since the Visual IDE does not allow it. I added the library but do not know how to add the object.

The First line Reg.New1 can not be added. How does one do this?
Thanks for your help.
Amit

The code is below:


Sub App_Start
Reg.New1 'Registry object is named 'reg'
Main.Show
End Sub


Sub File_Click

If CPPC = false Then Return 'this is not for the desktop

Reg.RootKey(Reg.rtCurrentUser)
buff() =Reg.GetValue("ControlPanel\Owner\","Owner")
For i = 0 To ArrayLen(buff()) -1 Step 2
If buff(i)=0 Then Exit 'Chr(0) separates the name from other owner entries
m = m & Chr(buff(i))
Next

'Msgbox ("Owner name is "& m)
End Sub

[specci48]

Tools > Add Object > Registry

... and type Reg into the prompted dialog window.


specci48

[kshetarpal]

For some reason the ADDObject under TOOLs is grayed out and nonfunctional. Why would that be?

[kshetarpal]

I found out that I have to add DLL file in both Device and desktop to add the object.
After I compile the project and transfer it to the device, I get the following error:
"Invalid CastException"

[Erel]

You should add RegistryDesktop to the desktop and RegistryDevice to the device.
This example may help you: Reading com ports information from the registry

[kshetarpal]

Thanks for the information, I eventually figured that out. Now back to the real question, Get Owner Info Working on Smartphone.
I managed to compile the project and transfer it to the device, I get the following error:
"Invalid CastException"

[Erel]

This key is not available on all devices.
New devices store this information under: CurrentUser\ControlPanel\Owner\Name
The format is different as well (simple string).
Here is a very nice registry editor: http://www.phm.lu/Products/Smartphone/RegEdit/

[kshetarpal]

I checked the registry value with the program you mentioned. And it is indeed "CurrentUser\Control Panel\Owner\Name". However with this change I get an error message:
"An error occured on SubOwner_Click.
Line Number 0.
Error Description: An error occurred retrieving the registry key"

[Erel]

What code are you using to read the registry?
Try this:

  Reg.RootKey(Reg.rtCurrentUser)
msgbox(Reg.GetValue("ControlPanel\Owner\","Name"))

[kshetarpal]

Thank you very much. The code you suggest worked.