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

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

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

FunctionuLongGetModuleFileNameA(longhinstModule,RefStringlpszPath,uLongcchPath)Library"kernel32.dll"

然后定义全局变量：

Stringgs_workPath

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

longll_RC

longll_apphandler

ll_apphandler=handle(GetApplication)

ls_AppPath=Space(256)

ll_RC=GetModuleFileNameA(ll_apphandler,gs_WorkPath,256)

IF(ll_RC=0)THENls_AppPath=""

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