Germancho
Programmer
- Jul 9, 2003
- 36
I´m doing a generic accounting application and I need to retrieve the company name and the person`s name from the window registry and then show it in the intro form. How can I do that?
Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
*usage example
STORE "" TO lcRegName, lcRegCompany
= get_syslicense(@lcRegName, @lcRegCompany)
...
* Program....: GET_SYSLICENSE.PRG
* Version....: 1.0
* Author.....: ** Richard G Bean **
* Date.......: April 2, 1999
* Compiler...: Visual FoxPro 05.00.00.0415 for Windows
PARAMETERS p_cRegName, p_cRegCompany
LOCAL lcRegfile, oReg
STORE "" TO p_cRegName, p_cRegCompany
m.lcRegfile = "REGISTRY"
SET PROCEDURE TO (m.lcRegfile) ADDITIVE
oReg = CreateObject("Registry")
oReg.GetRegKey("DefName",@p_cRegName,;
"Software\Microsoft\MS Setup (ACME)\User Info",oReg.nUserKey)
oReg.GetRegKey("DefCompany",@p_cRegCompany,;
"Software\Microsoft\MS Setup (ACME)\User Info",oReg.nUserKey)
RELEASE PROC (m.lcRegfile)
IF EMPTY(p_cRegName)
p_cRegName = "(Unknown)"
ENDIF && EMPTY(p_cRegName)
IF EMPTY(p_cRegCompany)
p_cRegCompany = "(Unknown)"
ENDIF && EMPTY(p_cRegCompany)
RETURN .T.
*!* EOP: GET_SYSLICENSE.PRG