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()
//--------------------------------
// 描述:判断系统位数
//--------------------------------