Read Windows Registry

[BubbaBBQ]

Okay, I've searched the forum, but no luck. Maybe I didn't hold my tongue right. Surely, this has been discussed and cussed.

Using a form, I need to read the value in the following registry location.

\HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Logon User Name

This will provide the logged in user name. Then the user clicks the STORE button, I need to store this value in the record with the rest of the fields the user typed in. I've got the date and time automagically storing. The book I'm referencing tells me that the GetSetting function will not read the Registry database in this branch.

Any suggestions?

Thanks much.

Bubba

 

[dk]

Hi,

Reading a value from the registry requires Windows API functions and registry functions are quite involved. See here for an example.

If you just want to retrieve the Windows username then you could use the GetWindowsName function from below.

Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
(ByVal lpBuffer As String, _
nSize As Long) As Long

Function GetWindowsName() As String
    Dim lpBuff As String * 255
    Dim ret As Long, UserName As String

    ret = GetUserName(lpBuff, 255)
    GetWindowsName = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)
End Function

 

[BubbaBBQ]

Thanks, I'll give it a try.

Bubba