[转帖]在PB中如何得到程序的运行路径？

阿辉

免费乐捐，感谢支持

１、先申明外部函数

FUNCTION ulong GetModuleFileName(ulong hModule,ref string lpFileName,ulong nSize) LIBRARY "kernel32.dll" ALIAS FOR "GetModuleFileNameA"

2、下面的代码

string gs_currdir
gs_currdir = Space(256)
GetModuleFileName(0, gs_currdir, 256)
Environment E_nv
Int li_PBversion
GetEnvironment(E_nv)
li_PBversion = E_nv.PBMajorRevision
IF Pos(gs_currdir,"pb"+String(li_PBversion)+"0.exe") > 0 THEN
gs_currdir = GetCurrentDirectory ( )
ELSE
gs_currdir = Left(gs_currdir,LastPos(gs_currdir,"\") -1)
END IF

3、ＯＫ！

说明：pb9.0及以上的GetCuttentDirectory()并不是得到程序运行的路径， 而是得到当前的工作路径，在程序运行当中，工作路径是可能会改变的。