当前位置: 代码迷 >> PB >> ,pb里如何判断操作系统是多少位的啊
  详细解决方案

,pb里如何判断操作系统是多少位的啊

热度:43   发布时间:2016-04-29 06:43:57.0
求高手指教,pb里怎么判断操作系统是多少位的啊?
RT,在网上查了各种治疗,了解到GetSystemInfo 、GetNativeSystemInfo两个函数,但是PB里调用后貌似没法半段啊,还有其他方法没呢?求高手指点迷津

------解决方案--------------------
//====================================================================
// 事件: n_appmanager.of_apifunctionpresent()
//--------------------------------
// 描述:判断API是不否成功
//--------------------------------
// 参数:
//  value string ls_functionname
//  value string ls_dllname     
//--------------------------------
// 返回:  boolean
//--------------------------------
// 作者: TANGYONG 日期: 2012年09月19日
//--------------------------------
// Copyright (c) 2002-2012 TRUEWAY(TM), All rights reserved.
//--------------------------------
// 修改历史:
//
//====================================================================


String ls_pathname,ls_pathname_add
Long ls_ihandle , ls_ihandle1,ls_laddr
Boolean ls_freelib
ls_freelib  = False
ls_pathname = Space(255)
ls_ihandle = GetModuleHandle(ls_dllname) //获取一个应用程序或动态链接库的模块句柄
GetSystemDirectory(ls_pathname,255) //获取DLL路径
ls_pathname_add =  ls_pathname+'\'+ls_dllname
IF  ls_ihandle = 0 THEN
ls_ihandle = LoadLibraryEx(ls_pathname_add, 0, DONT_RESOLVE_DLL_REFERENCES)
ls_freelib = True
END IF
IF  ls_ihandle <>  0 THEN
ls_laddr = GetProcAddress(ls_ihandle, ls_functionName)
IF ls_freelib = True THEN
FreeLibrary( ls_ihandle) //用FreeLibrary函数释放DLL
END IF
END IF

IF  ls_laddr <> 0 THEN
RETURN  True
ELSE
RETURN  False
END IF



//====================================================================
// 事件: n_appmanager.of_infoversion64bit()
//--------------------------------
// 描述:判断系统位数
//--------------------------------
  相关解决方案