有时，我们在编写PB应用程序时，想获得当前应用程序的路径，我们可以借助API函数来实现，下面是具体的实现源代码。

//如何获得当前应用程序的路径FUNCTION unit getmodulefilenamea(ulong hmodule,ref string lpfilename,ulong nsize)library "kernel32.dll"string ls_buffer=space(255)int iif getmodulefilenamea(handle(getapplication()),ls_buffer,255)=0 then setnull(ls_buffer)else do while pos(ls_buffer,"\",i+1)>0 i=pos(ls_buffer,"\",i+1) loop ls_buffer=left(ls_buffer,i) if right(ls_buffer,1)<>"\" then ls_buffer=ls_buffer+"\"end ifreturn ls_buffer