获取windows用户信息.txt

Vfp 文档 一些经典编程文章 可供初学者学习编程时使用

Visual FoxPro 3.0中获取WINDOWS用户信息

    在使用WINDOWS应用软件时我们可能都会注意到在应用软件的帮助菜单中有一条名为“关于……”的菜单，点击它后会出现一个“关于……”的窗口。在窗口中有一项是“本软件的使用权属于”，下面是安装应用软件或WINDOWS时输入的用户名和用户单位。这些信息在WINDOWS 3.X中存储于WIN.INI，在WINDOWS 95或WINDOWS NT中则存储于系统注册表中，在Visual FoxPro 3.0中我们也可以通过访问WIN.INI　或系统注册表来获取这一信息定制自己的版权声明窗口。获取用户信息源程序如下：

Set Talk off

Clear

DECLARE INTEGER RegOpenKeyEx IN Win32API INTEGER nKey,；

STRING @cSubKey, INTEGER nReserved,；

INTEGER nAccessMask, INTEGER @nResult

DECLARE INTEGER RegQueryValueEx IN Win32API INTEGER nKey,；

STRING cValueName, INTEGER nReserved, INTEGER @nType,；

STRING @cBuffer, INTEGER @nBufferSize

DECLARE INTEGER RegCloseKey IN Win32API INTEGER nKey

DECLARE INTEGER GetProfileString IN Win32API AS GetProStr；

String cSection, String cKey, String cDefault,；

String @cBuffer, Integer nBufferSize

UserName = ""

UserCorp = ""

lnResult = 0

Buffer = SPACE(128)

BufferSize = LEN(Buffer)

IF UPPER(OS()) = "WINDOWS NT" OR UPPER(OS()) = "WINDOWS 4"

lcKey = IIF("NT" $ UPPER(OS()), "Software\Microsoft\Windows；

NT\CurrentVersion",；

"Software\Microsoft\Windows\CurrentVersion")

lnError = RegOpenKeyEx(-2147483646,lcKey , 0, 1, @lnresult)

IF lnError = 0

LnType = 0

Buffer = SPACE(128)

BufferSize = LEN(Buffer)

LnError = RegQueryValueEx(lnresult, "Registeredowner",；

0, @lnType, @Buffer, @BufferSize)

IF lnError = 0 AND Buffer <> CHR(0)

UserName = LEFT(Buffer, BufferSize - 1)

ENDIF

lnType = 0

Buffer = SPACE(128)

BufferSize = LEN(Buffer)

lnError = RegQueryValueEx(lnresult,；

"RegisteredOrganization", 0, @lnType,；

@Buffer, @BufferSize)

IF lnError = 0 AND Buffer <> CHR(0)

UserCorp = LEFT(Buffer, BufferSize - 1)

ENDIF

ENDIF

=RegCloseKey(lnResult)

ELSE

RetVal = GetProStr("MS USER INFO", "DEFNAME", "",；

@Buffer, BufferSize)

UserName = LEFT(Buffer, RetVal)

RetVal = GetProStr("MS USER INFO", "DEFCOMPANY", "",；

@Buffer, BufferSize)

UserCorp = LEFT(Buffer, RetVal)

ENDIF

@ 10 ,10 SAY "用户姓名：" + UserName

@ 12 ,10 SAY "用户单位："+ UserCorp

Set Talk On

    以上程序在Visual FoxPro 3.0和WINDOWS 95中运行通过。

返回