资源描述:
《在vfp中获取windows注册信息的方法 》由会员上传分享,免费在线阅读,更多相关内容在学术论文-天天文库。
1、在VFP中获取Windows注册信息的方法关键词:在VisualFoxpro软件的程序设计中,我们经常需要关注其程序设计的环境,尤其是获得Windoe,IntegernReserved,;IntegernType,StringcBuffer,IntegernBufferSizeDECLAREIntegerRegCloseKeyINWin32API;IntegernKey--初始化DLL调用变量OutBuffer=SPACE(128)STORE0TOReserved,Result,TypeBufferSize=LEN(Out
2、Buffer)STORE""TOOutUser,Outpany--通过VFP的OS()函数判定当前操作系统类型DOCASECASEUPPER(OS())="WINDOWS4"--系统为WindoACHINE_ID,VER_PATH,;Reserved,1,Result)IFError=0Type=0OutBuffer=SPACE(128)BufferSize=LEN(OutBuffer)Error=RegQueryValueEx(Result,"RegisteredOwner",Reserved,;Type,OutBuff
3、er,BufferSize)IFError=0ANDOutBuffer<>CHR(0)OutUser=LEFT(OutBuffer,BufferSize-1)ENDIFType=0OutBuffer=SPACE(128)BufferSize=LEN(OutBuffer)Error=RegQueryValueEx(Result,"RegisteredOrganization",Reserved,;Type,OutBuffer,BufferSize)IFError=0ANDOutBuffer<>CHR(
4、0)Outpany=LEFT(OutBuffer,BufferSize-1)ENDIFENDIF=RegCloseKey(Result)CASEUPPER(OS())="E","",OutBuffer,BufferSize)OutUser=LEFT(OutBuffer,OutRetVal)OutRetVal=GetProStr("MSUSERINFO","DEFPANY","",OutBuffer,BufferSize)Outpany=LEFT(OutBuffer,OutRetVal)ENDCASEIfError=0=Me
5、ssageBox("用户:"+OutUser+Chr(13)+"单位:"+Outpany)Else=MessageBox("未找到用户及单位。")Endif