Discussion in 'Code Samples & Tips' started by alfcen, Oct 7, 2007.

  1. alfcen

    alfcen Well-Known Member Licensed User

    Hello all,
    This little routine will retrieve the Owner name registered in the Pocket PC in
    Settings/Owner Information. Requires the Registry library.

    Sub Globals
    Dim buff(0As Byte
    End Sub

    Sub App_Start
    'Registry object is named 'reg'
    End Sub

    Sub GetOwnerName
    If cPPC = false Then Return               'this is not for the desktop
      Dim m
    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))
    Return m
    End Sub
  1. This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
    By continuing to use this site, you are consenting to our use of cookies.
    Dismiss Notice