writereadini.bak

VFP调用第三方接口动态库

*-- 从SYSTEM.INI文件中读取系统常见硬件设备信息
DECLARE INTEGER GetPrivateProfileString IN Win32API AS GetPrivStr ;
  String cSection, String cKey, String cDefault, String @cBuffer, ;
  Integer nBufferSize, String cINIFile
lcIniFile = getenv("windir") + "\system.ini" 
*-- 读取系统
lcBuffer = space(100) 
=GetPrivStr("boot.description", "system.drv", "", ;
               @lcBuffer, LEN(lcBuffer), lcIniFile)
lcSystem = allt(lcBuffer)
lcSystem = left(lcSystem,len(lcSystem)-1)

*-- 读取键盘
lcBuffer = space(100) 
=GetPrivStr("boot.description", "keyboard.typ", "", ;
               @lcBuffer, LEN(lcBuffer), lcIniFile)
lcKeyBoard = allt(lcBuffer)
lcKeyBoard = left(lcKeyBoard,len(lcKeyBoard)-1)

*-- 读取鼠标
lcBuffer = space(100) 
=GetPrivStr("boot.description", "mouse.drv", "", ;
               @lcBuffer, LEN(lcBuffer), lcIniFile)
lcMouse = allt(lcBuffer)
lcMouse = left(lcMouse,len(lcMouse)-1)

*-- 读取显示器
lcBuffer = space(100) 
=GetPrivStr("boot.description", "display.drv", "", ;
               @lcBuffer, LEN(lcBuffer), lcIniFile)
lcDisplay = allt(lcBuffer) 
lcDisplay = left(lcDisplay,len(lcDisplay)-1)


*-- 读取背景
lcIniFile = getenv("windir") + "\win.ini" 
lcBuffer = space(100) 
=GetPrivStr("desktop", "wallpaper", "", ;
               @lcBuffer, LEN(lcBuffer), lcIniFile)
lcWallpaper = allt(lcBuffer)
lcWallpaper = left(lcWallpaper,len(lcWallpaper)-1)

*-- 显示获取的信息
messagebox("系统："+lcSystem+chr(13)+chr(13)+;
           "键盘："+lcKeyBoard+chr(13)+chr(13)+;
           "鼠标："+lcMouse+chr(13)+chr(13)+;
           "显示："+lcDisplay+chr(13)+chr(13)+;
           "背景："+lcWallpaper,64,"系统信息： ")