当前位置: 老葡京网站娱乐 > 数据库 > PowerBuilder > 正文

pb如何获取当前的工作路径

时间:2008-12-01 本站整理 郭宝利

老葡京网站娱乐 www.sdguanhua.com 作者:达通兴电脑科技公司(www.study01job.com) 郭宝利

当前程序的运行路径是比较重要的一项,开发应用软件时需要注意,程序要根据用户的安装情况自己检测当前的路径。所以,获取当前路径是应用程序开发中肯定会用到的。

首先定义一个扩展函数,可以是全局的外部扩展函数。

Function uLong GetModuleFileNameA(long hinstModule, Ref String lpszPath, uLong cchPath) Library "kernel32.dll"

然后定义全局变量:

String gs_workPath

然后在Application的Open事件中编写如下程序:

long ll_RC

long ll_apphandler

ll_apphandler = handle(GetApplication())

ls_AppPath = Space(256)

ll_RC = GetModuleFileNameA(ll_apphandler, gs_WorkPath, 256)

IF (ll_RC = 0) THEN ls_AppPath = ""

messagebox("应用程序路径", gs_Workpath)