在VFP中调用系统用户及单位名称

来源： 作者： 出处：综艺读书 2006-10-11 

关 键 词：注册表  windows nt  windows 95  os  access  

LOCAL lcBuffer, ;
lnBufferSize, ;
lcRetVal, ;
lnReserved, ;
lnResult, ;
lnError, ;
lnType, ;
lcKey, ;
lcUser, ;
lcCompany
#DEFINE ERROR_SUCCESS 0

#DEFINE HKEY_LOCAL_MACHINE -2147483646
#DEFINE KEY_WIN4_MSINFO "Software\Microsoft\Windows\CurrentVersion"
#DEFINE KEY_QUERY_VALUE 1
*-- 注册表函数
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
*-- Windows 3.X API 函数
DECLARE INTEGER GetProfileString IN Win32API AS GetProStr ;
String cSection, String cKey, String cDefault, ;
String @cBuffer, Integer nBufferSize 　
*-- 初始化DLL调用变量
STORE 0 TO lnReserved, lnResult, lnType
lcBuffer = SPACE(128)
lnBufferSize = LEN(lcBuffer) 　
STORE "" TO lcUser, lcCompany 　
DO CASE
CASE UPPER(OS()) = "WINDOWS NT"
*-- 系统为Windows NT
lnError =RegOpenKeyEx(HKEY_LOCAL_MACHINE, KEY_SHARED_TOOLS_LOCATION, ;
lnReserved, KEY_QUERY_VALUE, @lnResult)
IF lnError = ERROR_SUCCESS
lnType = 0
lcBuffer = SPACE(128)
lnBufferSize = LEN(lcBuffer)
lnError = RegQueryValueEx(lnResult, "RegisteredOwner", lnReserved, ;
@lnType, @lcBuffer, @lnBufferSize)
IF lnError = ERROR_SUCCESS AND lcBuffer <> CHR(0)
lcUser = LEFT(lcBuffer, lnBufferSize - 1)
ENDIF
lnType = 0
lcBuffer = SPACE(128)
lnBufferSize = LEN(lcBuffer)
lnError = RegQueryValueEx(lnResult, "RegisteredOrganization", lnReserved, ;
@lnType, @lcBuffer, @lnBufferSize) 　
IF lnError = ERROR_SUCCESS AND lcBuffer <> CHR(0)
lcCompany = LEFT(lcBuffer, lnBufferSize - 1)
ENDIF
ENDIF
=RegCloseKey(lnResult)
CASE UPPER(OS()) = "WINDOWS 4"
*-- 系统为Windows 95 以上版本
lnError = RegOpenKeyEx(HKEY_LOCAL_MACHINE, KEY_WIN4_MSINFO, ;
lnReserved, KEY_QUERY_VALUE, @lnResult)
IF lnError = ERROR_SUCCESS
lnType = 0
lcBuffer = SPACE(128)
lnBufferSize = LEN(lcBuffer)
lnError = RegQueryValueEx(lnResult, "RegisteredOwner", lnReserved, ;
@lnType, @lcBuffer, @lnBufferSize)
IF lnError = ERROR_SUCCESS AND lcBuffer <> CHR(0)
lcUser = LEFT(lcBuffer, lnBufferSize - 1)
ENDIF
lnType = 0
lcBuffer = SPACE(128)
lnBufferSize = LEN(lcBuffer)
lnError = RegQueryValueEx(lnResult, "RegisteredOrganization", lnReserved, ;
@lnType, @lcBuffer, @lnBufferSize)
IF lnError = ERROR_SUCCESS AND lcBuffer <> CHR(0)
lcCompany = LEFT(lcBuffer, lnBufferSize - 1)
ENDIF
ENDIF
=RegCloseKey(lnResult)
OTHERWISE
*-- 系统为Windows 3.X 版本
lcRetVal = GetProStr("MS USER INFO", "DEFNAME", "", @lcBuffer, lnBufferSize)
lcUser = LEFT(lcBuffer, lcRetVal) 　
lcRetVal = GetProStr("MS USER INFO", "DEFCOMPANY", "", @lcBuffer, lnBufferSize)
lcCompany = LEFT(lcBuffer, lcRetVal)
ENDCASE
If lnError = ERROR_SUCCESS
=MessageBox("用户：" + lcUser + Chr(13) + "单位：" + lcCompany)
Else
=MessageBox("未找到用户及单位。")
Endif

更多内容请看系统安全设置  系统安装手册  系统备份专题专题，或进入讨论组讨论。

【收藏此文】【大 中 小】【打印】【关闭】

较早的文章：在VFP中定制自己的工具栏

较新的文章：在VFP中调用其他应用程序的实用技术