PB获取应用程序路径以及exe名

一.声明全局或者局部函数

Function uint GetModuleFileName(ulong hModule,ref string lpFilename,ulong nSize) Library "kernel32.dll" alias for "GetModuleFileNameA;Ansi"

二.写获取代码

String ls_Path, ls_Buffer = Space(255),ls_currexe
If Handle(GetApplication(), False) = 0 Then
    //开发模式运行
    ls_Path = GetCurrentDirectory()
Else
    //编译后运行
    If GetModuleFileName(Handle(GetApplication()),ls_Buffer,255) = 0 Then
        SetNull(ls_Buffer)
        ls_Path = ''
    Else
        ls_currexe = right(ls_Buffer,LastPos(ls_Buffer,"\")+1)// exe
//        ls_currexe=ls_Buffer
        ls_Path = Trim( left(ls_Buffer,LastPos(ls_Buffer,"\")) )
    End If
End If

详细的用法可以关注下微信公众号：将PB进行到底，或者扫头像加关注！