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

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

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

首先定义一个扩展函数，可以是全局的外部扩展函数。
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)