PB中如何获得当前的路径

在前面的文章中，我们给出了获得应用程序当前路径的一种方法（详细参考PB中如何获得当前应用程序的路径一文），在这里使用另外一个API函数也可以实现同样的效果，下面是程序的源代码。

//获得当前的路径
FUNCTION ulong GetCurrentDirectoryA(ulong nBufferLength,ref string lpBuffer) Library    kernel32.dll"
String ls_buffer
Ls_buffer=space(255)
If getcurrentdirectorya(255,ls_buffer)=0 then
     Setnull(ls_buffer)
Else
If Right(ls_buffer,1)<>"1" then ls_buffer=ls_buffer+"\"
End if
Return ls_buffer