Hi Harry
I hide the number that the user entered (which I gave the user) somewhere on the PDA in a file. But this the user does not know.
When the program starts, it reads the Device ID and applies this to a formulae that is in the program. The program then takes this number and compares it to the number that is stored in the file.
If there is no number in the file or the numbers do not match, the program will ask for a registration number before it will continue.
If the numbers match, the program continues.
You must watch out, some PDA's return letters as well (i.e. Workabout from Psion). What I do is to convert the letters to ASCII characters before entering them in my formulae.
Label14.Text=SubString(Hardware1.GetDeviceID,0,28)
'label14.Text="324138331122334455"
'label14.Text="FF08FFF7-FF04-46CF-"
NewNo=""
For i=0 To StrLength(Label14.Text)-1
If IsNumber(SubString(Label14.Text,i,1))=True Then
TempNo=SubString(Label14.Text,i,1)
NewNo=NewNo & TempNo
Else
TempNo=Asc(SubString(Label14.Text,i,1))
NewNo=NewNo & TempNo
End If
Next
I hope this will help.
Regards
Michael